Bonjour,

je ne comprends pas pourquoi ma boucle plante. Quelqu'un a t'il une idée?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
For i = 10 To 37 Step 2
    xi = Worksheets("Géométrique").Cells(i, 8).Value
    x1i = Worksheets("Géométrique").Cells(i + 1, 8).Value
 
    Do
        yi = xi + x1i
 
    Loop While (x1i <> 0) Or (xi <> 0)
    Worksheets("Géométrique").Cells(i, 9).Value = yi
Next i
End Sub