Plusieurs conditions dans un while/wend, possible?
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:
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 !!