Thibaud123
XLDnaute Nouveau
Bonjour,
Une question toute naïve, mais je bloque dessus malgès la consultation de différents tuto.
J'ai des questions, allant de 1 à 26 sur un Userform. Pour chaque question, j'ai 4 boutons option.
Il faut que l'utilisateur remplisse chacune des question en cochant l'un des 4 boutons option. Ceux-ci doivent avoir une valeur allant de 1 (pour le premier bouton) à 4 (pour le dernier). Ces valeurs doivent alors s'inscrire dans la dernière ligne vide d'une feuille excel.
Oui mais voila, j'ai beau chercher, je ne trouve pas comment lier mes boutons option (répartis en Frame) à une colonne en y inscrivant sa valeur, puis en passant à la ligne en dessous. Je l'avais fait il y à quelque temps avec des combobox, mais impossible de me dépatouiller avec les boutons d'option.
J'ai bien tenté :
Mais ça n'a pas fonctionné... Et avec une 50aine de question, à 4 optionbutton par question, je ne sais pas si c'est la solution la plus simple
Edit : j'ai essayé :
Il semblerait que ca m'inscrive la valeur de l'un de mes 4 option button de ma frame dans la bonne colonne. Sauf que je suis toujours en valeur VRAI/FAUX, je ne sais pas comment basculer en valeur numérique...
Une question toute naïve, mais je bloque dessus malgès la consultation de différents tuto.
J'ai des questions, allant de 1 à 26 sur un Userform. Pour chaque question, j'ai 4 boutons option.
Il faut que l'utilisateur remplisse chacune des question en cochant l'un des 4 boutons option. Ceux-ci doivent avoir une valeur allant de 1 (pour le premier bouton) à 4 (pour le dernier). Ces valeurs doivent alors s'inscrire dans la dernière ligne vide d'une feuille excel.
Oui mais voila, j'ai beau chercher, je ne trouve pas comment lier mes boutons option (répartis en Frame) à une colonne en y inscrivant sa valeur, puis en passant à la ligne en dessous. Je l'avais fait il y à quelque temps avec des combobox, mais impossible de me dépatouiller avec les boutons d'option.
J'ai bien tenté :
Code:
Private Sub CommandButton9_Click()
Dim lignesuivante As Long
Sheets("Feuil2").Activate
lignesuivante = Application.WorksheetFunction.CountA(Range("H:H")) + 1
If OptionButton1 Then Cells(lignesuivante, 1) = "4"
If OptionButton2 Then Cells(lignesuivante, 1) = "3"
If OptionButton3 Then Cells(lignesuivante, 1) = "2"
If OptionButton4 Then Cells(lignesuivante, 1) = "1"
End Sub
Mais ça n'a pas fonctionné... Et avec une 50aine de question, à 4 optionbutton par question, je ne sais pas si c'est la solution la plus simple
Edit : j'ai essayé :
Code:
Private Sub Suivant1_Click()
With Worksheets("BD")
Position = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Position).Value = OptionButton1.Value Or OptionButton2.Value Or OptionButton3.Value Or OptionButton4.Value
End With
UserForm4.Show
End Sub
Il semblerait que ca m'inscrive la valeur de l'un de mes 4 option button de ma frame dans la bonne colonne. Sauf que je suis toujours en valeur VRAI/FAUX, je ne sais pas comment basculer en valeur numérique...
Pièces jointes
Dernière édition: