Msgbox excel

Résolu
Evedll -  
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

2 réponses

  1.  Mytå Contributeur
    Salut le forum

    Essaye comme ceci : 

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

    Mytå
    0
    1. 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
      1. Evedll Auteur
        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
      2. Mytå Contributeur
        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