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

Différents doublons = Différentes couleurs

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

hypo78

XLDnaute Impliqué
Bonsoir,

Dans une plage donnée, je souhaiterai (via VBA) que les doublons se colorent.
Je sais le faire à l'aide d'une mise MFC, mais pas en VBA.

Particularité, il me faudrait une couleur différente à chaque type de doublon.

Dernier désidérata, que cette mise en forme se fasse au moment de la saisie et non depuis une commande.

Merci d'avance.
 
Trier par date Trier par votes
Re : Différents doublons = Différentes couleurs

Bonsoir hypo, piga25, et à ceux qui passeront par là,

Je sais le faire avec VBA, en chargeant une base de données, mais en passant par une ListView d'un USF.

Par la suite, on pourra supprimer les lignes de la feuille, les modifier..... Enfin plein de trucs!

A noter que je ne sais rien fiche sur une Feuille directement par formules.

Il demeure aussi que je n'ai pas envie de me farcir la construction d'une Feuille avec des Doublons.
A toi de nous la fournir!!!

Amicalement, et à te lire,

Yann
 
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonsoir à tous,

@ piga 25 : lors de mes recherches je suis allé voir là, mais je n'ai pas trouvé l'astuce pour l'adapter à une plage.
@ yann : j'ai bien compris, en général je joins toujours un petit fichier mais là çà ne me paraissait pas nécessaire.
@ klin89 : malgré mes recherches je ne suis jamais tombé sur ce fil, je crois que çà s'approche de ce dont j'ai besoin.

Merci à tous.
 
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Re,
si j'adapte ce code :
Code: 
Sub GroupColor()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set champ = Range("b2").CurrentRegion
  For Each c In champ
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  For Each c In champ
    If mondico.Item(c.Value) > 1 Then
      coul = Application.Match(c.Value, mondico.keys, 0) + 1
      c.Interior.ColorIndex = coul Mod 53
    End If
  Next c
End Sub

est ce possible qu'il s'exécute à la saisie sans passer par un bouton?

Edit : premier constat à l'utilisation, si on change la valeur d'un doublon et que l'on recalcule, la case reste colorée comme si c'était un doublon.

Je joins l'exemple de BOISGONTIER pour plus de compréhension
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonjour hypo78, klin89 , YANN-56, piga25,
Allez je me lance sur une modif d'un code J.Boisgontier... ...en espérant ne pas gaffer.
A mettre fans le code de la feuille concernée.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Set champ = Range("b2").CurrentRegion
  If Intersect(Target, champ) Is Nothing Or Target.Count > 1 Then Exit Sub
  Set mondico = CreateObject("Scripting.Dictionary")
  champ.Interior.ColorIndex = xlNone
  For Each c In champ
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  For Each c In champ
    If mondico.Item(c.Value) > 1 Then
      coul = Application.Match(c.Value, mondico.keys, 0) + 1
      c.Interior.ColorIndex = coul Mod 53
    End If
  Next c
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonsoir Efgé,

çà a l'air de fonctionner.
Je teste çà demain sur mon fichier au boulot (oui oui un jour férié....)
Merci.

Bonne soirée à tous.
 
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonjour Efgé,

plusieurs petites questions:
-est ce possible de le faire sur des plages non contiguës?
-est ce que l'on peut colorer le texte et non le fond?

Rem : çà se met en mode débogage mais pas à chaque fois....

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonjour hypo78, le fil le forum
Pour le déboguage, cela viens peut être du fait que la cellule B2 est vide.
Pour la couleur de texte: l'utilisation de l'enregistreur de macro aurai pu t'ammener à trouver... ...ça
Code: 
c.Font.ColorIndex = coul Mod 53
Pour les plages non contigues il faudrait voir ton exemple qui commence à faire cruellement défaut...
Cordialement

si non regarde de ce coté:
Code: 
Sub test()
  Set champ = Application.Union(Range("$B$2:$E$9"), Range("$M$2:$P$9"))
  champ.Select
End Sub
Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Re
Il semble que l'exemple n'ai strictement rien a voir avec la question de base....🙄
Je jette l'éponge.
Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Bonsoir,

Voir PJ

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Différents doublons = Différentes couleurs

Re,
@ Efgé, la seule différence avec ma demande du départ, c'est que ce n'est pas une plage avec des cellules contiguës. Mais le fond n'a pas changé, des doublons en couleur avec une couleur différente par type de doublon.
Dans tous les cas merci pour ton investissement.

@ Boisgontier : çà m'a l'air très bien tout çà. Je vais l'appliquer à mon fichier.

Merci à tous et bonne fin de journée.

edit : @ Pierrejean : oui c'est çà mais sans bouton de lancement.
 
Dernière édition:
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

C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
364
job75
P
  • Question Question
XL 2013 Gestion de sauvegarde de fichiers
Réponses
14
Affichages
507
dysorthographie
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
500
sylvanu
M
  • Résolu(e)
Microsoft 365 Nombre de caractères différents et suppression Doublons ?
Réponses
6
Affichages
527
mcfv
M
N
  • Question Question
Microsoft 365 [Résolu] Couleurs doublons multiple
Réponses
8
Affichages
970
Neo37
N
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
625
vgendron
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
987
Dock91
D
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
L
  • Question Question
Microsoft 365 Formule SI.EQUIV mais à 3 conditions
Réponses
8
Affichages
881
Le Vonvon
L
L
  • Question Question
XL 2019 Trouver la data correspondant selon un tableau ; deux colonnes et une ligne.
2 3 4
Réponses
54
Affichages
4 K
job75
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
T
  • Résolu(e)
XL 2016 Idées pour recherche de doublons complexe
2
Réponses
17
Affichages
2 K
Tom33700
T
E
  • Question Question
XL 2016 Copier la mise en forme d'une cellule MFC
Réponses
1
Affichages
1 K
AtTheOne
L
  • Question Question
Microsoft 365 Userform : Combobox triée/sans doublons avec saisie intuitive/recherche multimots
Réponses
8
Affichages
3 K
AtTheOne
K
  • Résolu(e)
Microsoft 365 Utiliser une colonne "référence" pour des mises en forme et les recopier selon les valeurs
Réponses
2
Affichages
1 K
Kref-Arou
K
M
  • Question Question
XL 2013 Déplacement de plage dans base de donnée
Réponses
0
Affichages
798
mikepers
M
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
2 K
albuqs
A
G
  • Résolu(e)
XL 2019 Mise en forme conditionnelle (dégradé de couleurs) sur un ensemble de cellules déterminé par une formule
2 3 4
Réponses
46
Affichages
11 K
gthe
G
K
  • Résolu(e)
Microsoft 365 Questions Doublons, triplons selon des conditions(VBA ou formule)
Réponses
5
Affichages
2 K
kondabalo
K
N
  • Question Question
XL 2016 Recherche de doublons puis triplons et mise en couleurs
Réponses
2
Affichages
1 K
Naëlle74
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…