UserForm, Frame et OptionButton

Bonjour à tous,

Je me lance pour la 1ère fois dans les UserForm.

Du coup pour réaliser un questionnaire, j'ai suivi les cours d'Excel-Pratique

Lorsque j'utilise Frame et OptionButton, j'ai un bug au moment de l'affichage du résultat...

Dans l'exemple joint, il faut regarder l'UserForm "Question5" car pour les autres j'avais fait des cases à cocher mais ça ne correspond pas car je souhaite qu'il y ait qu'un choix possible.

Par avance merci de votre coup de main.

Bonne journée.

Bonjour,

Essaie comme cela

Private Sub CommandButtonQuestSuiv5_Click()
Dim bouton_colonne As Object
    'Boucle pour chaque contrôle de Frame_colonne
    For Each bouton_colonne In Frame1.Controls
        'S'il s'agit d'un OptionButton
        If TypeOf bouton_colonne Is MSForms.OptionButton Then
            'Si la valeur du contrôle = True (donc si coché) ...
            If bouton_colonne.Value = True Then
                'La cellule A1 prend comme valeur le texte du bouton
                Range("A1") = bouton_colonne.Caption
                Exit For
            End If
        End If
    Next
    Unload Me
End Sub

A+

Bonjour

ci joInt une proposition avec le formulaire questionnaire 1 modifié :

des "optionbuttons" à la place des cases à cocher

la procédure adéquate pour tester les boutons regroupés dans GR1 ( voir propriétés d'un optionbutton créé )

a adapter pour chaque questionnaire suivant

remarques: userform identification

• il faut trouver la première ligne vide pour y mettre les réponses successives et ne pas les écraser
• déclarer cette variable en Public pour la récupérer pour mettre les réponses dans cette ligne
• toutes tes questions pourraient être dans le même formulaire en groupant les boutons sous GR1, GR2 etc

Cordialement

FINDRH

Merci à tous les 2,

@frangy, j'ai compris ce qui n'allait pas chez moi, merci.

@FINDRH, Merci pour cette proposition et ce regroupement en GR

Grâce à vous je vais pouvoir continuer et je reviendrais si j'ai d'autres questions....

Encore merci et bonne journée.