Discussion :

[rsoul]

Bonjour à tous, Bonjour à toi,

Je souhaite utiliser une boucle While wend, mais j'aurais besoin d'inserer plusieurs conditions.

j'aimerais que vb regarde dans ma colonne A si il ya "exemple1" ou "exemple2" ou "exemple3" et que toutes le autres lignes soit supprimées si par exemple j'ai dans ma colonne A "exemple4", "exemple5".

Ainsi je me retrouverais avec seulement les lignes ou j'ai dans ma 1ere colonne "exemple1" ou "exemple2" ou "exemple3"

Voici le code bancale utilisé: ( le decompte des lignes commence a la ligne 2 car j'ai un entete.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
lDerniereLigneReelle = Range("A2").End(xlDown).Row
For i = 2 To lDerniereLigneReelle
    While (Range("A" & i) <> "exemple1" or "exemple2" or "exemple3"
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Wend
Next i
End Sub

Merci pour vos conseils !!

[Godzestla]

Sans entrer dans la recherche profonde, ta condition est mal formulée.

il faut répéter la/les variables de test et remplacer Or par and, sinon c'est une boucle sans fin:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
lDerniereLigneReelle = Range("A2").End(xlDown).Row
For i = 2 To lDerniereLigneReelle
    While (Range("A" & i) <> "exemple1" and Range("A" & i) <> "exemple2" and  Range("A" & i) <> "exemple3"
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Wend
Next i
End Sub

[rsoul]

Bon et bien c'est bon,
Il manquait juste une petite paranthese à la fin de la 1ere condition ce qui explique lerreur de syntaxe.

Rmrque: j'ai aussi du ajouter

Code :

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

And Range("A" & i)<> Empty

Pour que ma boucle ne tourne pas indefiniment!!

au final il faut donc utiliser:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
lDerniereLigneReelle = Range("A2").End(xlDown).Row
For i = 2 To lDerniereLigneReelle
    While (Range("A" & i) <> "exemple1" and Range("A" & i) <> "exemple2" and  Range("A" & i) <> "exemple3" And Range("A" & i) <> Empty)
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Wend
Next i
End Sub

Merci bcp Godzestla!

A bientot