Nom d'OptionButtons

Bonjour à tous

Je débute complétement dans la programmation sous VBA aussi je suis désolée si ma question vous semble bête.

Je vous explique:

Je souhaite créer un tableau à partir d'une userform qui comprendra plusieurs textbox et option buttons.

les option buttons s’appelleront par exemple "A", "B" et "C".

L'idée est qu'en validant les résultats choisis, le contenu des textbox s'affiche dans les colonnes 1,2 et 3 et que le nom (A, B ou C) donné à l'option button sélectionné soit inscrits dans la colonne 4.

Sachant qu'en plus, on ne doit pouvoir sélectionner qu'un seul option button.

Voilà

Merci d'avance à tous ceux qui voudront bien m'apporter un peu d'aide.

A bientôt !

Carapuce

Bonjour

Une vision de la choooose

Private Sub CommandButton1_Click()
' Sauvegarde
Dim I As Integer
Dim Ligne As Long

  Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1

  For I = 1 To 3
    If Me.Controls("OptionButton" & I).Value = True Then
      Range("D" & Ligne) = Me.Controls("OptionButton" & I).Caption
      Exit For
    End If
  Next I
End Sub
carapuce27 a écrit :

Sachant qu'en plus, on ne doit pouvoir sélectionner qu'un seul option button.

C'est déjà dans les gènes de l'optionButton d'être seul

Merci pour la réponse !

J'ai essayé ce code , assez similaire à ce que j'avais tenté. Excel m'informe pourtant d'une erreur:

erreur de compilation

membre de méthode ou de données introuvable

"For I = 1 To 3

If Me.Controls("OptionButton" & I).Value = True Then

Range("E" & Ligne) = Me.Controls("OptionButton" & I).Caption

Exit For

End If

Next I"

En me surlignant "Controls"....

Merci encore

Carapuce

Bonjour

En l'absence de fichier j'ai travaillé avec des OptionButton d'un Userform

Donc cette macro est à mettre dans le code de l'userform

Voici mon fichier

Il est un peu brouillon mais j'espère que ça sera plus clair.

Merci d'avoir pris le temps de me répondre.

Carapuce

38essai-orage.zip (11.88 Ko)

Bonjour

A voir

Merci

ça ira très bien !

Rechercher des sujets similaires à "nom optionbuttons"