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
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