Microsoft 365 Message Box oui/non

[Francky79]

Bonjour le forum,

Dans une macro je voudrais une message box pour pouvoir sauter une étape si réponse non.

Sub Validation_AR()
With CommandButton5
arret = True
End With
ActiveCell.Offset(0, -3).Activate
    Selection.ClearContents
    ActiveCell.Offset(0, -5).Activate
    'Si réponse oui dans message box j'écris en gras si réponse non la macro continue
    Selection.Font.Bold = True ' Bloc optionel
    ActiveCell.Copy
    ActiveCell.Offset(0, -2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
With CommandButton5
arret = False
End With
End Sub

Merci pour votre aide

 

[fanch55]

Salut,

if msgbox("blablabla",vbQuestion + vbYesNo) = vbYes then Selection.Font.Bold = True

 

[Francky79]

Salut,

if msgbox("blablabla",vbQuestion + vbYesNo) = vbYes then Selection.Font.Bold = True

Ok merci impeccable