boucle infinie

[jerome.ba]

Bonjour à tous,
Je souhaite créé une macro qui me supprime la ligne lorsque certaines cellules ne contiennent pas de données
J'ai écris ça :

For k = 2 To nbligne
If Cells(k, "E") = "" = True Or _
Cells(k, "S") = "" = True Or _
Cells(k, "T") = "" = True Or _
Cells(k, "Y") = "" = True _
Then
Rows(k).Select
Rows(Selection.Row).delete Shift:=xlUp
k = k - 1
Next

La variable nbligne est le nombre de ligne écrite.
Le problème est que à cause du fait que je fais l'opération k=k-1 dans ma boucle, dès que la ligne devient vide, le compteur k n'arrive jamais à nbligne.

Quelqu'un a-t-il une solution à mon problème?
Jérôme

 

[Dranreb]

Re : boucle infinie

Bonjour.

For k = nbligne To 2 Step -1

et ne pas toucher k dans la boucle.
Et tout simplement :

Rows(k).Delete

Cordialement.

 

[jerome.ba]

Re : boucle infinie

Merci ça résoud mon problème !
cordialement,
Jérôme