Find qui find mal

**Daranc** · 27/10/2009, 08h21

Bonjour
j'ai un fichier adresse commun
pour éviter de laisser ce fichier ouvert je crée un tableau ( c'est accessoire)
je communique avec ce fichier adresse via un USF
je teste le non de société en colonne B
je peut pour une même société avoir plusieurs correspondants
pour supprimer une adresse j'emploie ( ou plutôt je tente d'employer) la macro suivante

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Windows("Adresses_liste.xls").Activate
plage = "b2:b" & Range("b65535").End(xlUp).Row
With Worksheets(1).Range(plage)
    Set c = .Find(AdrS(2), LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        lg = c.Row
          For t = 1 To 10
            If .Cells(lg, t).Value = AdrS(t) Then
 
             verif = verif + 1
            Else
 
             verif = 0
             Exit For
            End If
        Next
         If verif = 10 Then
          .Range("A" & lg & ":F" & lg).Delete Shift:=xlUp
 
        End If
 
       Do
        Set c = .FindNext(c)
        lg = c.Row
        For t = 1 To 10
           If .Cells(lg, t).Value = AdrS(t) Then
 
            verif = verif + 1
           Else
 
            verif = 0
            Exit For
           End If
        Next
        If verif = 10 Then
          .Range("A" & lg & ":F" & lg).Delete Shift:=xlUp
 
        End If
        Loop While Not c Is Nothing And c.Address <> firstAddress
 
    End If
End With

je dis je tente parce que la macros tourne comme une horloge mais ne supprime rien

j'emploie la méthode find pour pouvoir pointer rapidement l'adresse et la supprimer dans la foulée. Ceci afin de refermer le plus rapidement possible le fichier une trentaine de personnes pouvant avoir besoin d'un accès au fichier . (Le partage de classeur me posant des problèmes avec l'USF je me suis orienté sur des ouverture/fermeture rapides)
merci
Daranc