Discussion :

[Denis_67]

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

[Ashireon]

Hello,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lig_exist = tab1.item(cle)

JE pense que cela s'ecrit plutot ainsi

[Denis_67]

Ne marche pas renvoie toujours 1.
Bien essayé !

[Ashireon]

Ou renseigne tu ton dictionnaire ?

Test cette macro si ca fonctionne tu comprendra la marche a suivre pour ce que tu as besoin

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
Public Sub RechercheDoublon()
  Range("J2").Select
  colonne = ActiveCell.Column
  Haut = Selection.End(xlUp).Row
  Set tab1 = CreateObject("Scripting.dictionary")
  dim bas as integer
bas = range("J" &rows.count).end(xlup).row
  For compteur = 2 To bas
    cle = CStr(Range("J" & compteur).Value)
        If Not tab1.exists(cle) Then
            tab1.Add cle, compteur
 
                Else
 
                    MsgBox (" attention cette valeur existe déjà en ligne " & tab1.Item(cle))
            End If
    Cells(compteur, colonne).Interior.ColorIndex = 4
    Next
End Sub

[Denis_67]

ben c'est ici :
tab1(cle) = 1

je vois bien mon tab1 qui se remplit.
chaque fois il crée un ligne cela donne dans les variables locales
Tab1
CompareMode binarycompare
Count 3
Item 1 "Mavaleur lue" Variant/string
Item 2 "Mavaleur lue" Variant/string
Item 3 "Mavaleur lue" Variant/string etc ....

[Ashireon]

Si tu regarde comment j'ai ecris le code :

ton dictionnaire se remplit de la manière suivante
si la valeur lue n'est pas dans le dictionnaire alors
j'ajoute dans le dictionnaire
Valeur lue , N° de Ligne de la valeur lue
Sinon
la valeur existe déjà je lit ou se trouve le N° de La Ligne de la valeur et j'envoi ca dans un message box

Un dictionnaire se stocke de la manière suivante

Dico.add Clé,item

Pour notre cas la clé est la valeur lue et l'item le N° de ligne stockée.