caption de OptionButton

[Evelynetfrancois]

bonjour a tous

je cherche a renvoyer sur une feuille plusieurs infos qui se trouvent dans une USF
dont Le caption de l OptionButton coché

je ne trouve pas la sintaxe !! pouvez vous m aider ?

Range("A4") = le caption de OptionButton qui est coché

merci d'avance pour toutes vos sujétions

E et F

 

[Pierrot93]

Re : caption de OptionButton

Bonjour EvelyneEtFrancois

essaye peut être le code ci dessous

Range("A4").Value = UserForm1.OptionButton1.Caption

bonne fin de journée
@+

 

[Evelynetfrancois]

Re : caption de OptionButton

Bonjour pierrot93
Je te remercie de m'apporter une fois de plus de l aide !!!

Peut être me suis-je mal exprimé ,désolé !
Mon problème n'est pas de renvoyer le caption de L'OptionButton1, mais celui de l ObtionButton qui est coché au moment du renvoie ça peut être l'OptionButton1 ou 2 ou 3 .......OU 7 qui est coché !! suivant le cas

merci pour tout

E et F

 

[Pierrot93]

Re : caption de OptionButton

Re EeF

Ce code doit être déclanché à quel moment, lorsque tu coches l'option bouton ou à partir d'un autre bouton.

1ère hypothese tu mets le code dans l'évènement click de l'option bouton.

2ème hypothèse tu boucle sur les optionbouton comme ci dessous, code à placer dans l'USF :

Adaptation d'un code MichelXLD sur le WIKI.

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then
    If Ctrl.Object.Value = True Then Range("A4").Value = Me.Ctrl.Object.Caption
End If
Next Ctrl

Je n'ai pas testé en l'état.. A voir et à adapter selon ton fichier.

bonne soirée
@+

 

[Jam]

Re : caption de OptionButton

Salut à tous,

Sauf erreur de ma part il te faut mettre pour chaque OptionButton une procédure écrivant dans ton range comme ceci:

Private Sub OptionButton1_Click()
    If Me.OptionButton1.Value = True Then Range("test") = Me.OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
    If Me.OptionButton2.Value = True Then Range("test") = Me.OptionButton2.Caption
End Sub

Bon courage

Oooops: salut Pierrot

 

[Evelynetfrancois]

Re : caption de OptionButton

bonsoir Jam et re pierrot
ha oui , la solution de Jam et pour moi la plus simple en fait
ecrire de suite dans la range suite au clic ,me convient bien !

Merci beaucoup à vous deux pour cette aide supplémentaire
Bonne soirée
E et F

 

[Pierrot93]

Re : caption de OptionButton

Re EeF , bonsoir Sam

Méfie toi tout de même, si tu le mets dans l'évènement clik, car a chaque fois ca modifiera ta cellule, c'est pas très "pro" pour une diffusion utilisateur.

L'avantage de ma 2ème solution, c'est que tu as un seul code à renseigner et tout se déroule à la validation de ton USF. (en plus tout fait plus qu'a recopier...!🙂-

Maintenant je n'ai pas non plus toutes les billes sur ton projet. Et au final c'est tout de même toi le maître d'oeuvre.... lol

Bonne soirée et un bon week end.
@+