VBA Excem, récupéré la reponce d'un optionbutton

Question

bonjour bonjour
j'ai créé un petit userform et j'ai posé une question, et j'ai proposé 2 réponces oui et non, j'ai donc créé 2 optionbouton pour cela, mais mon probleme c'est que je n'ai rien trouvé dans l'aide vba qui explique comment récupérer la valeur cliqué.
est ce que quelqu'un connaitré la fonction que permettre de récupérer la valeur de l'optionbutton.

merci bien

drikce06 · Answer

salut
pourquoi tu n'as tout simplement mis des bouttons oui et non

dim r as integer
r = msgbox("question",vbyesno+vbquestion,"title")

if r = 6(yes) then

 [code]

else

[code]

end if

 Drikce 06

domsig · Answer

bonjour
tu as bien cherché ?
si ton bouton s'appelle option1 et qu'il correspond à "oui" tu fais 
if option1.value=true then
réponse="oui"
end if

voilà voilà
bon courage

drikce06 · Answer

excuse moi j'ai répondu à coter de la plaque ! j'ai cru que tu faisait un msgbox.
sinon domsig a raison.

 Drikce 06

lolpop · Answer

Quand je parle de "bouton" c'est le rond a cocher ou il ne peut y avoir qu'une seul solution cocher a la fois, dans mon sujet il y a que de réponse mais j'en rajouterai 2 voir 3 en plus dans certain cas.
comment je doit faire si j'ai 4 possibilité je doit mettre 4 fois ton code?
merci de prendre du temps en tout ca pour moi :)

drikce06 · Answer

Hé oui c'est lourd mais tu est obligé

if optionbutton1= true then
if optionbutton2= true then
if optionbutton3= true then
.
.
.
if optionbuttonN= true then

 Drikce 06

domsig · Answer

heuuuuuuuu... pas tout à fait complètement entièrement d'accord avec Drikce06... (désolé hein)
si tu as 2 boutons (option1 et option2) qui s'excluent mutuellement un seul code suffit : 
if option1.value=true then (c'est le 1 qui est coché)
code
else (bah sinon c'est le 2)
code
end if

bon courage

lolpop · Answer

d'accord merci a vous deux,
je sens que mon code va etre lourd lol parceque le oui non c'étais un entrainement pour voir comment ca marche  :)

drikce06 · Answer

Oui mais il a dit qu'il pouvait en avoir plusieur par la suite
mais deja pour écrire un peu moins tu les renomes
genre opt1, opt2 ou optoui, optnon

 Drikce 06

mortalino · Answer

Ah lala ! Vous l'embrouillez !

Coché : 

OptionButton.Value = True
OptionButton.Value = 1
OptionButton.Value = vbChecked

Décoché : 

OptionButton.Value = False
OptionButton.Value = 0
OptionButton.Value = vbUnchecked

C'est tout.

@ ++

Mortalino

drikce06 · Answer

C'est moi que tu viens d'embrouyer maintenant mortalino lol!

 Drikce 06

mortalino · Answer

En fait j'ai mis les trois possibilités... pour chaque cas.

Et je vous passe le coup de la CheckBox cochée et grisée !

@ ++

Mortalino

VBA Excem, récupéré la reponce d'un optionbutton

11 réponses

Votre réponse

Discussions similaires