Sujet Précédent Sujet Suivant

VBA colorier des doublons

Résolu/Fermé
senecartour Messages postés 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 22 déc. 2015 à 17:38
senecartour Messages postés 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 27 déc. 2015 à 21:21
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 10879 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 septembre 2024 2 415
Modifié par ccm81 le 22/12/2015 à 18:12
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 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 3
27 déc. 2015 à 21:21
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