Questionnaire avec optionbutton

Version imprimable

22/02/2011, 16h14
fanfan89

Questionnaire avec optionbutton
Bonjour à tous!

je suis en train de faire un questionnaire dans lequel les questions sont posées dans des InputBox (pour le nom de la personne par exemple)

à la question concernant l'age de la personne je voudrais mettre des tranches (18 - 30, 31 - 50, 51 et plus) avec des option box les uns en dessous des autres. Selon la réponse choisie je voudrais recopier le résultat dans une case prcéise (disons B3) de la feuille active
existe-t-il un code similaire à
Code:

1 2 j = InputBox("Entrez votre nom de famille:", "Caractéristiques individuelles", "VOTRE NOM ICI") Cells(1, 2).Value = j
mais dans lequel je puisse proposer des OptionButton?

Merci de votre aide!
22/02/2011, 16h51
Fvandermeulen

Bonjour,

J'aurais tendance à utiliser un formulaire au lieu de Inputbox, plus joli et plus de possibilité, d'autant que je ne pense pas que ton idée soit réalisable (mais il y aura certainement quelqu'un pour me contredire)

Avec un formulaire, tu peux facilement mettre des OptionButton pour tes tranches d'ages ou encore une liste déroulante (ComboBox)

A+

re,
je pensais à lui proposer un Usf appelé directement après la saisie de l'inputbox :

Code:

1
2
3
4
j = InputBox("Entrez votre nom de famille:", "Caractéristiques individuelles", "VOTRE NOM ICI")
Cells(1, 2).Value = j
Load UserForm1
UserForm1.Show

dans cet USF 3 boutons options un bouton de commande et le code de l'USF :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub OptionButton1_Click()
If OptionButton1 = True Then Cells(3, 2).Value = "18 à 30 ans"
End Sub
 
Private Sub OptionButton2_Click()
If OptionButton2 = True Then Cells(3, 2).Value = "31 à 50 ans"
End Sub
Private Sub OptionButton3_Click()
If OptionButton3 = True Then Cells(3, 2).Value = "51 ou plus"
End Sub

à voir....

1 pièce(s) jointe(s)

Salut casefayere,

Je voyais plutot un truc du genre (Voir image)

Avec un code du type:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CB_Valider_Click()
 
Sheets("LaFeuille").Cells(1, 2) = UF_Data.TB_Nom.Value
 
'Test sur l'OptionButton (ou utiliser un SelectCase)
If UF_Data.OB1830 = True Then
    Sheets("LaFeuille").Cells(3, 2) = "18-30 ans"
ElseIf UF_Data.OB3150 = True Then
    Sheets("LaFeuille").Cells(3, 2) = "31-50 ans"
ElseIf UF_Data.OB5199 = True Then
    Sheets("LaFeuille").Cells(3, 2) = "51 ans ou plus"
Else
    MsgBox "Merci d'indiquer votre tranche d'age"
End If
 
UF_Data.Hide
Unload UF_Data
 
End Sub

Tu vois fanfan89, t'as plein de possibilités ;)

22/02/2011, 17h26
casefayere

D'accord avec toi Frederic, ma proposition n'était qu'un début, perso je travaille essentiellement avec des USF.
d'autant plus que ta proposition permettra à fanfan d'ajouter d'autres renseignements, éventuellement.
Bonne soirée