Bonjour à tous,
voilà mon souci : je dois supprimer dans la colonne A la feuil1 les lignes des numéros de factures qui n'apparaissent pas dans la liste de numéros de factures de la colonne B de la feuil2. Le bout de code suivant ne fonctionne pas car apparemment il supprime toutes les lignes de la colonne A :

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
Sub supp_valuniq()
 
 Set f1 = Sheets("Feuil1")
 Set f2 = Sheets("Feuil2")
 
 For i = 2 To 21
'supposons qu'il y ait 20 factures dans la colonne A
    For Each Cell In f1.Range("A2:A21")
    Set valu = f2.Range("B2:B26").Find(Cell)
'valu est la valeur de A que l'on va chercher dans la plage de B
       If valu Is Nothing Then
       Rows(i).Delete
'si le numéro n'existe pas dans B alors on supprime la ligne dans A
       End If
 Next
 End Sub
D'avance Merci pour vos éclairages.