Discussion :

[frontliner]

Bonjour,

Je sais que ce sujet a déjà beaucoup été traité mais les résultats obtenus par une recherche sur le forum ne me permettent pas de m'en sortir. J'ai essayé mais je n'y arrive pas complètement...
J'ai une feuille avec 5 colonnes (nom, prénom, date naissance, n° dossier, classeur).
J'ai jusqu'ici encodé presque 200 lignes mais le problème est que j'ai souvent des doublons.
Je voudrais, lorsque j'ai entré les valeurs des 4 premières colonnes, et si d'autres lignes ont déjà le même contenu, que je sois averti de l'existence de ces doublons...

J'ai d'abord essayé uniquement une recherche sur le contenu de la première colonne et je fais apparaitre une messagebox si la ligne existe déjà.

Le find trouve et pointe bien chaque ligne dans la feuille ou le nom existe déjà mais part dans une boucle infinie si je ne place pas un end en fin de procédure mais alors le find s'arrète à la première occurence seule et ne m'avertit pas de l'existence des suivantes

J'ai essayé une boucle et aussi des conditions... Comment faire pour qu'une messagebox apparaisse et que le find me pointe chaque ligne ou existe le même nom que celui entré dans la dernière ligne de la feuille sans partir dans une boucle infine ?

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
22
Dim Nom As String
Dim compare As Boolean
Dim lastRow As Integer

Nom = Range("A" & target.Row).Value

lastRow = target.Row

    compare = Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate


Rem If compare = True And target.Row <> lastRow Then

MsgBox ("Ce nom existe déjà !")

Rem End If

End

End Sub

[ouskel'n'or]

Tu as un très bon exemple dans l'aide en ligne, à Find.
Tu regardes et si tu as toujours un pb, tu dis
A+

[frontliner]

Tu as un très bon exemple dans l'aide en ligne, à Find.
Tu regardes et si tu as toujours un pb, tu dis
A+

J'ai trouvé un exemple ici http://msdn2.microsoft.com/fr-fr/lib...9a(VS.80).aspx. J'ai testé mais il y a un pb avec la déclaration des variables pas acceptées en vba. Et aussi ici http://support.microsoft.com/kb/466742/fr et là j'ai le même problème en gros qu'avant : une occurence trouvée ---> msgbox --> sort sans aller aux suivantes alors qu'il y en a d'autres... J'ai copié/collé tel quel pourtant...

Je ne sais pas si c'est de cet exemple que tu parlais ?

[alsimbad]

tien, j'avais ça qui trainait. a adapter a ton cas, mais ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub remp2()
With Worksheets("Boucle").Range("a:a")
    Set c = .Find("*INC", LookIn:=xlValues)
 
If Not c Is Nothing Then
    firstaddress = c.Address
       Do
        MsgBox "trouvé" & c.Address
        Set c = .FindNext(c)
       Loop While Not c Is Nothing And Not firstaddress = c.Address
End If
End With
End Sub

[tomy7]

recherche de doublons:

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
22
23
24
Sub TrouveDoublon()
    Dim Tableau() As TableauType
    Dim Cellule, Haut, Bas, Compteur, C2
    Colonne = 15
    Haut = Selection.End(xlUp).Row
    Bas = Selection.End(xlDown).Row
    ReDim Tableau(Bas)
    For Compteur = Haut To Bas
        Tableau(Compteur).Contenu = Cells(Compteur, Colonne)
        Tableau(Compteur).Coordonnee = Cells(Compteur, Colonne).Row
    Next
    For Compteur = Haut To Bas
        For C2 = (Compteur + 1) To Bas
            If Tableau(Compteur).Contenu = Tableau(C2).Contenu Then
                Cells(Tableau(C2).Coordonnee, Colonne + 1).Value = 1
                Cells(Tableau(C2).Coordonnee, Colonne - 13).Interior.ColorIndex = 6
                Cells(Tableau(C2).Coordonnee, Colonne - 12).Interior.ColorIndex = 6
                Cells(Tableau(C2).Coordonnee, Colonne - 11).Interior.ColorIndex = 6
                Cells(Tableau(C2).Coordonnee, Colonne - 10).Interior.ColorIndex = 6
                Cells(Tableau(C2).Coordonnee, Colonne - 9).Interior.ColorIndex = 6
            End If
        Next
    Next
End Sub