XL 2019 MsgBox vbOKCancel

[gg13]

Bonjour,
Je voudrai crée un MsgBox avec choix oui ou non avec vbOKCancel pour utiliser la réponse oui ou non.

J'ai testé
MsgBox Sheets("Init").Range("G7").Value, vbOKCancel
avec

If vbOKCancel= 1 Then ' Yes.
Sheets("D").Select
Else
Exit Sub ' No
End If

Mais que je réponde oui ou non la valeur de vbOKCancel est toujours 1
alors que ce devrait être
oui=1
non = 0
Merci de votre aide, je n'ai pas trouvé la réponse dans la section recherche.
GG13

 

[Hasco]

Bonjour,

MsgBox s'emploie soit comme une méthode soit comme une fonction.
Si vous l'employez comme une fonction, c'est le résultat de la fonction qui change, pas la Constante VbOkCancel.

Soit :

Dim Réponse as variant
Réponse = MsgBox(....,VbOkCancel)

If Réponse = VbOk Then ....
Else
End if

Soit directement

If MsgBox(...,VbOkCancel) = VbOk Then
Else
End if

Utilisez l'éditeur de code pour publier du code !
bouton '</>' de la barre d'outil des messages

 

[vgendron]

Hello
essai avec ce code

Sub test()


If MsgBox(Sheets("Init").Range("G7").Value, vbOKCancel) = vbYes Then ' Yes.
    Sheets("D").Select
Else
    Exit Sub ' Cancel
End If
End Sub

 

[gg13]

Rebonjour,
J'ai utilisé la méthode la plus courte
If MsgBox(...,VbOkCancel) = VbOk Then
Else
End if
C'est super.
Merci à vous deux.
GG13