Msgbox excel
Résolu/Fermé
Evedll
Messages postés
74
Date d'inscription
vendredi 6 juillet 2007
Statut
Membre
Dernière intervention
26 septembre 2023
-
26 juin 2011 à 20:56
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 26 juin 2011 à 23:50
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 26 juin 2011 à 23:50
A voir également:
- Msgbox excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
Modifié par Mytå le 26/06/2011 à 21:32
Modifié par Mytå le 26/06/2011 à 21:32
Salut le forum
Essaye comme ceci :
Mytå
Essaye comme ceci :
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then ... Else ... End If
Mytå
Bonjour Evelyne
Pour tester la réponse il faut mettre une variable devant le msgbox et tester la valeur.
si on clique sur Oui la variable aura la valeur 6
si on clique sur Non la variable aura la valeur 7
si on clique sur Annuler ou la croix rouge (fermer) la variable aura la valeur 2
une condition permet ensuite d'appeler la macro inscription.
exemple
Sub test()
Dim reponse As Byte
reponse = MsgBox("Voulez-vous inscrire l'adhérent ?", vbYesNoCancel + vbInformation, "Informations")
If reponse = 6 Then Call inscription
End Sub
Sub inscription()
'programme
End Sub
Cordialement
Pour tester la réponse il faut mettre une variable devant le msgbox et tester la valeur.
si on clique sur Oui la variable aura la valeur 6
si on clique sur Non la variable aura la valeur 7
si on clique sur Annuler ou la croix rouge (fermer) la variable aura la valeur 2
une condition permet ensuite d'appeler la macro inscription.
exemple
Sub test()
Dim reponse As Byte
reponse = MsgBox("Voulez-vous inscrire l'adhérent ?", vbYesNoCancel + vbInformation, "Informations")
If reponse = 6 Then Call inscription
End Sub
Sub inscription()
'programme
End Sub
Cordialement
Evedll
Messages postés
74
Date d'inscription
vendredi 6 juillet 2007
Statut
Membre
Dernière intervention
26 septembre 2023
26 juin 2011 à 21:51
26 juin 2011 à 21:51
Bonsoir à vous deux,
Je vous remercie pour votre aide car maintenant, j'ai bien compris ce qui me manquait.
Je vais pouvoir utiliser ces formulaires plus facilement (du moins je l'espère).
Un grand merci et bonne soirée
Evelyne
Je vous remercie pour votre aide car maintenant, j'ai bien compris ce qui me manquait.
Je vais pouvoir utiliser ces formulaires plus facilement (du moins je l'espère).
Un grand merci et bonne soirée
Evelyne
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
942
26 juin 2011 à 23:50
26 juin 2011 à 23:50
Re le forum
Patrice, pas besoin de variable pour le cas demandé
Mytå
Patrice, pas besoin de variable pour le cas demandé
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then 'Traitement si réponse Oui Else 'Traitement si réponse Non End If
Mytå