Discussion :

[AliochaBada]

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 ;)

[Persons]

Si ca peut t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
While Feuil1.Cells(ligne, 1) <> ""
    If Feuil1.Cells(ligne, 3) + Feuil1.Cells(ligne, 4) = 0 Then
        Feuil1.Rows(ligne).Delete
        ligne = ligne - 1
    End If
    ligne = ligne + 1
Wend

[AliochaBada]

A fond que ca m'aide Merci tout plein

Ca donne ça et ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButtonSuppNuls_Click()
 
Dim ligne As Integer
ligne = 7
 
While Cells(ligne, 1) <> ""
If Cells(ligne, 3) + Cells(ligne, 4) = 0 Then
Rows(ligne).Delete
ligne = ligne - 1
End If
ligne = ligne + 1
Wend
 
End Sub

J'ai même compris le ligne = ligne - 1 avec mes neurones encore éveillés à 1h du mat", c'est pour que le programme ne saute pas la ligne qui vient d'avancer d'un cran après la suppresion, c'est bien ca?


Trop classe , merci encore Persons