Supression de ligne sous condition

[Guigui]

Bonjour à tous

Voici mon probleme :
j'ai souhaite suprimer des lignes dans une feuille si une condition est vérifié.

Dim a As Integer
For a = 1 To 10
If Range("C" & a) = "kp" Then GoTo suite1
Range("C" & a).EntireRow.Delete

suite1:
Next a

le probleme est que quand on suprrime une ligne entiere, tous remonte d'un cran... donc au moment de la boucle, "a" est incrementer mais la ligne qui est venu à l'ancienne valeur de "a" n'est pas supprimer ...

Bon rien ne vaut mieux qu'un exemple...

Merci d'avanc epour votre aide
a+
Guillaume

 

[Spitnolan08]

Re : Supression de ligne sous condition

Bonsoir,

Dim a As Integer
For a = 10 To 1 step -1
If Range("C" & a) = "kp" Then GoTo suite1
Range("C" & a).EntireRow.Delete

suite1:
Next a

Cordialement

 

[Guigui]

Re : Supression de ligne sous condition

re..

Yes excellent
je ne connaissait pas le "step"
merci encore
a+
Guillaume