Supprimer lignes sur une feuille en VBA

[Le Dragon]

Bounjour, à toutes et tous

Voilà, j'explique, je veux juste supprimer des lignes dont la ou les cellules ont pour valeur = 0 dans une feuille par VBA.

Merci d'avance.

 

[Staple1600]

Re : Supprimer lignes sur une feuille en VBA

Bonsoir

Une proposition

sub test()
Dim cell as range
For each cell in activesheet.usedrange
if cell.value=0 then cell.entirerow.delete
Next
end sub

 

[Le Dragon]

Re : Supprimer lignes sur une feuille en VBA

Merci pour la réponse, c'est super.

 

[CedricBDO]

Re : Supprimer lignes sur une feuille en VBA

Je voudrais faire la même chose mais pour les lignes qui sont vides.
J'ai essayé ça mais ça ne marche pas :

'On supprime les lignes qui ont été déplacées et qui sont maintenant vides
j = 2
While wk1.Worksheets("Bidos").Cells(j, 1) = ""
wk1.Worksheets("Bidos").Rows(j).Delete
j = j + 1
Wend

Si vous pouviez m'aider ce serait super sympa. Merci

 

[Pierrot93]

Re : Supprimer lignes sur une feuille en VBA

Bonjour,

essaye ceci, à noter que quand tu supprimes des lignes il est préférable de commencer par la fin et de remonter au cas ou tu rencontres les critères sur plusieurs cellules consécutives :

Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "" Then Rows(i).Delete
Next i

bon après midi
@+

 

[CedricBDO]

Re : Supprimer lignes sur une feuille en VBA

Merci pour ton aide, mais j'ai finalement réussi à faire tourner la maccro.

Bonne Journée