VBA colorier des doublons
Résolu
senecartour
Messages postés
391
Statut
Membre
-
senecartour Messages postés 391 Statut Membre -
senecartour Messages postés 391 Statut Membre -
Bonjour,
J'essaie de colorier en rouge des doublons dans une colonne avec la VBA; Mais ma macro ne fonctionne pas.
Voici mon code:
Sub ColorDoublon()
Dim mondico As Object, mot
derli = ThisWorkbook.ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
For j = 7 To derli
Set dico = CreateObject("Scripting.Dictionary")
mot = Cells(i, 3).Value
dico.Item(mot) = dico.Item(mot) + 1
Next j
For k = 7 To derli
If dico.Item(mot) > 1 Then
mot.Interior.ColorIndex = 3
End If
Next k
End Sub
Je vous joins également le fichier via le lien:https://www.cjoint.com/c/ELwqMDYh1Sa
Merci d'avance pour votre aide
--
Partager son savoir est la meilleure façon d'apprendre!
J'essaie de colorier en rouge des doublons dans une colonne avec la VBA; Mais ma macro ne fonctionne pas.
Voici mon code:
Sub ColorDoublon()
Dim mondico As Object, mot
derli = ThisWorkbook.ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
For j = 7 To derli
Set dico = CreateObject("Scripting.Dictionary")
mot = Cells(i, 3).Value
dico.Item(mot) = dico.Item(mot) + 1
Next j
For k = 7 To derli
If dico.Item(mot) > 1 Then
mot.Interior.ColorIndex = 3
End If
Next k
End Sub
Je vous joins également le fichier via le lien:https://www.cjoint.com/c/ELwqMDYh1Sa
Merci d'avance pour votre aide
--
Partager son savoir est la meilleure façon d'apprendre!
1 réponse
-
Bonjour
Essaies comme ceci
Sub ColorDoublon()
Dim mondico As Object, mot, derli As Long, j As Long, k As Long
derli = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Set dico = CreateObject("Scripting.Dictionary")
For j = 7 To derli
mot = Range("A" & j).Value
If dico.exists(mot) Then
dico(mot) = dico(mot) + 1
Else
dico.Add mot, 1
End If
Next j
For k = 7 To derli
mot = Range("A" & k).Value
If dico.Item(mot) > 1 Then
Range("A" & k).Interior.ColorIndex = 3
End If
Next k
End Sub
Cdlmnt
