OptionButton aide

[rem13]

Bonsoir,

Je me permets de poster une discussion,

J'ai crée un user form simple avec un label "Etes vous satisfait de l'application ?"

Deux OptionButton : Oui et non

et un commande bouton : Valider

Je voudrai savoir comment faire pour que quand l'utilisateur clique sur oui ou sur nom cela affiche "oui" ou "non" sur une feuille excel "Test", et qu'a chaque fois que le choix est fait une nouvelle ligne pour chaque réponse.

Pour pouvoir faire un graphique sur les réponses en pourcentage de Oui et Non et mettre le graphique dans un userform pour que l'utilisateur est le résultat après avoir répondu à la question.

Merci d'avance.

 

[Calvus]

Bonsoir,

If OptionButton1 Then
Range("D" & Rows.Count).End(xlUp).Rows(2) = "oui"
Range("E" & Rows.Count).End(xlUp).Rows(2) = "x"
End If
If OptionButton2 Then
Range("E" & Rows.Count).End(xlUp).Rows(2) = "oui"
Range("D" & Rows.Count).End(xlUp).Rows(2) = "x"
End If

A+

 

[rem13]

Merci, mais comment envoyer les réponses sur ma feuille "Test" et la programation que vous venez de me donner, je dois l'insérer dans "Private Sub CommandButton1_Click()" ?

merci d'avance

 

[Calvus]

Re,

Sheets("Test").Range("D" & Rows.Count).End(xlUp).Rows(2) = "oui"

Dans Private Sub OptionButton1_Click()

A+

 

[rem13]

Super cela fonctionne, merci encore.

Bonne soirée.

 

[rem13]

J’en profite pour une dernière demande, grâce à ta programmation j’ai pu faire un graphique camenbert et j’aurai voulu savoir comment faire pour le faire apparaître sur un userform, qu’il soit dynamique à chaque nouvelle valeur le camenbert change.

En espérant que cela soit possible.. merci d’avance

 

[Staple1600]

Bonjour le fil, le forum

Histoire de varier les plaisirs (ou tout du moins la syntaxe)

Private Sub CommandButton1_Click()
X = Switch(OptionButton1 = True, "oui|x", OptionButton1 = False, "x|oui")
Cells(Rows.Count, "D").End(3)(2).Resize(, 2) = Split(X, "|")
End Sub

Et pour le fun, la version one-liner

Private Sub CommandButton1_Click()
Cells(Rows.Count, "D").End(3)(2).Resize(, 2) = Split(Switch(OptionButton1 = -1, "oui|x", OptionButton1 = 0, "x|oui"), "|")
End Sub

 

[rem13]

Merci

Bonne fin de journée