Discussion :

[logue_in]

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

[mathspountz]

Bonjour,

Le problème est que la variable string ne peux pas contenir de liste. A la fin de ta première boucle, liste vaut la valeur dela cellule A1 et rien d'autre.

Je pense que dans toncas il faut utiliser un dictionaire :

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
 
Sub SupLigne()
    Dim dic_liste
    Set dic_liste = CreateObject("Scripting.Dictionary")
 
    With Worksheets("Feuil2")
        For i = [A65000].End(xlUp).Row To 1 Step -1
            dic_liste(Cells(i, 1).value) = "" ' on stock dans le dic les valeurs / les doublons s'écraseront naturelement
        Next i
        ' ici on a bien une liste
 
        With Worksheets("Feuil3")
            For j = [A65000].End(xlUp).Row To 1 Step -1
                If Not dic_liste.exists(.Range("A" & j).value) Then
                    .Rows(j).EntireRow.Delete
                End If
            Next j
        End With
    End With
End Sub

[logue_in]

Bonjour mathspountz et merci pour cette information, je ne connaissais pas du tout le dictionnaire.

Par contre j'ai essayé et rien ne se passe...

[Marc-L]

Bonjour !

J'ai un grand nombre de ligne sur ma Feuil2

C'est vague ! Combien ?

Sinon avec le B-A-BA d'Excel tu peux t'en sortir via la fonction de feuille de calculs EQUIV et
en t'aidant de l'Enregistreur de macros, le meilleur ami du débutant …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …