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

Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion BChaly
  • 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
B

BChaly

XLDnaute Occasionnel
Bonjour à tous,

Le code suivant colorie les "doublons" de la colonne "A" en bleu.

Comment puis-je modifier ce code pour colorier les "triplons" dans une autre couleur?

Merci pour votre aide.

Cordialement

BChaly

Code: 
Option Explicit
Sub DoubleValues()

Dim Cell As Range
Dim Co As Collection
    
Set Co = New Collection
On Error Resume Next

For Each Cell In Range("A1", Cells(Rows.Count, 2))
    If Cell <> "" Then
        Co.Add Cell, CStr(Cell)
            If Err <> 0 Then Cell.Interior.ColorIndex = 37
            '(L'instruction suivante ne donne pas le résultat souhaité):
            'If Err > 2 Then Cell.Interior.ColorIndex = 15
            Err.Clear
    End If
Next Cell

Set Co = Nothing
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonjour,

cf PJ

Code: 
Sub ColoriageDoublons()
  [A:A].Interior.ColorIndex = xlNone
  coul = Array(2, 3, 4, 5, 6, 7)
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
    If c <> "" Then d.Item(c.Value) = d.Item(c.Value) & c.Address & ":"
  Next c
  For Each c In d.keys
     tmp = d.Item(c)
     tmp = Left(tmp, Len(tmp) - 1)
     a = Split(tmp, ":")
     For i = LBound(a) To UBound(a)
       Range(a(i)).Interior.ColorIndex = coul(i)
     Next i
  Next c
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonsour®
avec MEFC par macro :
Code: 
Sub Macro2()
    Range("A1:A100").Select ' ***************plage à adapter
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NB.SI($A$1:A1;A1)=1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NB.SI($A$1:A1;A1)=2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NB.SI($A$1:A1;A1)>2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
End Sub
 

Pièces jointes

  • Capture.JPG
    38.6 KB · Affichages: 52
  • Capture.JPG
    38.6 KB · Affichages: 51
  • Capture.JPG
    38.6 KB · Affichages: 62
Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonjour BOISGONTIER,

Merci d'avoir étudié ma demande.

Le problème est que lorsqu'une valeur est représentée plus de 6 fois, j'obtiens un message d'erreur.
(ce qui est certainement normal en raison de l'instruction "Array(2, 3, 4, 5, 6, 7)").

Ce que je souhaiterais, c'est obtenir une couleur pour les doublons, et une autre couleur
pour les valeurs représentées 3 fois et plus.

Il y aurait donc deux couleurs différentes seulement.

Ex.
Valeur1 (sans couleur),
Valeur2 (couleur-1),
Valeur3 (couleur-2),
Valeur4 (couleur-2),
Valeur5 (couleur-2),
Valeur6 (Couleur-2) etc...

Merci pour votre aide.

Cordialement

BChaly
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonjour Modeste geedee,

Merci pour cette suggestion.

Malheureusement ceci ne semble pas fonctionner.

Cordialement,

BChaly
 
Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Code: 
Sub ColoriageDoublons()
  [A:A].Interior.ColorIndex = xlNone
  coul = Array(2, 3, 4)
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
    If c <> "" Then d.Item(c.Value) = d.Item(c.Value) & c.Address & ":"
  Next c
  For Each c In d.keys
     tmp = d.Item(c)
     tmp = Left(tmp, Len(tmp) - 1)
     a = Split(tmp, ":")
     For i = LBound(a) To UBound(a)
       If i < 3 Then Range(a(i)).Interior.ColorIndex = coul(i) Else Range(a(i)).Interior.ColorIndex = coul(2)
     Next i
  Next c
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonjour BOISGONTIER,

Super Génial!!! C'est exactement ce que je cherchais.

Immense Merci pour votre aide.

Cordialement

BChaly
 
Vote positif 0 Vote négatif
Re : Colorer les "doublons" et les "triplons" avec deux couleurs différentes en VBA

Bonjour Modeste geedee,

Effectivement, ceci est également une solution intéressante et qui fonctionne.

Je vous remercie pour votre aide sympathique.

Cordialement

BChaly
 
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

  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
618
anthoYS
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
jalaba
J
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
562
sofmat
S
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
1 K
Carolinebd
C
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
587
Dranreb
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
848
Lu76Fer
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
564
gbinforme
G
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
670
crocrocro
C
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
2 K
Phil69970
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
715
ChTi160
  • Résolu(e)
XL 2013 (RESOLU)Nombre de cellule non vide et sans doublon
Réponses
2
Affichages
787
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…