Questionnaire USERFORM (Frame et optionbutton)

Version imprimable

25/05/2015, 12h36
Taktser

1 pièce(s) jointe(s)

Questionnaire USERFORM (Frame et optionbutton)

Bonjour à tous,
Je suis novice dans VBA et j'ai besoin d'aide s'il vous plait.
Alors mon objectif est de créer un questionnaire en deux parties sous forme de userform (Cf: fichier joint)
Je m'explique, en sélectionnant une référence dans la combobox, les données des textbox sont générées à partir de mon tableau. Ainsi, j'ai envie de pouvoir faire en sorte que chaque personnes complète le fichier à partir de ce userform.
Je n'arrive pas à récupérer les saisies des options buttons dans les différentes cases de mon tableau. et aussi saisir sur la ligne de la référence sélectionnée.
Merci d'avance
Pièce jointe 178716

Bonjour..

Tu peux récupérer les réponses et la question correspondante comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cCont As Control
 
    For Each cCont In Me.Controls
 
        If TypeName(cCont) = "OptionButton" Then
 
         If cCont.Value = True Then
          question = cCont.Parent.Caption
          reponse = cCont.Caption
         End If
 
        End If
 
     Next cCont

25/05/2015, 16h45
Taktser

Bonjour,
Merci beaucoup, cependant, j'ai copié le code sur le bouton valider et cela ne fonctionne pas .
Mon objectif est de pouvoir compléter une ligne sélectionner à partir de la combobox.
Pouvons nous faire une boucle pour tous les frame de l'userform?
Merci
25/05/2015, 16h58
Docmarti

Citation:

Envoyé par Taktser

Pouvons nous faire une boucle pour tous les frame de l'userform?
Merci

Cette boucle détecte toutes les réponses de l'userform, s'il y a des réponses.
Il ne reste plus qu'à les transférer sur la feuille sur la bonne ligne et la bonne colonne.
25/05/2015, 17h05
Taktser

Je dois définir une variable?
Mes réponses doivent être saisies dans les colonnes F ...à V
Je ne vois pas comment je peux transférer les résultats dans le classeur.
Aussi, les lignes doivent-elles se suivent lorsque nous allons saisir les données? ou pouvons nous saisir aléatoirement en sélectionnant une référence?
Merci et désolé je suis novice donc j'ai un peu de mal à comprendre.
25/05/2015, 17h48
Docmarti

Citation:

Envoyé par Taktser

Aussi, les lignes doivent-elles se suivent lorsque nous allons saisir les données? ou pouvons nous saisir aléatoirement en sélectionnant une référence?
.

On peut saisir aléatoirement en sélectionnant une référence.
Et mettre le numéro de la ligne dans la propriété TAG du combobox1. Nul besoin d'une variable.
25/05/2015, 18h38
Taktser

Pouvez vous m'indiquer dans le fichier joint à quel endroit placer le code s'il vous plait. J'ai essayé comme vous me l'avez indiqué. Je n'y arrive pas.
Désolé et merci d'avance.
25/05/2015, 19h02
Docmarti

1) Pour passer du classeur à Visual Basic : les touches ALT-F11
2) Sur la fenêtre Visual Basic, double-clic sur Userform1 pour afficher l'objet Userform1
3) Double-clic sur l'objet Userform1 pour accéder à son code
4) Dans le code, cherche Private Sub ComboBox1_Change()
25/05/2015, 19h13
Taktser

1 pièce(s) jointe(s)

Merci pour votre réactivité. J'ai essayé de copié la boucle pour les frame dans la partie que vous m'avez dit.
Ci-joint le fichier, et cela ne marche pas.
J'ai envie que le caption de l'option button soit reprise dans mes cellules. Pour chaque question, 4 possibilités de répondre (0, 2, 3, 4).
Excusez moi si je m'exprime pas bien?
Je vous joint le fichier (j'ai copié le code comme demandé).
Pièce jointe 178764

Bonjour,
Dans l'hypothèse où les contrôles OptionBiutton de même groupe se trouve encapsulé dans un contrôle Frame dont la propriété Caption commence par la lettre Q et que ces mêmes OptionButton ont la propriété Caption qui reprend le n° de l'option (1, 2, 3, etc.).
Voici un exemple d'une procédure événementielle Click d'un contrôle CommandButton nommé cmdTest qui affichera dans un MsgBox le résultat de toutes les réponses OptionButton à TRUE.
C'est bien entendu un exemple à adapter qui n'a pour but que de visualiser une méthode parmi d'autres
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub cmdTest_Click() Dim Ctrl_1 As Control, Ctrl_2 As Control Dim txt As String For Each Ctrl_1 In Me.Controls If TypeName(Ctrl_1) = "Frame" Then If Left(Ctrl_1.Caption, 1) = "Q" Then txt = txt & vbCrLf & Ctrl_1.Caption For Each Ctrl_2 In Ctrl_1.Controls If TypeName(Ctrl_2) = "OptionButton" Then If Ctrl_2.Value = True Then txt = txt & vbcrl & " - " & Ctrl_2.Caption End If Next End If End If Next MsgBox txt End Sub

1 pièce(s) jointe(s)

Bonjour,

Essayez de remplacer tout le code de votre UserForm par le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub CommandButton4_Click()
Unload Me
End Sub
 
Private Sub CommandButton6_Click()
Dim vrech As Range
Dim CTR As Control
Dim CTR2 As Control
Dim j&
Dim numCol&
Dim numLig&
'--- Recherche dans la colonne A la valeur de la combo ---
Set vrech = Sheets("Feuil1").Columns("A:A").Find(Me.ComboBox1.Value, LookIn:=xlValues)
'--- Affiche la valeur correspondante des TextBoxes dans la feuille ---
If Not vrech Is Nothing Then
  numLig& = vrech.Row
  vrech.Offset(0, 1).Value = TextBox7.Value
  vrech.Offset(0, 2).Value = TextBox8.Value
  vrech.Offset(0, 3).Value = TextBox1.Value
  vrech.Offset(0, 4).Value = TextBox2.Value
Else
  MsgBox "Aucune valeur trouve!"
  Exit Sub
End If
'--- Les OptionButtons ---
For Each CTR In Me.Controls
  If TypeName(CTR) = "Frame" Then
    If InStr(1, CTR.Caption, "QUESTIONNAIRE") = 0 Then
      Set vrech = Sheets("Feuil1").Range("A1:IV1").Find(CTR.Caption, LookIn:=xlValues)
      If Not vrech Is Nothing Then
        numCol& = vrech.Column
        For Each CTR2 In CTR.Controls
          If CTR2 = True Then Sheets("Feuil1").Cells(numLig&, numCol&) = CTR2.Caption
        Next CTR2
      End If
    End If
  End If
Next CTR
End Sub
 
Private Sub UserForm_Activate()
 Sheets("Feuil1").Select
ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

25/05/2015, 20h44
Taktser

Merci beaucoup!! ça marche très bien :D . Cepedant, si je veux modifier une ligne, les option button ne peuvent pas récupérer les valeurs?
Merci encore.
25/05/2015, 21h40
Philippe Tulliez

Bonjour,
Sauf erreur de ma part, il n'y a pas de raison d'utiliser la méthode Find pour rechercher un élément sélectionné dans un ComboBox. La propriété ListIndex de celui-ci est suffisante.
Voir exemple dans cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire
25/05/2015, 21h51
Taktser

Cela changera quoi pour le code ? Est ce par rapport au raptriement des données dans mon userform pour les option button?

1 pièce(s) jointe(s)

Citation:

Cependant, si je veux modifier une ligne, les option button ne peuvent pas récupérer les valeurs ?

Bonjour,

Ajoutez le code suivant au code existant du UserForm

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton5_Click()  'Modifier
Dim vrech As Range
Dim CTR As Control
Dim CTR2 As Control
Dim numCol&
Dim numLig&
'---
If Me.ComboBox1.Value = "" Then Exit Sub
'--- Recherche dans la colonne A la valeur de la combo ---
Set vrech = Sheets("Feuil1").Columns("A:A").Find(Me.ComboBox1.Value, LookIn:=xlValues)
'--- Affiche la valeur correspondante de la feuille  dans les TextBoxes ---
If Not vrech Is Nothing Then
  numLig& = vrech.Row
  TextBox7.Value = vrech.Offset(0, 1).Value
  TextBox8.Value = vrech.Offset(0, 2).Value
  TextBox1.Value = vrech.Offset(0, 3).Value
  TextBox2.Value = vrech.Offset(0, 4).Value
Else
  MsgBox "Aucune valeur trouve!"
  Exit Sub
End If
'--- Affiche la valeur correspondante de la feuille  dans les OptionButtons ---
For Each CTR In Me.Controls
  If TypeName(CTR) = "Frame" Then
    If InStr(1, CTR.Caption, "QUESTIONNAIRE") = 0 Then
      Set vrech = Sheets("Feuil1").Range("A1:IV1").Find(CTR.Caption, LookIn:=xlValues)
      If Not vrech Is Nothing Then
        numCol& = vrech.Column
        For Each CTR2 In CTR.Controls
          If CTR2.Caption = CStr(Sheets("Feuil1").Cells(numLig&, numCol&)) Then
            CTR2 = True
            Exit For
          End If
        Next CTR2
      End If
    End If
  End If
Next CTR
End Sub

26/05/2015, 19h23
Taktser

Merci pour le code :)
Si je veux que le Userform se compléte sans cliquer sur le bouton modifier, je dois copier le code et le coller sur userform initialize?
Sinon les frames doivent-ils s'appeler automatique Questionnaire..2...3... ou puis-je changer de nom?

MERCI BEAUCOUP CELA M'AIDE BEAUCOUP

Je complète ma suggestion de mon post No 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
 
 
Private Sub ComboBox1_Click()
    Dim vrech As Range
 
    ligne = ComboBox1.ListIndex + 2
    Set vrech = Sheets("Feuil1").Cells(ligne, 1)
 
    If Trim(vrech) = "" Then
        MsgBox "Aucune valeur trouve!", , "Ref"
    End If
 
    TextBox7.Text = vrech.Offset(0, 1).Value
    TextBox8.Text = vrech.Offset(0, 2).Value
    TextBox1.Text = vrech.Offset(0, 3).Value
    TextBox2.Text = vrech.Offset(0, 4).Value
 
    Call Effacer_Reponses_Sur_Userform1
 
    Call Lire_Les_Reponses_de_la_feuille
 
End Sub
 
Private Sub CommandButton4_Click()
    Unload Me
End Sub
 
Private Sub CommandButton6_Click()
 
    Dim cCont As Control
    Dim question As String
    Dim reponse As Double
 
    ligne = ComboBox1.ListIndex + 2
 
    Sheets("Feuil1").Cells(ligne, 1).Offset(, 1).Value = TextBox7.Text
    Sheets("Feuil1").Cells(ligne, 1).Offset(, 2).Value = TextBox8.Text
    Sheets("Feuil1").Cells(ligne, 1).Offset(, 3).Value = TextBox1.Text
    Sheets("Feuil1").Cells(ligne, 1).Offset(, 4).FormulaLocal = TextBox2.Text 'La date
 
    For Each cCont In Me.Controls
 
        If TypeName(cCont) = "OptionButton" Then
            question = cCont.Parent.Caption
            reponse = cCont.Caption
 
            Set col = Sheets("Feuil1").Range("A1:V1").Find(question, LookIn:=xlFormulas)
 
            Sheets("Feuil1").Cells(ligne, col.Column) = "" 'Effacer la reponse
 
        End If
 
    Next cCont
 
    For Each cCont In Me.Controls
 
        If TypeName(cCont) = "OptionButton" Then
            question = cCont.Parent.Caption
            reponse = cCont.Caption
 
            Set col = Sheets("Feuil1").Range("A1:V1").Find(question, LookIn:=xlFormulas)
 
            If cCont.Value = True Then
 
                Sheets("Feuil1").Cells(ligne, col.Column).FormulaLocal = reponse 'Ecrire ls reponse
 
            End If
 
        End If
 
    Next cCont
 
End Sub
 
Private Sub UserForm_Activate()
    Sheets("Feuil1").Select
    ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub
 
Private Sub Effacer_Reponses_Sur_Userform1()
 
    Dim cCont As Control
 
    For Each cCont In Me.Controls
 
        If TypeName(cCont) = "OptionButton" Then
            cCont.Value = False
        End If
 
    Next cCont
 
End Sub
 
Sub Lire_Les_Reponses_de_la_feuille()
 
    Dim cCont As Control
    Dim question As String
    Dim reponse As Double
    Dim ligne As Long
 
    ligne = ComboBox1.ListIndex + 2
 
    For Each cCont In Me.Controls
 
        If TypeName(cCont) = "OptionButton" Then
            question = cCont.Parent.Caption
            reponse = cCont.Caption
 
            Set col = Sheets("Feuil1").Range("A1:V1").Find(question, LookIn:=xlFormulas, lookat:=xlWhole)
 
            If col Is Nothing Then
                MsgBox "Colonne " & question & " non trouve!", , "Erreur"
            Else
                reponse = Sheets("Feuil1").Cells(ligne, col.Column)
                If CStr(reponse) <> "" Then
 
                    If CDbl(reponse) = CDbl(cCont.Caption) Then
                        cCont.Value = True
                    End If
                End If
            End If
        End If
    Next cCont
 
End Sub

1 pièce(s) jointe(s)

Bonjour,

Citation:

Si je veux que le Userform se compléte sans cliquer sur le bouton modifier, je dois copier le code et le coller sur userform initialize?

NON (voir dans l'exemple joint Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) )

Citation:

Sinon les frames doivent-ils s'appeler automatiquement Questionnaire..2...3... ou puis-je changer de nom?

Pour celles qui sont à exclure du traitement de la procédure et qui servent de conteneur aux autres Frames qui contiennent, elles, les OptionButtons :
Vous pouvez changez leur Caption OU leur Name tout en renseignant leur propriété Tag par un mot commun qui servira à ne pas les prendre en compte (Tag = QUESTIONNAIRE dans l'exemple).

Voici le nouveau code du UserForm

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Private Sub CommandButton4_Click()  'Annuler
Unload Me
End Sub
 
Private Sub CommandButton6_Click()  'Valider
Dim vrech As Range
Dim CTR As Control
Dim CTR2 As Control
Dim numCol&
Dim numLig&
'--- Recherche dans la colonne A la valeur de la combo ---
Set vrech = Sheets("Feuil1").Columns("A:A").Find(Me.ComboBox1.Value, LookIn:=xlValues)
'--- Affiche la valeur correspondante des TextBoxes dans la feuille ---
If Not vrech Is Nothing Then
  numLig& = vrech.Row
  vrech.Offset(0, 1).Value = TextBox7.Value
  vrech.Offset(0, 2).Value = TextBox8.Value
  vrech.Offset(0, 3).Value = TextBox1.Value
  vrech.Offset(0, 4).Value = TextBox2.Value
Else
  MsgBox "Aucune valeur trouve!"
  Exit Sub
End If
'--- Les OptionButtons ---
For Each CTR In Me.Controls
  If TypeName(CTR) = "Frame" Then
    If InStr(1, CTR.Tag, "QUESTIONNAIRE") = 0 Then  'On exclut les Frames qui ont une propriété Tag contenant QUESTIONNAIRE
      Set vrech = Sheets("Feuil1").Range("A1:IV1").Find(CTR.Caption, LookIn:=xlValues)
      If Not vrech Is Nothing Then
        numCol& = vrech.Column
        For Each CTR2 In CTR.Controls
          If CTR2 = True Then Sheets("Feuil1").Cells(numLig&, numCol&) = CTR2.Caption
        Next CTR2
      End If
    End If
  End If
Next CTR
End Sub
 
Private Sub UserForm_Activate()
 Sheets("Feuil1").Select
ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub
 
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim vrech As Range
Dim CTR As Control
Dim CTR2 As Control
Dim numCol&
Dim numLig&
'---
If Me.ComboBox1.Value = "" Then Exit Sub
'--- Recherche dans la colonne A la valeur de la combo ---
Set vrech = Sheets("Feuil1").Columns("A:A").Find(Me.ComboBox1.Value, LookIn:=xlValues)
'--- Affiche la valeur correspondante de la feuille  dans les TextBoxes ---
If Not vrech Is Nothing Then
  numLig& = vrech.Row
  TextBox7.Value = vrech.Offset(0, 1).Value
  TextBox8.Value = vrech.Offset(0, 2).Value
  TextBox1.Value = vrech.Offset(0, 3).Value
  TextBox2.Value = vrech.Offset(0, 4).Value
Else
  MsgBox "Aucune valeur trouve!"
  Exit Sub
End If
'--- Affiche la valeur correspondante de la feuille  dans les OptionButtons ---
For Each CTR In Me.Controls
  If TypeName(CTR) = "Frame" Then
    If InStr(1, CTR.Tag, "QUESTIONNAIRE") = 0 Then  'On exclut les Frames qui ont une propriété Tag contenant QUESTIONNAIRE
      Set vrech = Sheets("Feuil1").Range("A1:IV1").Find(CTR.Caption, LookIn:=xlValues)
      If Not vrech Is Nothing Then
        numCol& = vrech.Column
        For Each CTR2 In CTR.Controls
          CTR2 = False
          If CTR2.Caption = CStr(Sheets("Feuil1").Cells(numLig&, numCol&)) Then
            CTR2 = True
            Exit For
          End If
        Next CTR2
      End If
    End If
  End If
Next CTR
End Sub

27/05/2015, 19h46
Taktser

Un grand merci pour ton aide précieuse. Cela me permettra de concrétiser mon projet. MERCI:D

Merci à tous les intervenants:D