VBA macro coloriage doublons
RésoluBonjour,
La macro ci-dessous colorie tous les doublons de la colonne C.
Je cherche que le coloriage se fasse uniquement à partir de la cellule active.
exemple:
la cellule active est C18 la première cellule vide C25 seuls les doublons de la plage C18/C24 seront coloriés. Le lendemain la cellule active sera C25 et la première cellule vide C32 seuls les doublons C25/C31 seront coloriés. En bref la colonne est incrémentée chaque jour.
Sub doublons()
Dim m As Object, i As Long, z
Set m = CreateObject("Scripting.Dictionary")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
z = Cells(i, 3)
If Not m.Exists(z) Then m.Add z, z Else Cells(i, 3).Interior.ColorIndex = 3
Next i
End Sub
Merci de votre aide.
Windows / Chrome 116.0.0.0
7 réponses
-
Bonjour,
J'ai un doute sur votre code, recherche première cellule vide en colonne A:A et ensuite les doublon sur colonne C:C ..!
Merci de préciser avec quelques données sur un fichier... !
-
Bonjour effectivement c'est pas cohérent mais ça ne pose pas de problème car par exemple si C24 est vide A24 le sera aussi invariablement.
Pas propre mais on fait avec les moyens du bord...
Merci pour votre aide Le Pingou
Salutations
-
Bonjour,
Se serait profitable pour vous de mettre un fichier avec quelques données sur Accueil de Cjoint.com et poster le lien!
Cela me permettrait de vous soumettre une proposition!
Essayez ceci:
Sub doublons() Dim m As Object, i As Long, z Dim ca As Integer Set m = CreateObject("Scripting.Dictionary") ca = ActiveCell.Row For i = ca To Cells(Rows.Count, 1).End(xlUp).Row z = Cells(i, 3) If Not m.Exists(z) Then m.Add z, z Else Cells(i, 3).Interior.ColorIndex = 3 End If Next i End Sub
-
J'ai transmis un fichier "classeur doublons"
Merci
-
Bonjour,
C'est bien mais le lien manque (celui que vous avez reçu de Cijoint :
Voir aussi la proposition poste 3...!
-
Cher Le Pingou
Votre macro ci-dessus fonctionne parfaitement.
Je vous remercie du temps consacrer.
Meilleures salutations
neofithe
-
Merci, pensez de marquer comme résolu si c'est le cas.
