Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Re.repérage des triplets etc....

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion claude09
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

claude09

XLDnaute Occasionnel
Bonjour.Ci joint un nouveau fichier.J'ai coloré en rouge un quartet qui se répéte dans au moins 2 colonnes (il y en a peut etre d'autres ?) et dans d'autres couleurs des triplets qui se répétent dans plusieurs colonnes.A l'oeil, ce n'est pas évident de les repérer tous.Est ce qu'on pourrait automatiser a l'aide d'une MFC ?(les triplets en jaune,les quartets en rouge,les quintés en vert par exemple) Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Re.repérage des triplets etc....

Bonjour Claude, bonjour le forum,

peut-être une macro du style :

Code: 
Sub Macro1()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange
    If cel.Value <> "" Then
        Select Case Application.WorksheetFunction.CountIf(ActiveSheet.UsedRange, cel.Value)
            Case 2
            cel.Interior.ColorIndex = 8
            Case 3
            cel.Interior.ColorIndex = 6
            Case 4
            cel.Interior.ColorIndex = 6
            Case 5
            cel.Interior.ColorIndex = 3
        End Select
    End If
Next cel
End Sub
 
Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Merci de votre réponse.Je ne comprends pas tres bien car je me retrouve avec une cellule en bleu , 2cellules en bleu etc.Les doublets ne m'interesse pas.Il faudrait que les couleurs soient dans les colonnes numéros;Si vous pouviez éclairer ma lanterne ? Merci pour votre disponibilité.
 
Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Bonjour chez vous

Utilisation de Switch à la place de Select Case

(avec reprise du code de Robert)

Code: 
Sub Macro2()
Dim cel As Range, x
For Each cel In ActiveSheet.UsedRange
x = Application.WorksheetFunction.CountIf(ActiveSheet.UsedRange, cel.Value)
cel.Interior.ColorIndex = Switch(x = 2, 8, x = 3, 6, x = 4, 6, x = 5, 3)
Next cel
End Sub
 
Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Bonjour Claude, SubEndSub, bonjour le forum,

En pièce jointe une version mieux adaptée et un code commenté... J'avais vite lu la première fois.

P.S. le SWITCH a l'air super bien je ne connaissait pas. Merci Macro !
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Merci de toutes vos réponses.Je crois qu'il y a un petit malentendu entre nous:ce ne sont pas les colonnes valeurs qui m'interesse mais bien les colonnes de numéros(H K N Q T W ).Dans ces colonnes il y a des séries de numéros qui se répétent dans 2 ou plusieurs colonnes (2 4 36 46 en N qui se répéte en W:36 2 4 46).Et ce sont ces 4 numéros qui doivent etre coloriés en rouge par exemple et une autre couleur pour les triplets etc.Dans le fichier exemple,j'ai colorié manuellement le quartet ci dessus en rouge et qqles triplets.Il doit certainement en avoir d'autres mais à l'oeil, ce n'est pas évident.C'est pour celà que je recherche une solution automatique si elle existe.Peut etre en modifiant la macro,mais c'est un peu du chinois pour moi.Merci encore pour votre disponibilité et votre gentillesse.
 
Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Bonjour le fil, bonjour le forum,

Oui en effet je n'avais pas compris... Alors une version 2 qui devrait correspondre mais tu n'auras aucune couleur car le nombre de répétition oscile entre 6 (minimum) et 10 (maximum), tandis que le code ne colore que les répétition triples, quadruples et quintuples.
Donc il faudrait adapter le code ou acheter un violon (au cas où une furieuse envie d'uriner te prendrait)...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Re.repérage des triplets etc....

Adapter le code,c'est du chinois pour moi et je n'ai pas les moyens de m'acheter un violon!!!!Je continuerai donc de repérer qqles triplets et autres à l'oeil et merci encore pour vos réponses.Bonne journée.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Résolu(e)
XL 2016 Evaluation sur des imposés
Réponses
6
Affichages
266
YGU1
Y
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
713
Jacky67
M
  • Question Question
XL 2021 Gestion des couleurs histogramme
Réponses
2
Affichages
474
nat54
C
  • Question Question
XL 2019 Fonction personnalisé avec boucle à simplifier
Réponses
5
Affichages
505
carlos
C
C
  • Question Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
630
crocrocro
C
N
  • Résolu(e)
XL 2016 MFC qui s'efface selon remplissage cellule voisine
Réponses
10
Affichages
1 K
NIKITACAM
N
  • Question Question
Autres Mise en forme d'une multipage en fonction des checkboxs
4 5 6
Réponses
78
Affichages
5 K
eric57
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
6 K
TooFatBoy
A
  • Résolu(e)
Microsoft 365 Validation des données, mode personnalisé et formule si/et
Réponses
9
Affichages
2 K
TooFatBoy
J
  • Question Question
Power Point Macro pour l'automatisation des infos dans une fiche de suivi
Réponses
0
Affichages
619
JPh2309
J
K
  • Question Question
Microsoft 365 Mise en forme conditionnelle avec valeurs qui changent
Réponses
5
Affichages
804
Kelbret
K
N
  • Question Question
XL 2019 Extraire des données texte WEB
Réponses
0
Affichages
788
nikodème
N
T
  • Résolu(e)
Microsoft 365 compter des couleurs et comparer [RESOLU]
Réponses
11
Affichages
2 K
TheSly
T
T
  • Question Question
XL 2019 Codes couleurs_Compétences_Excel
Réponses
0
Affichages
1 K
TimtExcel
T
A
  • Question Question
XL 2019 changer les colonnes d'un graphique selon des valeurs
Réponses
0
Affichages
608
antonio21
A
L
  • Résolu(e)
XL 2019 Copier/Coller valeur + couleur d'un classeur à un autre
Réponses
7
Affichages
2 K
Etoto
  • Question Question
XL 2013 Formulaire Excel
Réponses
1
Affichages
803
Jacky67
P
  • Résolu(e)
XL 2010 Problème MFC à 2 conditions
Réponses
7
Affichages
940
TooFatBoy
L
  • Question Question
XL 2013 Automatisation de flèches en fonction de % avec conditions
Réponses
2
Affichages
1 K
Lucien78
L
J
  • Question Question
Créer une mise en forme conditionnelle en fonction des couleurs d'une série de cellule
Réponses
2
Affichages
1 K
JoJoCerise
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…