Msgbox vbyesno sous conditions

zaz -  
Bonjour,
Je desire lancer une msgbox a l ouverture d un classeur excel comprenant plusieurs feuilles. Cette msgbox se lance automatiquement a l ouverture du classeur. Si vbNO, alors elle se ferme et rien d autre n est lance. Si vbYes, je desire qu elle lance une autre macro sur toutes les autres feuilles de mon classeur.
Merci beaucoup pour votre aide!
Configuration: Windows XP Internet Explorer 6.0

4 réponses

  • Votes
  • Date
  • Date décroissante
  1. lermite222 Contributeur
    Bonjour,
    Drôle de question... Tu ne connait pas la touche F1 ?
    Bon, puisque j'y suis 
    If MsgBox("Texte",VbYeNo,"Titre") = VbYes then

       'C'est oui

    else

       'C'est Non

    End If
    Remarque le parenthèses.
    A+
    1. zaz
      Merci de votre reponse mais je crains alors m etre mal exprimee.
      J ai bien ceci
      If MsgBox("Texte",VbYeNo,"Titre") = VbYes then
      'C'est oui
      else
      'C'est Non
      End If
      avec une procedure aui ouvre une message box sur chaque feuille si la reponse est oui. mais si la reponse est non, cette msgbox s ouvre quand meme en posant la question sur les autre feuilles alors que je souhaite que quand la reponse est "non", elle ne s affiche plus sur les autres feuilles non plus.
      Autrement dit:
      voila peut etre un exemple
      feuilles 1. 2 . 3
      ouverture du classeur: feuille 1 msgbox vbyesno
      si yes alors msgbox specifique a feuille 1 s affiche ( que j ai deja)
      puis msbgox vbyesno sur feuille 2 ,..
      si no alors rien ne se lance plus nul part...
      1. lermite222 Contributeur
        Si je comprend bien ?...
        dans un module général. 
            Public DejaOui as boolean

        et dans les module de feuille... 
        If not DejaOui then 'ou l'inverse, je comprend pas bien ton sens
    If MsgBox....
    DejaOui = True
end if