vba yes no box
Dim answer As Integer answer = MsgBox("Text", vbQuestion + vbYesNo + vbDefaultButton2, "Message Box Title") If answer = vbYes Then MsgBox "Yes" Else MsgBox "No" End If
Source: www.automateexcel.com
vba yes no box
Sub effacerB2() If MsgBox("Etes-vous certain de vouloir supprimer le contenu de B2 ?", vbYesNo, "Demande de confirmation") = vbYes Then Range("B2").ClearContents MsgBox "Le contenu de B2 a été effacé !" End If End Sub