XL 2013 Afficher valeurs textbox en fonction d'un bouton d'option

[tit32600]

Bonjour à tous,

Grace à mon formulaire, je souhaites en fonction du bouton d'option choisi, inscrire dans ma cellule, la valeur de ma textbox.

Je m'explique:

Si mon candidat "TOTO" est inscris dans ma textbox1, et si je choisi qu'il appartient au syndicat "CFDT", je souhaite que toto soit renvoyé dans ma cellule "D4".

J'ai nommé mes bouton d'option, en fonction de la coordonnée de ma cellule.

Mais je coince sur la manière dont je doit inscrire cette macro.

Merci encore de votre aide

Titi32600

 

[Robert]

Bonjour Tit bonjour le forum,

Vu comment tu as nommé tes contrôles, je coderais comme ça :

Private Sub Valider_Click()
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
Dim OC As Worksheet 'déclare la variable OC (Onglet Candidats)

Set OC = Sheets("Candidats") 'définit l'onglet OC
For Each CTRL In Me.Controls 'boucle sur tous les contrôles CTRL de l'UserForm1
    If TypeOf CTRL Is MSForms.OptionButton Then 'condition 1: si le contrôle est un bouton d'option
        'si le contrôle est coché renvoie dans la cellule ayant comme adresse le nom du contrôle
        'la valeur de la textbox numéro : ligne du nom du contrôle -3
        If CTRL.Value = True Then OC.Range(CTRL.Name).Value = Me.Controls("TextBox" & Cint(Mid(CTRL.Name, 2)) - 3).Value
    End If
Next CTRL 'prochain contrôle de la boucle
End Sub

 

[tit32600]

Salut Robert,

Merci encore de ton aide, cela me convient tres bien.

Rapide et efficace.

Titi32600