Supprimer les lignes dont la valeur en A est égale à 0

[Imperium]

Bonjour à tous,

Pourrais-je avoir la macro correspondante à la fonction suivante :
- Si la valeur en A d'une ligne est égale à 0 (pas vide, mais 0), alors la ligne est supprimée. Et ce sur la totalité de la colonne A du document.

Ce serait super ! Merci beaucoup

 

[Gorfael]

Re : Supprimer les lignes dont la valeur en A est égale à 0

Salut Imperium et le forum
peut-être :

Dim X as long
for X=cells(Rows.count, "A").end(xlup).row to 1 step -1
    if not (isempty(range("A" & X))) and range("A" & X)=0 then rows(X).delete
next X

Attention : ce code (simple) n'a pas été testé.
A+

 

[JNP]

Re : Supprimer les lignes dont la valeur en A est égale à 0

Bonjour le fil ,

Dim I As Long
For I = Range("A35000").End(xlUp).Row To 1 Step -1
If Range("A" & I).Text = 0 Then Rows(I).Delete
Next I

Bonne journée

 

[Imperium]

Re : Supprimer les lignes dont la valeur en A est égale à 0

Merci à tous les 2, car les 2 marchent !