il y a quelque temps une âme charitable m'a donné ce code
==============================================
Sub Supprime_Lignes()
For Each lg In [A1].CurrentRegion.Rows
x = lg.Row
If Evaluate("CountA(" & x & ":" & x & ")") = 1 _
And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
Next
End Sub
==============================================
afin de supprimer des lignes vides
c'est dire dans la colonne A j'ai des dates, et si dans les autres
colonnes il n'y a rien la ligne se supprime
c'est ok cela fonctionne bien
mais j'aimeraia maintenant apporter une modification car en réalité dans
les autres colonnes il y a une formule qui apporte une information qui
est soit une valeur positive soit 0
et je souhaiterais supprimer les lignes qui ont des 0
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Andréa Parker
impec
merciiiiiiiiiiiiiii
anonymousA a écrit:
bonjour,
If Evaluate("sum(B" & x & ":IV" & x & ")") = 0 And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete ou if Application.WorksheetFunction.Sum(Range("B" & x & ":IV" & x))=0 And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
A+
Bonjour,
il y a quelque temps une âme charitable m'a donné ce code ============================================= >>Sub Supprime_Lignes() For Each lg In [A1].CurrentRegion.Rows x = lg.Row If Evaluate("CountA(" & x & ":" & x & ")") = 1 _ And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete Next End Sub ============================================= >> afin de supprimer des lignes vides
c'est dire dans la colonne A j'ai des dates, et si dans les autres colonnes il n'y a rien la ligne se supprime c'est ok cela fonctionne bien
mais j'aimeraia maintenant apporter une modification car en réalité dans les autres colonnes il y a une formule qui apporte une information qui est soit une valeur positive soit 0
et je souhaiterais supprimer les lignes qui ont des 0
sachant que la colonne A il y a toujours une date
merci d'avance
impec
merciiiiiiiiiiiiiii
anonymousA a écrit:
bonjour,
If Evaluate("sum(B" & x & ":IV" & x & ")") = 0 And Cells(x, 1) <> "" Then
Rows(x).EntireRow.Delete
ou if Application.WorksheetFunction.Sum(Range("B" & x & ":IV" & x))=0 And
Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
A+
Bonjour,
il y a quelque temps une âme charitable m'a donné ce code
============================================= >>Sub Supprime_Lignes()
For Each lg In [A1].CurrentRegion.Rows
x = lg.Row
If Evaluate("CountA(" & x & ":" & x & ")") = 1 _
And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
Next
End Sub
============================================= >>
afin de supprimer des lignes vides
c'est dire dans la colonne A j'ai des dates, et si dans les autres
colonnes il n'y a rien la ligne se supprime
c'est ok cela fonctionne bien
mais j'aimeraia maintenant apporter une modification car en réalité dans
les autres colonnes il y a une formule qui apporte une information qui
est soit une valeur positive soit 0
et je souhaiterais supprimer les lignes qui ont des 0
If Evaluate("sum(B" & x & ":IV" & x & ")") = 0 And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete ou if Application.WorksheetFunction.Sum(Range("B" & x & ":IV" & x))=0 And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
A+
Bonjour,
il y a quelque temps une âme charitable m'a donné ce code ============================================= >>Sub Supprime_Lignes() For Each lg In [A1].CurrentRegion.Rows x = lg.Row If Evaluate("CountA(" & x & ":" & x & ")") = 1 _ And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete Next End Sub ============================================= >> afin de supprimer des lignes vides
c'est dire dans la colonne A j'ai des dates, et si dans les autres colonnes il n'y a rien la ligne se supprime c'est ok cela fonctionne bien
mais j'aimeraia maintenant apporter une modification car en réalité dans les autres colonnes il y a une formule qui apporte une information qui est soit une valeur positive soit 0
et je souhaiterais supprimer les lignes qui ont des 0
