Déclencher quelques macros "msgbox" d'après un seul bouton
Résolu
Mots croisés
Messages postés
3093
Date d'inscription
Statut
Membre
Dernière intervention
-
Mots croisés Messages postés 3093 Date d'inscription Statut Membre Dernière intervention -
Mots croisés Messages postés 3093 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Déclencher quelques macros "msgbox" d'après un seul bouton
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Bouton shift pc - Forum Jeux vidéo
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
1 réponse
Bonjour,
Tu peux commencer avec cela
A+
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+
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?
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+
Donc, ça répond à la demande.
Je vais regarder dans l'aide VBA comme tu le préconises.
Merci, bsr