I Imperium XLDnaute Junior 14 Juin 2011 #1 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
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 XLDnaute Barbatruc 14 Juin 2011 #2 Re : Supprimer les lignes dont la valeur en A est égale à 0 Salut Imperium et le forum peut-être : Code: 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+ Vote positif 0 Vote négatif
Re : Supprimer les lignes dont la valeur en A est égale à 0 Salut Imperium et le forum peut-être : Code: 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 XLDnaute Barbatruc 14 Juin 2011 #3 Re : Supprimer les lignes dont la valeur en A est égale à 0 Bonjour le fil , Code: 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 Vote positif 0 Vote négatif
Re : Supprimer les lignes dont la valeur en A est égale à 0 Bonjour le fil , Code: 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
I Imperium XLDnaute Junior 14 Juin 2011 #4 Re : Supprimer les lignes dont la valeur en A est égale à 0 Merci à tous les 2, car les 2 marchent ! Vote positif 0 Vote négatif