XL 2019 MsgBox vbOKCancel

gg13 · 24 Octobre 2022

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 · 24 Octobre 2022

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 :

VB:

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

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

Soit directement

Code:

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 · 24 Octobre 2022

Hello
essai avec ce code

VB:

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 · 24 Octobre 2022

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

XL 2019 MsgBox vbOKCancel

gg13

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

gg13

XLDnaute Occasionnel

Discussions similaires