Msgbox vbyesno sous conditions

Fermé
zaz - 16 juil. 2009 à 11:18
 zaz - 27 juil. 2009 à 12:08
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!

4 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
16 juil. 2009 à 11:37
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+
5
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...
2
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
16 juil. 2009 à 14:08
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
2
Merci beacoup de votre aide!
1