Macro Supprimer Lignes

Caro -  
CapitainCo Messages postés 127 Statut Membre -
Bonjour,

J'aurais besoin d'une macro Excel 2003 VBA pour supprimer des lignes avec la condition suivante.
Si dans la colonne A la fonction me donne comme résultat FAUX effacer les lignes et
pour toutes les lignes suivantes dans cette colonne. Merci pour votre aide
A voir également:

1 réponse

CapitainCo Messages postés 127 Statut Membre 61
 
Dim i,y as integer
i=1
y=65536
do while range("A" & i).value <> ""
if range("A" & i).value="FAUX" then
Rows(i).Delete

y=y-i

Do while i<>y
Rows(i).Delete
i=i+1
loop
i =i+1
End If
loop
0