Msgbox excel

Résolu
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention   -  
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,
J'aimerai créer une msgbox qui demande à l'intervenant si on veut inscrire d'adhérent.

MsgBox "Voulez-vous inscrire l'adhérent ?", vbYesNoCancel + vbInformation, "Informations"
Call Inscription


Si OUI, elle appelle une macro Inscription
Si NON, la fenêtre se ferme sans modification

Je dois oublier des infos car je n'arrive pas à apppeler la macro Inscription quand on clique sur le bouton OUI

Je ne sais pas encore utiliser les userforms et je pense qu'il y a des infos à donner mais... si une âme charitable veut bien me renseigner, ce serait super sympa de sa part. Dans cette attente, je continue de chercher

Merci à tous et bonne soirée
Evelyne



A voir également:

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Essaye comme ceci : 

If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then 
   ...  
Else 
   ... 
End If

Mytå
0
Réponse 2 / 2
patrice
 
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
0
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

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å
0