Discussion :

[yanou91]

Bonjour,

Je m'explique. j'ai réalisé un formulaire en m'aidant couplant petites connaissances et aide code trouvés sur le forum.

Le but est que pour certains éléments du formulaire, une liste deroulante propose des valeurs à l'utilisateur.

Cela fonctionne mais le probleme est que lorsque le formulaire est actif, les listes de valeurs n'apparaissent que l'ors d'un clic sur le fond du formulaire. Meme probleme pour la copie des valeurs sélectionnées vers l'onglet "Données". je crains que l'utilisateurs pense que le formulaire ne fonctionne pas et de ne pas avoir les résultats en "Données".

Comment faire pour qu'une fois le formulaire ouvert, les valeurs du menu déroulant s'affiche directement quand l'utilisateur clique sur la zone de liste modifiable et que les données en "Données" se copie conformément au code saisie ? (sans avoir à cliquer dans l'espace vide du formulaire). lien : Questionnaire.xlsm
En vous remerciant et m'excusant pour certains termes peut etre mal choisis dans ma question.

Yannick

PS : Le lien du fichier joint est un XSLM et devrait permettre de mieux comprendre le probleme Questionnaire.xlsm

[yanou91]

Voici le code qui fonctionne :

Code :

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

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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
 
[Option Explicit
Dim i, non_rempli, a, b, c, d, e, f, l, m, u, v, w As String
 
Dim q, n, o, p, r, s, t, y, z, x  As String
 
 
'pour enlever la croix rouge d'un UF
'#If Win64 Then
 '   Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
 '   Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 '   Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 '#Else
 '   Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
 '   Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 '   Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
 
'#End If
'Private Sub UserForm_Initialize()
'Dim hWnd As Long
'    hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
'    & "Frame", Me.Caption)
'    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'End Sub
 
 
 
'Fermeture, validation du questionnaire et copie des réponses dans l'onglet données
'Private Sub CommandButton1_Click()
Sub CommandButton1_Click()
non_rempli = 0
 
q = ComboBox19.Value
p = TextBox1.Value
o = TextBox3.Value
n = TextBox2.Value
m = ComboBox5.Value
l = ComboBox6.Value
a = ComboBox21.Value
b = ComboBox8.Value
c = ComboBox13.Value
d = ComboBox14.Value
e = ComboBox15.Value
f = ComboBox16.Value
z = ComboBox20.Value
y = ComboBox18.Value
x = ComboBox9.Value
w = ComboBox10.Value
v = ComboBox11.Value
u = ComboBox12.Value
t = TextBox4.Value
s = TextBox5.Value
r = TextBox6.Value
 
 
 
If a = "" Or b = "" Or c = "" Or d = "" Or e = "" Or f = "" Or l = "" Or m = "" Or u = "" Or v = "" Or w = "" Or x = "" Or y = "" Then
      non_rempli = 1
End If
 
If z = "" Then
      non_rempli = 1
End If
 
If n = "" Or o = "" Or p = "" Or r = "" Or s = "" Or t = "" Or q = "" Then
      non_rempli = 1
End If
 
 
If non_rempli = 1 Then
 
MsgBox ("Merci de remplir tous les champs")
 
Else
 
 
Sheets("Données").Activate
Sheets("Données").Range(Cells(2, 1), Cells(18, 1)) = q
Sheets("Données").Range(Cells(2, 2), Cells(18, 2)) = p
Sheets("Données").Range(Cells(2, 3), Cells(18, 3)) = o
Sheets("Données").Range("D3") = Now
Range("D4").Value = Left(Range("D3").Value, 10)
Sheets("Données").Range(Cells(2, 4), Cells(18, 4)) = Range("D4").Value
Sheets("Données").Cells(2, 8) = m
Sheets("Données").Cells(3, 8) = l
Sheets("Données").Cells(4, 8) = a
Sheets("Données").Cells(5, 8) = b
Sheets("Données").Cells(6, 8) = c
Sheets("Données").Cells(7, 8) = d
Sheets("Données").Cells(8, 8) = e
Sheets("Données").Cells(9, 8) = f
Sheets("Données").Cells(10, 8) = z
Sheets("Données").Cells(11, 8) = y
Sheets("Données").Cells(12, 8) = x
Sheets("Données").Cells(13, 8) = w
Sheets("Données").Cells(14, 8) = v
Sheets("Données").Cells(15, 8) = u
Sheets("Données").Cells(16, 8) = t
Sheets("Données").Cells(17, 8) = s
Sheets("Données").Cells(18, 8) = r
 
UserForm1.Hide
 
MsgBox "Merci d'avoir contribué à l'enquête." & Chr(10) & "" & Chr(10) & "Veuillez nous renvoyer le fichier pour traitement.", , "Message:"
 
Application.Dialogs(xlDialogSaveAs).Show
 
End If
 
 
'Unload UserForm1
End Sub
 
 
 
Private Sub UserForm_Activate()
 
 
ComboBox19.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox19.List() = Array("RH", "DAF", "DAF1", "Prod", "Mark", "DIV", "Etablissement")
ComboBox19.Value = Sheets("Données").Range("A2").Value
 
ComboBox5.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox5.List() = Array("1", "2", "4", "5")
ComboBox5.Value = Sheets("Données").Range("H2").Value
 
ComboBox6.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox6.List() = Array("1", "2", "4", "5")
ComboBox6.Value = Sheets("Données").Range("H3").Value
 
ComboBox21.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox21.List() = Array("1", "2", "4", "5")
ComboBox21.Value = Sheets("Données").Range("H4").Value
 
ComboBox8.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox8.List() = Array("1", "2", "4", "5")
ComboBox8.Value = Sheets("Données").Range("H5").Value
 
ComboBox13.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox13.List() = Array("1", "2", "4", "5")
ComboBox13.Value = Sheets("Données").Range("H6").Value
 
ComboBox14.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox14.List() = Array("1", "2", "4", "5")
ComboBox14.Value = Sheets("Données").Range("H7").Value
 
ComboBox15.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox15.List() = Array("1", "2", "4", "5")
ComboBox15.Value = Sheets("Données").Range("H8").Value
 
ComboBox16.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox16.List() = Array("1", "2", "4", "5")
ComboBox16.Value = Sheets("Données").Range("H9").Value
 
ComboBox20.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox20.List() = Array("1", "2", "4", "5")
ComboBox20.Value = Sheets("Données").Range("H10").Value
 
ComboBox18.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox18.List() = Array("1", "2", "4", "5")
ComboBox18.Value = Sheets("Données").Range("H11").Value
 
ComboBox9.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox9.List() = Array("1", "2", "4", "5")
ComboBox9.Value = Sheets("Données").Range("H12").Value
 
ComboBox10.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox10.List() = Array("1", "2", "4", "5")
ComboBox10.Value = Sheets("Données").Range("H13").Value
 
ComboBox11.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox11.List() = Array("1", "2", "4", "5")
ComboBox11.Value = Sheets("Données").Range("H14").Value
 
ComboBox12.ColumnCount = 1 'Pour la liste déroulante Entité
ComboBox12.List() = Array("1", "2", "4", "5")
ComboBox12.Value = Sheets("Données").Range("H15").Value
 
TextBox1.Value = Sheets("Données").Range("B2").Value
TextBox2.Value = Sheets("Données").Range("D2").Value
TextBox3.Value = Sheets("Données").Range("C2").Value
TextBox4.Value = Sheets("Données").Range("H16").Value
TextBox5.Value = Sheets("Données").Range("H17").Value
TextBox6.Value = Sheets("Données").Range("H18").Value
 
 
ListBox1.ColumnCount = 1 'Pour la liste déroulante rappel du bareme ds le formulaire
ListBox1.List() = Array("1: Trés insatisfaisant", "2: Plutôt insatisfaisant", "4: Plutôt satisfaisant", "5: Très satisfaisant")
 
End Sub
 
 
 
 
'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
 'Dim c As Control
 ' For Each c In Me.Controls
 '   Select Case TypeName(c)
 '     Case "TextBox", "ComboBox"
 '       If c.Value = "" Then
 '          MsgBox "Veuillez saisir toutes les champs SVP"
'           Cancel = True
 
 '       End If
'     End Select
'   Next c
 
 '   End Sub
 
'    Private Sub UserForm_Terminate()
 
'Application.Dialogs(xlDialogSaveAs).Show
'End Sub

Cordialement.

Merci pour votre aide.

Yannick