Salut Carlos, salut le forum,
une variable de type (byte) a = MsgBox("ton message", tes boutons, "ton titre") va ranvoyer une valeur en fonction du bouton appuyé.
tes boutons pevent être OK (vbOkOnly ou 0), Ok et Annuler (vbOKCancel ou 1), Abandonner, Réessayer et Ignorer (vbAbortRetryIgnore ou 2), Oui, Non et Annuler (vbYesNoCancel ou 3), Oui et Non (vbYesNo ou 4), Réessayer et Annuler (vbRetryCancel ou 5)
Donc en fonction des boutons que tu auras demandé dans ton message, la variable a prendra la valeur suivante : 1 si tu cliques sur Ok, 2 pour Annuler, 3 pour Abandonner, 4 pour Réessayer, 5 pour Ignorer, 6 pour Oui et 7 pour Non.
À partir de la voici un exemple répondant à ta demande :
Public Sub message()
Dim a As Byte
a = MsgBox(" Voulez vous conservez ces valeurs ?", 4, "Ton titre")
If a = 6 Then
'ici tu appelle la macro 1 : Call macro1
MsgBox "la macro1 est lancé"
Else 'non =7 mais j'ai préféré dire "esle : sinon, donc si pas 6"
'ici tu appelle la macro 2 : Call macro2
MsgBox "la macro2 est lancé"
End If
End Sub
À plus,
Robert
ps il y a d'autres paramètres que ne t'ai pas décrit comme le symbole qui peut apparaître dans ton message et le bouton actif par défaut que tu peux modifier (par défaut c'est le premier)