suppression ligne dont cellule égale à rien ou égale à zéro dans la colonne b

[pascal21]

bonjour à tous
j'ai trouvé ce bout de macro que j'aimerais utiliser mais il me faut la transformer un peu pour l'utiliser sur la zone ("B120:B127)
je ne trouve pas quoi écrire
merci de votre aide

For x = Range("b65536").End(xlUp).Row To 1 Step -1
If Range("b" & x).Value = 0 Then
Rows(x).Delete
End If
Next

 

[Papou-net]

Re : suppression ligne dont cellule égale à rien ou égale à zéro dans la colonne b

Bonjour pascal21,

Peut-être comme ceci :

For Each cel in Range("B120:B127")
If cel.Value = 0 Then Rows(cel.row).EntireRow.Delete
Next

Espérant avoir répondu.

Cordialement.

 

[david84]

Re : suppression ligne dont cellule égale à rien ou égale à zéro dans la colonne b

Bonjour,
non testé mais peut-être :

For x = Range("b127").End(xlUp).Row To 120 Step -1
If Range("b" & x).Value = 0 Then
Rows(x).Delete
End If
Next

A+

 

[pascal21]

Re : suppression ligne dont cellule égale à rien ou égale à zéro dans la colonne b

merci beaucoup