Discussion :

[Riri80]

Bonjour,
je cherche le moyen de récupérer l'état d'un bouton radio depuis une macro VBA sans passer par l'événement click.
En effet, j'ai 2 boutons radio disposés directement dans une feuille excel dont l'une peut être déjà cochée à l'ouverture du classeur.
Lorsque je lance une macro, j'aimerai pouvoir faire quelques chose du type :

Code :

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

1
2
If OptionButton1 = True Then toto= "XXXX"
If OptionButton2 = True Then toto= "YYYY"

(j'ai aussi essayé avec If OptionButton1.Value = True Then toto= "XXXX" mais ca marche pas non plus)

Avec les checkbox je n'ai eu aucun problème mais apparement je n'utilise pas la bonne syntaxe avec les boutons radio.
Qq'un connait-il la solution à ce petit pb ?

Merci d'avance

[Krovax]

Chez moi

Code :

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

if optionbutton1 then

fonctionne très bien
Pareille pour les checkbox
Pas la peine de tester si c'est égale a True c'est déja un bouléen
= permet de faire un test qui renvoie TRUE ou FALSE
autant directement prendre une variable a TRUE ou FALSE

[Riri80]

Et bien ca ne fonctionne pas chez moi...
je précise les choses :

Dans une feuille "Feuil1" j'ai 2 boutons radio qui s'appellent OptionButton1 et OptionButton2 et qui font partis du même GroupName.

Dans un module standard Module1, j'ai défini une macro qui réalise des test :

Code :

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

1
2
If OptionButton1 Then toto= "XXXX"
If OptionButton2 Then toto= "YYYY"

Seulement, lors de l'exécution séquentielle du code, l'objet OptionButton1 (ou 2) reste vide (alors que le même principe fonctionne avec une checkbox).

Pourquoi ?
Merci d'avance

[Krovax]

Essaye de préciser ou il est vu que a mon avis tu n'es pas dans le code de la feuil qui contient les bouton

Code :

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

Worksheets("Feuil1").optionbouton1

ou plus direectemet

Code :

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

Feuil1.optionbuton1

[Riri80]

ok ca fonctionne en ajoutant ActiveSheet devant
Merci

[Krovax]

active sheets va planter si par malheur lors de l'execution ce n'est ps le bon onglet qui est selectionné, autant mettre le bon nom. Mais la c'est a toi de voir