Bonjour,
Malgré ma lecture de quelques posts, sur la recherche de doublon et le tuto sur le dictionnaire, je sèche sur un point.
Le dictionnaire a n'a qu'une valeur, pour la recherche de doublon, on regarde si la valeur existe déjà, par contre somment récupérer l'index (items ) du dictionnaire de la valuer déjà existante.

En fait dans la boucle ci-dessous qui fonctionne, je voudrais informer l'utilisateur où le doublon a été trouvé afin qu'il puisse le corriger.
MErci pour votre aide
Denis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
' recherche des doublons
  Range("J2").Select
  colonne = ActiveCell.Column
  Haut = Selection.End(xlUp).Row
  Set tab1 = CreateObject("Scripting.dictionary")
  For compteur = 2 To Bas
    cle = CStr(Cells(compteur, colonne))
If tab1.exists(cle) Then
lig_exist = tab1(cle).items   ----> C'est ça que j'arrive pas à captuer
        couleur = 3
    Range(Cells(compteur, 10), Cells(compteur, 10)).Select
MsgBox " attention cette valeur existe déjà en ligne " & tab1(cle) & lig_exist
End
Else
        tab1(cle) = 1
'        couleur = 4
    End If
    Cells(compteur, colonne).Interior.ColorIndex = couleur
  Next
End Sub