ajustage d'une macro

[mythotem]

Bonsoir tout le monde,
Cette macro supprime les lignes où les cellules dans la colonne H sont égales à 0 :

Sub supprime_H()
'
For Each Cel In Range("h4:h200")
If Cel.Value = "0" Then Cel.EntireRow.Delete
Next
End Sub

Peut-on la modifier en voulant toujours supprimer les lignes H dont les dites cellules en colonne H sont égales à 0 ou vides ?

Merci d'avance.
Mythotem.

 

[ROGER2327]

Re : ajustage d'une macro

Bonsoir mythotem

[COLOR="DarkSlateGray"]For Each Cel In Range("h4:h200")
   If Cel.Value = "0" [COLOR="Red"]Or IsEmpty(Cel.Value)[/COLOR] Then Cel.EntireRow.Delete
Next[/COLOR]

peut-être ?​

ROGER2327

 

[Catrice]

Re : ajustage d'une macro

Bonsoir à tous,


quand on utilise Delete, il est préférable de boucler par le bas :

Sub supprime_H()
For i = Range("H65536").End(xlUp).Row To 4 Step -1
If Cells(i, 8) = "" Or Cells(i, 8) = 0 Then Cells(i, 8).EntireRow.Delete
Next
End Sub

Sinon la macro risque de ne pas traiter certains éléments.