aide supprimer une ligne dans excel avec du vbRésolu

Question

Bonjour, j'utilise le bout de code suivant pour essayer de supprimer une ligne entiere si la cellule active est vide. (last est un entier retourn&#233;e par une autre fonction qui marche)

For i = 2 To last
Cells(i, 15).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
End If
Next i

Ce code ne marche que partiellement, c'est a dire qu'il ne supprime pas toutes les lignes qui ont la  cellule vide, et il faut que je relance la macro une vingtaine de fois pour tout supprimer.

Quelqu'un connaitrait la solution?

Merci!

valtrase · Accepted Answer

Lut, Pour ce style de travail il vaut mieux commencer par la fin je pense donc testes ceci et vérifie que last et bien bon For i = last to 2 step -1 ~~Cells(i, 15).Select~~ 'Inutile If cells(i,15)l.Value = "" Then Cells(i,15).Entirerow.Delete End If Next Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

sunstephane · Answer

Merci beaucoup Jean-Paul ca marche tres bien!

Cdt,
St&#233;phane

Aide supprimer une ligne dans excel avec du vb

2 réponses

Discussions similaires