Discussion :

[Blaise]

Bonjour,

J'ai le cerveau fameusement embrumé

Code :

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

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 ?

[Philippe Tulliez]

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

Code :

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

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