ajustage d'une macro

mythotem · 24 Juin 2009

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 · 24 Juin 2009

Re : ajustage d'une macro

Bonsoir mythotem

Code:

[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 · 24 Juin 2009

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.

ajustage d'une macro

mythotem

XLDnaute Junior

ROGER2327

XLDnaute Barbatruc

Catrice

XLDnaute Barbatruc

Discussions similaires

ajustage d'une macro

mythotem

XLDnaute Junior

ROGER2327

XLDnaute Barbatruc

Catrice

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency