Nom d'un OptionButton

[Antoine]

bonjour le Forum,

j"ai regardé sur différents messages sans régler mon Pb qui est le suivant:

Comment renvoyer le nom du OptionButton(Caption) sélectionné d'un UserForm à la procédure appelante.

je vous remercie par avance des solutions que vous pouriez me soumetre.

Antoine

 

[Hervé]

Bonjour


Pas sur d'avoir tout compris mais essaye ceci

Private Sub CommandButton1_Click()
Dim ctrl As Object
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.OptionButton Then
If ctrl = True Then
MsgBox ctrl.Caption
End If
End If


Next ctrl

End Sub

Salut
Hervé

 

[Antoine]

Bonjour Hervé,

je te remercie pour ta réponse rapide, mais il est vrai que j'ai oublié de préciser que je souhaitais récupérer ce nom ou une variable relative au OptionButton ds une variable. Apparement il y aurai la barrière du End Sub infranchissable...

Merci de vos remarques.

 

[Hervé]

re

Déclarer en tête de module une variable comme private te permet de l'utiliser dans tout le module:

private captionoptionbutton as string

Une fois la variable initialisé tu peux t'esn servir dans toute les macros du module.

En espérant avoir compris cette fois.

Salut
Hervé

 

[Abel]

Bonjour Antoine,

Lorsque tu affiches ton UserForm avec les OptionsButton, double clique sur le bouton qui valide la saisie de la forme (bouton OK sans doute) pour obtenir un "Private Sub CommandButton1_Click()" par exemple.

Dans cette procédure, récupère l'état du ou des boutons d'option :
Option1 = OptionButton1
etc

Cette variable peut ensuite être récupérée dans n'importe quel module à condition qu'elle ait été déclarée en Public en tête d'un module.

En espérant que cela te dépanne.

Abel

 

[Antoine]

Re Bonjour à tous,

je vous remercie Abel et Hervé pour vos conseils, mais ils restent sans effets. Ou je n'est rien compris...

j'ai déclaré dans la procédure appelante une variable public As String, et voici la partie du code du Userform qui traite le OptionButton.

Private Sub OptionButton1_Click()
ChT = "ma variable"
Unload UserForm2
End Sub

mais ChT reste désespérément vide .....que faire ?
Merci de vos conseils.

Antoine

 

[Abel]

Re,

En tête d'un module (c'est à dire ni dans feuil1, etc, ni dans worksheet), place un "Public MaVariable as Boolaen".

Regarde l'exemple joint.

Abel

 

[Antoine]

Bonsoir à tous,

Ok, Merci Abel