Discussion :

[Socrate127]

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

[ucfoutu]

Bonjour,

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

Code :

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

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 :

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

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 ...