Re : Message box
Bonjour
Il faut intercepter la réponse et ensuite la tester
Ci dessous un exemple de macro
:input1
' affichage boite de saisie
' confirmation de la réponse
Dim Title1 as string
Dim Msg As String
Dim Style As String
Dim Reponse2 As String
Title1 = " " 'Titre de la zone de saisie
Msg = ' variable qui contient la réponse de la boite de saisie
Msg = Msg & (Chr(13) & Chr(10)) & " " ' on rajoute une ligne dans la boîte
Style = vbYesNoCancel + vbCritical + vbDefaultButton2
' Affiche le message pour validation.
Reponse2 = MsgBox(Msg, Style, Title1)
If Reponse2 = vbYes Then .......
If Reponse2 = vbCancel Then Exit Sub
If Reponse2 = vbNo Then GoTo input1' retour à la question précédente
JP