Salut, je debute severement en VBA et j'ai un souci maintenant avec une boucle DO....LOOP WHILE. J'ai fait des recherches, j'ai essayé differentes structures de boucles (IF..Then ; WHILE...Wend....), mais rien ne marche.

Objectif de la boucle :
En gros la boucle doit étudier la somme de deux cellules de chaque ligne,
supprimer la ligne entière si resultat =0
et passer à la ligne suivante si resultat différent de 0
Elle doit continuer jusqu'à ce que la premiere cellule de la ligne soit vide
Quand il rencontre cette cellule, il doit charger le N° de la ligne

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[Private Sub CommandButton1_Click()
 
Dim ligne As Integer
Dim ligneVar As Integer
 
ligne = 7
 
Do
    If Cells(ligne, 3) + Cells(ligne, 4) = 0 Then
    Rows(ligne).Delete
    ligne = ligne - 1
    Else
    ligne = ligne + 1
Loop While Cells(ligne, 1) <> ""
 
ligne = ligneVar
 
End Sub
Le message d'erreur à l'execution m'etonne, car la syntaxe me parait ok ; il me dit : "Erreur de compilation : boucle sans DO"....

Quelqu'un pourrait m'aider à comprendre mon erreur?

MErci , merci