Déclencher quelques macros "msgbox" d'après un seul bouton [Résolu/Fermé]

Signaler
Messages postés
3008
Date d'inscription
dimanche 22 mai 2005
Statut
Membre
Dernière intervention
11 juin 2021
-
Messages postés
3008
Date d'inscription
dimanche 22 mai 2005
Statut
Membre
Dernière intervention
11 juin 2021
-
Bonjour,

A vrai dire, ce n'est pas un seul bouton. Je m'explique.

J'écris l'exemple que je désirerais.

En cliquant sur un bouton macro, j'ouvre ce message

- Bonjour, comment vas tu?

Là, sur ce message j'ai un bouton "OK". Lorsque je clique sur celui-ci, j'aimerais qu'il m'ouvre un autre message

- Je vais bien, bientôt en vacances

Puis en cliquant sur le bouton "OK" de ce message, j'aimerais ouvrir encore un autre message

- Cette année je vais à la montagne.

Alors la question, comment je procède pour que ces "msgbox" s'ouvrent les uns à la suite des autres?

J'ai inséré un module en écrivant ces msgbox à la suite, mais bien sûr ça fonctionne que pour le premier message, mais rien ensuite.

Merci


1 réponse

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
528
Bonjour,

Tu peux commencer avec cela
Sub Test()
Dim Msg As String
Dim Reponse As Integer
Reponse = MsgBox("Bonjour, comment vas-tu ?", vbExclamation + vbOKOnly, "TEST")
If Reponse = vbOK Then
Reponse = MsgBox("Je vais bien, bientôt en vacances.", vbExclamation + vbOKOnly, "TEST")
If Reponse = vbOK Then
Reponse = MsgBox("Cette année je vais à la montagne.", vbExclamation + vbOKOnly, "TEST")
End If
End If
End Sub

A+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
3008
Date d'inscription
dimanche 22 mai 2005
Statut
Membre
Dernière intervention
11 juin 2021
97
Bjr Gyrus.

Ca fonctionne impect.

Cependant, il y a quelques semaines, on m'avait écrit un code plus simple que celui-là à se souvenir, et que j'ai pu écrire quelquefois.
Et impossible de le retrouver. Probablement que j'ai mis le doc concerné à la corbeille.

Je me souviens qu'après ""Sub Test(), tout de suite j'écrivais "msgbox "Et patati et patata etc..."".

Je j'ai pas de souvenir d'avoir enregistré ce code :
"""""""""""Dim Msg As String
Dim Reponse As Integer - vbExclamation + vbOKOnly, "TEST")
End If
End If"""""""""

Tu n'aurais que cette solution à m'apporter?
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
528 >
Messages postés
3008
Date d'inscription
dimanche 22 mai 2005
Statut
Membre
Dernière intervention
11 juin 2021

La question n'est pas tant de savoir si on peut faire plus court ou plus simple mais plutôt de te demander si la proposition répond à ta demande ou si elle doit être améliorée.
Ensuite, tu peux regarder dans l'aide VBA les informations données sur la fonction MsgBox. Tu verras que les paramètres sont nombreux et permettent quelques adaptations.

A+
Messages postés
3008
Date d'inscription
dimanche 22 mai 2005
Statut
Membre
Dernière intervention
11 juin 2021
97
Oki Gyrus.

Donc, ça répond à la demande.

Je vais regarder dans l'aide VBA comme tu le préconises.

Merci, bsr