VBA colorier des doublons

Résolu
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



A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
senecartour Messages postés 391 Statut Membre 3
 
Bonsoir ccm81,
Désolé pour la réponse tardive due à la fête. gspr que vous avez passé une joyeuse fête de noël.
Merci beaucoup pour le code ça fonctionne!
Bonne soirée.
0