Salut

je m'en sors pas je veux dans un tableau organisé par lignes, automatiser la suppression des lignes dont la somme de deux cellules egale à 0

J'ai trouvé des infos interessantes sur :

- comment faire une boucle de maniere à scanner chaque ligne jusqu'à rencontrer une cellule de la colonne A nulle :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
ligne = 1
while worksheets("tafeuille" ).cells(ligne,1) <> ""
userform1.label.caption=cells(ligne,1)+userform1.label.caption
ligne = ligne + 1
Wend
- comment présenter la fonction SOMME :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.Sum(Range("C7:D7" ))
Alors j'ai écrit le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButtonSuppNuls_Click()
ligne = 7
While Worksheets("A Convertir" ).Cells(ligne, 1) <> ""
If Application.Sum(Range("Cligne:Dligne" )) = 0 Then ligne(ligne).Delete
ligne = ligne + 1
Wend
End Sub
Mais bon, c'est pas au point, ca bugg dès le départ. Quelqu'un pourrait me corriger ces lignes, ce serait vraiment super cool, je pourrais passer à la suite ;)