Sujet Précédent Sujet Suivant

Récupérer les réponses aux MsgBox et les comparer

Fermé
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 23 oct. 2019 à 20:56
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 24 oct. 2019 à 14:09
Bonjour forumeurs,
Je patauge pour récupérer et comparer les réponses à deux MsgBox
Sachant que c'est le Yes (Oui) qui est à prendre en compte sur les 2 MsgBox
Je vous remercie de l'aide par les codes que vous m'apporterez

1er MsgBox "Question" vbYesNo

2eme MsgBox "Confirmation" vbYesNo

Comparer si Yes a été cliqué sur chaque MsgBox 

If réponse Question = réponse Confirmation Then
macro 1
Else 
macro 2
End If





Configuration: Windows / Firefox 69.0

1 réponse

Réponse 1 / 1
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
24 oct. 2019 à 14:09
La solution était : 
Sub test()
    If MsgBox("Question ?", vbYesNo) = vbYes And MsgBox("Confirmation !", vbYesNo) = vbYes Then
        MsgBox "réponse postive" 'lance macro 1
    Else
        MsgBox "réponse négative" 'lance macro 2
    End If
End Sub
0

Discussions similaires

Comment récupérer mon compte Facebook sans pièce d'identité ?
Meki -
Adepte de la quenelle -

81 réponses