Sub Afficher()
Dim Answer As Variant
Dim Réponse As Byte
Do Until Answer = "p" Or Answer = "t" Or Answer = "a"
Answer = Application.InputBox("Merci de donner votre réponse : p pour partiel, t pour total, a pour abandonner l'application", Type:=2)
Loop
Select Case Answer
Case "p"
MsgBox "Je lance la procédure pour le traitement partiel"
' ici code mais pas le sujet de ce fil ...
Case "t"
MsgBox "Je lance la procédure pour le traitement total"
' ici code mais pas le sujet de ce fil ...
Case "a" ' l'utilisateur a choisi d'abandonner
Réponse = MsgBox("Voulez-vous vraiment abandonner ?", vbQuestion + vbYesNo)
If Réponse = vbYes Then
MsgBox "Fin de la procédure ... au revoir"
Exit Sub
Else ' dernière chance pour quand même choisir le partiel ou le complet
' c'est là que je ne sais pas comment revenir au choix initial où finalement
‘ l'utilisateur pourra choisir p ou t
End If
End Select
End Sub