retour en arrière dans le code

[jeremy29100]

Bonjour,

Je viens à vous avec une question qui est peut-être bête mais je n'ai pas réussi à résoudre le problème seul.
Je possède un code avec une msgbox question, et suivant la réponse à la question, j'aimerais faire un retour en rrière dans le code. Existe-il une fonction simple qui le fasse?

If x=0 Then
RETOUR ICI
Bout de code
Else 

Dim Rep As Integer        
Rep = MsgBox("Voulez-vous continuer et utiliser le bout de code ?", vbYesNo + vbQuestion, "Question")        
If Rep = vbYes Then
Retour juste avant bout de code
End If
End If

Avez-vous une idée de comment faire?

En vous remerciant par avance.

Jérémy

 

[Dranreb]

Re : retour en arrière dans le code

Bonjour

Préférez en tout cas les Do. Do Until Rep = VbNo, ici. N'utiliser une étiquette Début: avec un GoTo Début quelque part qu'en dernier recours, ça pousse souvent à en mettre d'autres, GoTo Fin, et c'est contraire à l'esprit des évolutions de langages. En outre il n'est pas correct d'entrer comme ça dans un bloc conditionné par un If Then. Il est toujours possible de l'éviter.

 

[Pierrot93]

Re : retour en arrière dans le code

Bonjour,

voir ici:
retour en arrière dans le code : Excel - VBA
bon après midi
@+

 

[sousou]

Re : retour en arrière dans le code

Bonjour.
Tu peux utiliser le goto, bien que cette instruction ne soit pas recommandé goto: etiquette
ou changer changer ton code du genre:

if x=0 then
flag=1
while flag=1
bout de code
else
Dim Rep As Integer
Rep = MsgBox("Voulez-vous continuer et utiliser le bout de code ?", vbYesNo + vbQuestion, "Question")
If Rep = vbYes Then flag=1 else flag=0

End If

j'ai pas testé !

 

[jeremy29100]

Re : retour en arrière dans le code

Merci à tous!