[VBA-E] PRobleme avec une boucle DO..LOOP WHILE
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:
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 :)