vba do while until je m'embrouille

Bonjour,

J'ai le cerveau fameusement embrumé

Code:

---

1 2 3 4 5 6 7

lPrecedente = -2 Do '... lPrecedente = lPrecedente + 1 If lPrecedente = 0 Then Exit Do Loop

---

until, while, comment et où les placer ?

Bonjour,
Si vous souhaitez interrompre la boucle lorsque la valeur de la variable lPrecedente est égale à 0, voici un exemple :

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim lPrecedente As Integer lPrecedente = -2 Do While lPrecedente <> 0 '... lPrecedente = lPrecedente + 1 Loop End Sub

---