Loop while qui plante

Bonjour,

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

Code:

---

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

---

Bonjour,

Déjà, je ne comprends pas l'utilité de

Code:

---

1 2 3 4

Do yi = xi + x1i   Loop While (x1i <> 0) Or (xi <> 0)

---

car il est évident que si (x1i <> 0) Or (xi <> 0), alors, forcément, yi <> 0

et ce serait alors tout bêtement :

Code:

---

If yi <> 0

---

et je ne comprends pas non plus l'intérêt d'une boucle qui ne boucle finalement pas ...

Mais j'ai sommeil et peux me tromper ...:lol: