Discussion :

[guigui69]

Bonjour à tous,

J'ai insérer dans un document excel 2 bouton case d'option (activex), et je voudrait savoir comment vérifier la valeur en VBA.

Exemple Si bouton "compta" choisit alors cela execute telle code VBA sinon si c'est "comm" alors c'est ce code si etc...

j'ai testé avec un seul bouton que je n'ai pas renommé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If OptionButton1.Value = True Then
MsgBox ("ok")
End If

J'ai l'erreur==> Erreur 424 :Objet requis

Quelle erreur est-je commis?

guigui69

[jfontaine]

Bonjour,

pour moi, l'erreur se trouve au niveau du msgbox

pour afficher un messagebox sans récupération de la réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "ok"

Pour tester Si la réponse à la msgbox est oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If MsgBox("oui ou non?", vbYesNo, "Attente réponse") = vbYes Then
    MsgBox "traitement oui"
End If

EDIT : oups, ça fonctionne aussi avec les parenthèses

Ou est placé ton code? dans la feuille ou se trouve les objets?

[guigui69]

Merci mais c'est le msgbox le problème.

C'est au niveau du optionbutton.

Je me suis peut etre (surment) mal prit.

J'ai juste créé ces 2 boutons, et j'ai de récupérer la valeur en VBA.

Ou est mon erreur?

guigui69

[Philippe Tulliez]

Bonjour,
Les trois lignes que tu montres semblent correctes.
L'objet ActiveX OptionButton et le code VBA se trouvent ils bien dans le même Objet feuille ?
Comment enclenches tu cette procédure ?

[bastou93]

Pense à préciser soit ta feuille soit ton userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If USERFORM1.OptionButton1.Value = True Then
MsgBox "ok"
End If