Discussion :

[kamuidragon]

Bonjour,

je suis débutant, ui faut bien commencer un jour^^.

Ce qui me bloque actuellement, j'ai crée un Userform avec une ligne de 5 "boutons d'options" que j'ai insérer dans un cadre.

Ca laisse 5 choix pour la personne. Or j'aimerai savoir comment on récupère la valeur du bouton coché, puis ensuite la mettre sur une cellule excel...

Pour l'instant mes tentatives se limitent à VRAI ou FAUX.

[Philippe Tulliez]

Bonjour,
Un peu de lecture Utiliser les contrôles dans un UserForm, en VBA Excel et éventuellement celui-ci Utiliser les UserForm en VBA Excel

[kamuidragon]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub choix1_Click()
Dim Ctrl As Control
 
    For Each Ctrl In choix1.Controls
        If Ctrl.Object.Value = True Then
        Worksheets("Réponses sondages").Range("g1") = Ctrl.Object.Value
            MsgBox Ctrl.Object.Caption
            Exit For
        End If
    Next Ctrl
 
End Sub

Voilà le code que j'ai pu rentrer. La valeur renvoyée par "ctrl.object.value" est vraie. Logique vu la ligne au dessus... Mais j'arrive tjrs pas à renvoyé 1,2,3,4 ou 5 qui nomme mes boutons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub OptionButton5_Click()
Sheets("Réponses sondages").Range("c6").Value = "5"
End Sub

Je rajoute ça à chaque bouton et ça fonctionne. Bon c est un peu fastidieux, pas d autres solutions?

[Philippe Tulliez]

Bonjour,
Si tu n'as pas envie de réécrire le code de chaque procédure événementielle des contrôles, il y a les modules de classes mais si tu dis que tu es débutant, ce n'est pas vraiment la partie la plus simple à étudier.
Une autre option est de placer une boucle dans un CommandButton et de mettre à jour la feuille à ce moment là.

Bonjour,
Si j'ai bien compris les sondés doivent répondre à un questionnaire au travers d'un Userform ?
Pourquoi ne pas utiliser des contrôles ActiveX directement sur la feuille ?

[kamuidragon]

Oui j'y ai pensé, mais mon but et objectif c'est de m'améliorer dans l'utilisation d'Excel.

Donc je gratouille de partout. C'est pour un devoir de licence en plus, certes c'est pas pressé (car en effet j'ai déjà fait une version sur une page Excel mais j'aime les défis).

Je sais très bien que j'arriverai pas à un résultat parfait, mais qu'il soit optimal en fonction de mes connaissances .

[Philippe Tulliez]

Bonjour,

Oui j'y ai pensé, mais mon but et objectif c'est de m'améliorer dans l'utilisation d'Excel.

Et bien justement utiliser et maîtriser les outils mis à disposition nativement dans excel est une amélioration certaine de ses connaissances du produit.
Ensuite on peut utiliser le VBA avec plus de facilités. On peut alors écrire en deux trois lignes ce que d'autres vont faire péniblement avec une soixantaine.
J'ai déjà vu des personnes écrire du code ne sachant pas que cela existait nativement dans excel.