Bonjour,


J'ai un grand nombre de ligne sur ma Feuil2 et je recherche a conserver uniquement les lignes des noms correspondant à une liste située en Feuil3.

¨Par exemple:

Feuille 2:
Rennes
Paris
Tour
Rennes
Lyon
Dinan
Brest
Dinan
Paris

Feuille 3:

Rennes
Dinan
Brest


Débutant, j'ai essayé le code suivant mais ça m’efface tout...je pense comprendre pourquoi, mais n'ai pas assez de connaissance pour régler le problème. Je pense que sur le feuille 3 la valeur de la Liste correspond à la totalité des noms et non pas à chaque cellule testée une à une. ( j'espère être compréhensible)...

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
Sub SupLigne()
Dim Liste As String
 
 
With Worksheets("Feuil2")
 
   Application.ScreenUpdating = False
   For i = [A65000].End(xlUp).Row To 1 Step -1
      Liste = (Cells(i, 1).Value)
      Next i
      With Worksheets("Feuil3")
     For j = [A65000].End(xlUp).Row To 1 Step -1
 
If .Range("A" & j).Value <> Liste Then
.Rows(j).EntireRow.Delete
 
  End If
Next j
End With
End With
 
End Sub

en espérant votre aide,

Merci