Macro OptionButton1
Résolu
Bonjour,
je n'arrive pas à programmer un truc tout simple.
Dans un Userform1 j'ai 2 optiobutton (Optionbutton1 et 2) avec des bouttons de commandes qui sont désactiver à l'ouverture du userform.
Je cherche a faire une macro à l'ouverture du userform1 pour :
les options butons ne sont pas cochés
Les boutons de commandes sont désactivés
Si un des 2 options buton est activé alors je désactive les boutons de commande.
(sinon tant que un des 2 option buton n'est pas coché alors les buttons de commande sont désactiver (aucun click possible sur le bouton de commande)
sinon un message "; veuillez activer un des 2 bouton option;VBOKonly;"
faire une boucle avec IF ou un Do While
merci pour vos proposition de macro.
je n'arrive pas à programmer un truc tout simple.
Dans un Userform1 j'ai 2 optiobutton (Optionbutton1 et 2) avec des bouttons de commandes qui sont désactiver à l'ouverture du userform.
Je cherche a faire une macro à l'ouverture du userform1 pour :
les options butons ne sont pas cochés
Les boutons de commandes sont désactivés
Si un des 2 options buton est activé alors je désactive les boutons de commande.
(sinon tant que un des 2 option buton n'est pas coché alors les buttons de commande sont désactiver (aucun click possible sur le bouton de commande)
sinon un message "; veuillez activer un des 2 bouton option;VBOKonly;"
faire une boucle avec IF ou un Do While
merci pour vos proposition de macro.
5 réponses
-
Bonjour,
En fait, c'est un exercice ???
Ôo -
non c perso pour moi au travail.
je fais une macro mais c pas exactement ça ,
privatesub userform activate
commande button1.enabaled = false
debut:
if optionbutton1 =false then
goto suite1
else goto fin
end if
suite1:
if optionbutton2= false then
goto suite2
else goto fin
endif
suite2:
a=msbox("cocher la case"; vbOk;)
if a = vbok then goto debut
end if
'et la ça ne remonte pas au debut mais ça lance ensuite le userfom
fin:
Commandbutton1.enabled = true
userform2.show
end sub
je veux un truc de ce genre qui débloque les boutton de commde et lorsque c'est débloquer alors le userfor1 peut s'afficher !!! est ce possible? -
ContributeurSalut le forum
Tu as relu ton premier message !
«Je cherche a faire une macro à l'ouverture du userform1 pour :
Les options boutons ne sont pas cochés
Les boutons de commandes sont désactivés
Si un des 2 options buton est activé alors je désactive les boutons de commande»
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)] -
Oula ...
C'est de moins en moins compréhensible ton histoire ...
lorsque c'est débloquer alors le userfor1 peut s'afficher
C'est quoi le "userfor1" ?
Si tes optionButtons 1 et 2 sont sur "userfor1" comment veux tu les activer avant l'affichage du userform ???
De plus tu mets les évènements des optionbuttons dans l'initialisation du formulaire !!!
Les gotos sont à proscrire dans un code.
A quoi servent tes optionbuttons ? puisque de toute façon le click sur l'un où l'autre ouvre le 2ème formulaire ... Ôo
Rien n'est cohérent ni dans ce que tu demandes, ni dans ce que tu codes.
Copie à revoir.
Prend le temps de lire ma devise, quand tu l'auras comprise, tu auras fait un grand pas vers ce que tu cherches à faire.
;o) -
userfor1 = userform2 (oubli du m et confusion entre 1 et 2)
Myta : excuse, mais j'active mes boutons de commande lorsque un des 2 est activé pour pouvoir ensuite afficher le userform2.
bon je vais faire des test et des test<;
merci
:)
