Envoyer les données d'une listbox multisélection dans une cellule excel et format date

Version imprimable

12/11/2024, 13h53
ericfalcon

1 pièce(s) jointe(s)

Envoyer les données d'une listbox multisélection dans une cellule excel et format date

Bonjour.

J'essai de créer un tableau de suivi de mes candidats à la VAE.

Depuis le 25 octobre le mode de financement a été modifié. Je dois ajouter tous les modes de financements disponibles.

J'ai créé une listbox dans mon userform avec sélection multiple, puisque le candidat peut avoir diverses sources de financement.

J'ai une erreur lorsque je veux enregistrer cette donnée dans ma feuille excel.

Par ailleurs, j'ai l'impression que lorsque j'envoi les données de dates de mon formulaire vers mon fichier, les date sont au format texte. Ce qui m'ennuie car j'ai une formule si pour indiquer la dernière étape où il y a une date entrée.

Il serait peut être intéressant que, en mode création ou en mode modification, un calendrier permettant de sélectionner une date s'affiche systématiquement.

Voici une copie sans les noms de mon fichier.Pièce jointe 661645 Pièce jointe 661645
12/11/2024, 14h50
Philippe Tulliez
Bonjour,
J'ai écrit deux billets sur un sujet proche de votre demande. La lecture de ceux-ci vous aideront peut-être
- VBA - Fonction qui renvoie une chaîne de caractères des éléments sélectionnés dans un ListBox
- VBA - Fonction qui sélectionne les éléments d'un ListBox (MultiSelect) en fonction d'une chaîne de caractères
12/11/2024, 16h00
ericfalcon

Bonjour.
Je n'ai pas su les adapter dans mon code
12/11/2024, 16h26
Jean-Philippe André

Bonjour,

quel est ton code, quels sont tes essais ?

Les fichiers avec macros sont bloqués au téléchargement, ca va nous prendre du concret stp :)
12/11/2024, 16h39
ericfalcon

Citation:

Envoyé par Jean-Philippe André

Bonjour,

Les fichiers avec macros sont bloqués au téléchargement, ca va nous prendre du concret stp :)

Il y a beaucoup de codes pour mon userform qui fonctionnait jusqu'à ce que j'ajoute le champs type de financement

Pour débloquer les fichiers téléchargés, il faut :
- aller dans l'explorateur de fichier
- sélectionner le répertoire téléchargements
- faire un clic droit sur le fichier téléchargé puis sélectionner Propriétés
- en bas à droite, il y a une case à cocher Débloquer, qu'il faut cocher
- faire OK.
Le fichier est ensuite parfaitement utilisable

code vba 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
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
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
'
Option Explicit
' Déclaration des variables et constantes de portées module
Enum Status ' Constantes énumérées Status
 Consultation = 0: Modify = 1: NewRec = 2: Remove = 3
End Enum
Const StatusLabel As String = "Consultation;Modification;Création;Suppression"
Const appTitle As String = "SUIVI DES CANDIDATS VAE - Eric FALCON"
Dim UserFormStatus As Byte ' Statut du type de travail (Consultation, Modify, NewRec, Remove)
Dim CurrentRecord As Long  ' Enregistrement en cours
Dim rng As Range           ' Plage de données traitée par le formulaire
Dim lstStatusText() As String
 
 
Private Sub UserForm_Activate()
 InitVariable ' Initialisation des variables
 InitData     ' Initialisation adresse liste des données + RowSource
 InitComboBox ' Initialisation ComboBox
 InitListBox 'initialisation ListBox
 UserFormStatus = Status.Consultation ' Consultation par défaut
 With Me      ' Initialisation de certains contrôles
 .frmConfirm.Visible = False:
 .cboCandidat.Enabled = True: .frmMember.Enabled = False
 usfTitle     ' Titre du UserForm (Propriété Caption)
 End With
 ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille
 With Me: .cboCandidat.ListIndex = Me.Tag: End With
End Sub
 
Private Sub InitVariable()
 lstStatusText = Split(StatusLabel, ";")
 With Me
 '.optMale.GroupName = "Gender": Me.optFemale.GroupName = "Gender"
  If Len(.Tag) = 0 Then .Tag = 0
 End With
End Sub
 
Private Sub InitComboBox()
 With Me.cboCandidat
 .ColumnHeads = True: .ColumnCount = 4: .ColumnWidths = "0;40;40;50"
 End With
 InitRowSource '
End Sub
Private Sub InitListBox()
With Me.cboCandidat
End With
ListBox1.RowSource = "Données!F1:F6"
End Sub
 
Private Sub InitData()
 ' Redimensionnement de l'objet rng et RowSource
 Set rng = Worksheets("SUIVI").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
End Sub
 
Private Sub InitRowSource()
 With Me.cboCandidat
 .RowSource = rng.Address(external:=True)
 .ListIndex = 0 ' Force la sélection du premier enregistrement
 End With
End Sub
 
Private Sub cboCandidat_Click()
 CurrentRecord = Me.cboCandidat.ListIndex
 ReadRecord CurrentRecord ' Lecture de l'enregistrement sélectionné
 CheckButton
End Sub
 
Private Sub cmdCancel_Click()
 ReadRecord CurrentRecord
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub cmdConfirm_Click()
 Select Case UserFormStatus
   Case Status.NewRec ' Nouvel enregistrement
     WriteRecord rng.Rows.Count: InitData: InitRowSource
     Me.cboCandidat.ListIndex = rng.Rows.Count - 1
   Case Status.Modify: WriteRecord CurrentRecord ' Modification de l'enregistrement
 End Select
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub cmdExit_Click()
 Unload Me ' Fermeture du UserForm
End Sub
 
Private Sub cmdModify_Click()
 UserFormStatus = Status.Modify
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub cmdNew_Click()
 UserFormStatus = Status.NewRec
 ClearTextBox   ' Efface les valeurs des TextBox
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub ClearTextBox()
 ' Efface toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmMember
 Dim Ctrl As Control
 For Each Ctrl In Me.frmMember.Controls
  If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
 Next
End Sub
 
Private Sub RemoveRecord(ByVal RecordNumber As Long)
 ' Suppression de l'enregistrement
 ' Contrainte : il doit rester un enregistrement
 Select Case True
  Case rng.Rows.Count = 1 ' Reste 1 enregistrement
    MsgBox "Vous devez laisser un enregistrement", vbInformation, "Suppression impossible"
  Case MsgBox("Voulez-vous supprimer la ligne sélectionnée", _
            vbCritical + vbYesNo + vbDefaultButton2, _
            "Suppression de la ligne " & CurrentRecord + 1) = vbYes
     RecordNumber = RecordNumber + 1
     rng.Rows(RecordNumber).Delete Shift:=xlUp ' Supprime la ligne de la plage
     InitData      ' Initialisation des variables objets
     InitRowSource ' Initialisation de la propriété RowSource
     CurrentRecord = 0: Me.cboCandidat.ListIndex = CurrentRecord
 End Select
 UserFormStatus = Status.Consultation
End Sub
 
Private Sub cmdNext_Click()
 Me.cboCandidat.ListIndex = CurrentRecord + 1
End Sub
 
Private Sub cmdPrevious_Click()
 Me.cboCandidat.ListIndex = CurrentRecord - 1
End Sub
 
Private Sub cmdFirst_Click()
 Me.cboCandidat.ListIndex = 0
End Sub
 
Private Sub cmdLast_Click()
 Me.cboCandidat.ListIndex = rng.Rows.Count - 1
End Sub
 
Private Sub cmdRemove_Click()
 UserFormStatus = Status.Remove: usfTitle
 RemoveRecord CurrentRecord ' Supprime l'enregistrement courant
 UserFormStatus = Status.Consultation: usfTitle
End Sub
 
Private Sub ReadRecord(ByVal RecordNumber As Long)
 ' Lecture de l'enregistrement
 RecordNumber = RecordNumber + 1
 With rng
 
  Me.Ref = Format(.Cells(RecordNumber, 1), "R000")
  Me.Nom1 = .Cells(RecordNumber, 2)
  Me.prenom1 = .Cells(RecordNumber, 3)
  Me.email1 = .Cells(RecordNumber, 4)
  Me.adresse1 = .Cells(RecordNumber, 5)
  Me.code1 = Format(.Cells(RecordNumber, 6), "00 000")
  Me.statut1 = .Cells(RecordNumber, 7)
  Me.num_demandeur_emploi1 = Format(.Cells(RecordNumber, 8), "0000000@")
  Me.type_financement1 = .Cells(RecordNumber, 9)
  Me.suivi_etape1 = .Cells(RecordNumber, 10)
  Me.remarque1 = .Cells(RecordNumber, 11)
  Me.diplome1 = .Cells(RecordNumber, 12)
  Me.date_contact1 = Format(.Cells(RecordNumber, 13), "dd/mm/yyyy")
  Me.date_faisabilite1 = Format(.Cells(RecordNumber, 14), "dd/mm/yyyy")
  Me.accord_faisabilite1 = Format(.Cells(RecordNumber, 15), "dd/mm/yyyy")
  Me.kairos1 = Format(.Cells(RecordNumber, 16), "dd/mm/yyyy")
  Me.demande_afgsu1 = Format(.Cells(RecordNumber, 17), "dd/mm/yyyy")
  Me.date_session_afgsu1 = Format(.Cells(RecordNumber, 18), "dd/mm/yyyy")
  Me.demande_financement1 = Format(.Cells(RecordNumber, 19), "dd/mm/yyyy")
  Me.financement1 = Format(.Cells(RecordNumber, 20), "dd/mm/yyyy")
  Me.date_RDV1 = Format(.Cells(RecordNumber, 21), "dd/mm/yyyy")
  Me.date_prev_depot1 = Format(.Cells(RecordNumber, 22), "dd/mm/yyyy")
  Me.date_RDV2 = Format(.Cells(RecordNumber, 23), "dd/mm/yyyy")
  Me.date_RDV3 = Format(.Cells(RecordNumber, 24), "dd/mm/yyyy")
  Me.date_RDV4 = Format(.Cells(RecordNumber, 25), "dd/mm/yyyy")
  Me.date_RDV5 = Format(.Cells(RecordNumber, 26), "dd/mm/yyyy")
  Me.date_RDV6 = Format(.Cells(RecordNumber, 27), "dd/mm/yyyy")
  Me.date_RDV7 = Format(.Cells(RecordNumber, 28), "dd/mm/yyyy")
  Me.date_RDV8 = Format(.Cells(RecordNumber, 29), "dd/mm/yyyy")
  Me.date_RDV9 = Format(.Cells(RecordNumber, 30), "dd/mm/yyyy")
  Me.date_RDV10 = Format(.Cells(RecordNumber, 31), "dd/mm/yyyy")
  Me.date_RDV11 = Format(.Cells(RecordNumber, 32), "dd/mm/yyyy")
  Me.date_RDV12 = Format(.Cells(RecordNumber, 33), "dd/mm/yyyy")
  Me.date_RDV13 = Format(.Cells(RecordNumber, 34), "dd/mm/yyyy")
  Me.date_RDV14 = Format(.Cells(RecordNumber, 35), "dd/mm/yyyy")
  Me.date_RDV15 = Format(.Cells(RecordNumber, 36), "dd/mm/yyyy")
  Me.date_RDV16 = Format(.Cells(RecordNumber, 37), "dd/mm/yyyy")
  Me.date_RDV17 = Format(.Cells(RecordNumber, 38), "dd/mm/yyyy")
  Me.date_RDV18 = Format(.Cells(RecordNumber, 39), "dd/mm/yyyy")
  Me.date_depot1 = Format(.Cells(RecordNumber, 40), "dd/mm/yyyy")
  Me.date_facture1 = Format(.Cells(RecordNumber, 41), "dd/mm/yyyy")
  Me.date_jury1 = Format(.Cells(RecordNumber, 42), "dd/mm/yyyy")
  Me.post_jury1 = Format(.Cells(RecordNumber, 43), "dd/mm/yyyy")
 
 
   Me.frmMember.Caption = "Fiche " & Format(RecordNumber, "R000")
 End With
End Sub
 
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement
 Me.cboCandidat.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If
   End With
  .Cells(RecordNumber, 1) = Format(Me.Ref, "R000")
  .Cells(RecordNumber, 2) = Me.Nom1
  .Cells(RecordNumber, 3) = Me.prenom1
  .Cells(RecordNumber, 4) = Me.email1
  .Cells(RecordNumber, 5) = Me.adresse1
  .Cells(RecordNumber, 6) = Format(Me.code1, "00 000")
  .Cells(RecordNumber, 7) = Me.statut1
  .Cells(RecordNumber, 8) = Format(Me.num_demandeur_emploi1, "0000000@")
  .Cells(RecordNumber, 9) = Me.type_financement1
  '.cells(RecordNumber,10)=Me.suivi_etape1
  .Cells(RecordNumber, 11) = Me.remarque1
  .Cells(RecordNumber, 12) = Me.diplome1
  .Cells(RecordNumber, 13) = Format(Me.date_contact1, "dd/mm/yyyy")
  .Cells(RecordNumber, 14) = Format(Me.date_faisabilite1, "dd/mm/yyyy")
  .Cells(RecordNumber, 15) = Format(Me.accord_faisabilite1, "dd/mm/yyyy")
  .Cells(RecordNumber, 16) = Format(Me.kairos1, "dd/mm/yyyy")
  .Cells(RecordNumber, 17) = Format(Me.demande_afgsu1, "dd/mm/yyyy")
  .Cells(RecordNumber, 18) = Format(Me.date_session_afgsu1, "dd/mm/yyyy")
  .Cells(RecordNumber, 19) = Format(Me.demande_financement1, "dd/mm/yyyy")
  .Cells(RecordNumber, 20) = Format(Me.financement1, "dd/mm/yyyy")
  .Cells(RecordNumber, 21) = Format(Me.date_RDV1, "dd/mm/yyyy")
  .Cells(RecordNumber, 22) = Format(Me.date_prev_depot1, "dd/mm/yyyy")
  .Cells(RecordNumber, 23) = Format(Me.date_RDV2, "dd/mm/yyyy")
  .Cells(RecordNumber, 24) = Format(Me.date_RDV3, "dd/mm/yyyy")
  .Cells(RecordNumber, 25) = Format(Me.date_RDV4, "dd/mm/yyyy")
  .Cells(RecordNumber, 26) = Format(Me.date_RDV5, "dd/mm/yyyy")
  .Cells(RecordNumber, 27) = Format(Me.date_RDV6, "dd/mm/yyyy")
  .Cells(RecordNumber, 28) = Format(Me.date_RDV7, "dd/mm/yyyy")
  .Cells(RecordNumber, 29) = Format(Me.date_RDV8, "dd/mm/yyyy")
  .Cells(RecordNumber, 30) = Format(Me.date_RDV9, "dd/mm/yyyy")
  .Cells(RecordNumber, 31) = Format(Me.date_RDV10, "dd/mm/yyyy")
  .Cells(RecordNumber, 32) = Format(Me.date_RDV11, "dd/mm/yyyy")
  .Cells(RecordNumber, 33) = Format(Me.date_RDV12, "dd/mm/yyyy")
  .Cells(RecordNumber, 34) = Format(Me.date_RDV13, "dd/mm/yyyy")
  .Cells(RecordNumber, 35) = Format(Me.date_RDV14, "dd/mm/yyyy")
  .Cells(RecordNumber, 36) = Format(Me.date_RDV15, "dd/mm/yyyy")
  .Cells(RecordNumber, 37) = Format(Me.date_RDV16, "dd/mm/yyyy")
  .Cells(RecordNumber, 38) = Format(Me.date_RDV17, "dd/mm/yyyy")
  .Cells(RecordNumber, 39) = Format(Me.date_RDV18, "dd/mm/yyyy")
  .Cells(RecordNumber, 40) = Format(Me.date_depot1, "dd/mm/yyyy")
  .Cells(RecordNumber, 41) = Format(Me.date_facture1, "dd/mm/yyyy")
  .Cells(RecordNumber, 42) = Format(Me.date_jury1, "dd/mm/yyyy")
  .Cells(RecordNumber, 42) = Format(Me.post_jury1, "dd/mm/yyyy")
 
 End With
 Me.cboCandidat.ListIndex = CurrentRecord
End Sub
 
Sub OppositeStatus()
 ' Inverse la valeur booléenne des boutons d'action
 ' Modifie la propriété Caption du UserForm
 With Me
 .cboCandidat.Enabled = Not .cboCandidat.Enabled
 .frmMember.Enabled = Not .frmMember.Enabled
 .frmAction.Visible = Not .frmAction.Visible
 .frmConfirm.Visible = Not .frmConfirm.Visible
  .cmdExit.Visible = Not .cmdExit.Visible
 .frmNavigation.Visible = Not .frmNavigation.Visible
  If .cboCandidat.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation
  usfTitle ' Titre du UserForm
 End With
End Sub
 
Private Function usfTitle()
 ' Modifie la propriété Caption du UserForm
 Me.Caption = appTitle & " - " & lstStatusText(UserFormStatus)
End Function
 
Sub CheckButton()
 With Me
 .cmdFirst.Enabled = CurrentRecord > 0
 .cmdPrevious.Enabled = CurrentRecord > 0
 .cmdNext.Enabled = CurrentRecord <> rng.Rows.Count - 1
 .cmdLast.Enabled = CurrentRecord <> rng.Rows.Count - 1
 End With
End Sub
 
Private Sub UserForm_Terminate()
 Set rng = Nothing
 MsgBox "Au revoir"
End Sub
 
 
Private Sub statut1_Change()
 If statut1 <> "DEMANDEUR D'EMPLOI" Then
  Me.demandeur.Visible = False
 Else
  Me.demandeur.Visible = True
 End If
End Sub
 
Private Sub diplome1_Change()
 If Me.diplome1 = ("DE AS") Then
  Me.afgsu.Visible = True
 Else
  If Me.diplome1 = ("DE Aux Puer") Then
  Me.afgsu.Visible = True
   Else
   Me.afgsu.Visible = False
  End If
 End If
End Sub
 
Private Sub type_financement1_Click()
If .Me.type_financement1 = ("Financement France VAE") Then
Me.finacemnt.Visible = True
End Sub

12/11/2024, 17h10
Philippe Tulliez

Bonjour,

Citation:

Envoyé par ericfalcon

Bonjour.
Je n'ai pas su les adapter dans mon code

C'est étonnant car ce sont des fonctions génériques qui doivent pouvoir s'adapter à toutes situations
12/11/2024, 17h31
Philippe Tulliez

Bonjour,
Je vois que vous utilisez pour votre UserForm, un code que j'ai publié dans une contribution datant de janvier 2015 titrée USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire. or dans cette contribution, j'ai publié une nouvelle version avec de nouvelles procédures (fil ) qui traitent justement du sujet de votre question initiale, à savoir la gestion d'un ListBox avec multi selection
12/11/2024, 18h47
ericfalcon

Oui, c'est un formulaire que j'ai trouvé vraiment super et bien adapté à mon besoin.
je n'avais pas vu qu'il y avait une nouvelle version (cela dit sans le changement du financement, je n'en avais pas besoin)
13/11/2024, 12h57
ericfalcon

Bonjour
J'ai complété en utilisant la version 3.2. Cela fonctionne parfaitement
Il demeure un problème : le numéro de Ref n'est pas complété lorsque l'on ajoute un nouvel enregistrement

code actuel

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
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
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
 
'
Option Explicit
' Déclaration des variables et constantes de portées module
Enum Status ' Constantes énumérées Status
 Consultation = 0: Modify = 1: NewRec = 2: Remove = 3
End Enum
Const StatusLabel As String = "Consultation;Modification;Création;Suppression"
Const appTitle As String = "SUIVI DES CANDIDATS VAE - Eric FALCON"
Dim UserFormStatus As Byte ' Statut du type de travail (Consultation, Modify, NewRec, Remove)
Dim CurrentRecord As Long  ' Enregistrement en cours
Dim rng As Range           ' Plage de données traitée par le formulaire
Dim lstStatusText() As String
 
 
Private Sub date_prev_depot1_Change()
 
End Sub
 
Private Sub UserForm_Activate()
 InitVariable ' Initialisation des variables
 InitData     ' Initialisation adresse liste des données + RowSource
 InitListBox  'Initialisation du controle type de financement
 InitComboBox ' Initialisation ComboBox
  UserFormStatus = Status.Consultation ' Consultation par défaut
 With Me      ' Initialisation de certains contrôles
 .frmConfirm.Visible = False:
 .cboCandidat.Enabled = True: .frmMember.Enabled = False
 usfTitle     ' Titre du UserForm (Propriété Caption)
 End With
 ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille
 With Me: .cboCandidat.ListIndex = Me.Tag: End With
End Sub
 
Private Sub InitVariable()
 lstStatusText = Split(StatusLabel, ";")
 With Me
 '.optMale.GroupName = "Gender": Me.optFemale.GroupName = "Gender"
  If Len(.Tag) = 0 Then .Tag = 0
 End With
End Sub
 
Private Sub InitComboBox()
 With Me.cboCandidat
 .ColumnHeads = True: .ColumnCount = 4: .ColumnWidths = "0;40;40;50"
 End With
 InitRowSource '
End Sub
Private Sub InitListBox()
With Me.type_financement1
.ColumnHeads = False: .ColumnCount = 1: .ColumnWidths = "3"
 .MultiSelect = fmMultiSelectMulti
 .ListStyle = fmListStyleOption ' case à cocher
 .RowSource = Range("Données!F1:F6").Address(external:=True)
 End With
End Sub
 
Private Sub InitData()
 ' Redimensionnement de l'objet rng et RowSource
 Set rng = Worksheets("SUIVI").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
End Sub
 
Private Sub InitRowSource()
 With Me.cboCandidat
 .RowSource = rng.Address(external:=True)
 .ListIndex = 0 ' Force la sélection du premier enregistrement
 End With
End Sub
 
Private Sub cboCandidat_Click()
 CurrentRecord = Me.cboCandidat.ListIndex
 ReadRecord CurrentRecord ' Lecture de l'enregistrement sélectionné
 CheckButton
End Sub
 
Private Sub cmdCancel_Click()
 ReadRecord CurrentRecord
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
Private Function IsFieldsFilled() As Boolean
 ' Contrôle si tous les TextBox obligatoires sont remplis
 Dim Ctrl As Control
 IsFieldsFilled = True
 For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is MSForms.TextBox Then
   If LCase(Ctrl.Tag) = "fill" And Len(Trim(Ctrl.Value)) = 0 Then
    Ctrl.SetFocus: IsFieldsFilled = False: Exit Function
   End If
  End If
 Next Ctrl
End Function
Private Sub cmdConfirm_Click()
If Not IsFieldsFilled Then Exit Sub
 Select Case UserFormStatus
   Case Status.NewRec ' Nouvel enregistrement
     WriteRecord rng.Rows.Count: InitData: InitRowSource
     Me.cboCandidat.ListIndex = rng.Rows.Count - 1
   Case Status.Modify: WriteRecord CurrentRecord ' Modification de l'enregistrement
 End Select
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub cmdExit_Click()
 Unload Me ' Fermeture du UserForm
End Sub
 
Private Sub cmdModify_Click()
 UserFormStatus = Status.Modify
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub cmdNew_Click()
 UserFormStatus = Status.NewRec
 ClearTextBox   ' Efface les valeurs des TextBox
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub
 
Private Sub ClearTextBox()
 ' Efface toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmMember
 Dim Ctrl As Control
 For Each Ctrl In Me.frmMember.Controls
  If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
 Next
End Sub
 
Private Sub RemoveRecord(ByVal RecordNumber As Long)
 ' Suppression de l'enregistrement
 ' Contrainte : il doit rester un enregistrement
 Select Case True
  Case rng.Rows.Count = 1 ' Reste 1 enregistrement
    MsgBox "Vous devez laisser un enregistrement", vbInformation, "Suppression impossible"
  Case MsgBox("Voulez-vous supprimer la ligne sélectionnée", _
            vbCritical + vbYesNo + vbDefaultButton2, _
            "Suppression de la ligne " & CurrentRecord + 1) = vbYes
     RecordNumber = RecordNumber + 1
     rng.Rows(RecordNumber).Delete Shift:=xlUp ' Supprime la ligne de la plage
     InitData      ' Initialisation des variables objets
     InitRowSource ' Initialisation de la propriété RowSource
     CurrentRecord = 0: Me.cboCandidat.ListIndex = CurrentRecord
 End Select
 UserFormStatus = Status.Consultation
End Sub
 
Private Sub cmdNext_Click()
 Me.cboCandidat.ListIndex = CurrentRecord + 1
End Sub
 
Private Sub cmdPrevious_Click()
 Me.cboCandidat.ListIndex = CurrentRecord - 1
End Sub
 
Private Sub cmdFirst_Click()
 Me.cboCandidat.ListIndex = 0
End Sub
 
Private Sub cmdLast_Click()
 Me.cboCandidat.ListIndex = rng.Rows.Count - 1
End Sub
 
Private Sub cmdRemove_Click()
 UserFormStatus = Status.Remove: usfTitle
 RemoveRecord CurrentRecord ' Supprime l'enregistrement courant
 UserFormStatus = Status.Consultation: usfTitle
End Sub
 
Private Sub ReadRecord(ByVal RecordNumber As Long)
 ' Lecture de l'enregistrement
 RecordNumber = RecordNumber + 1
 With rng
 
  Me.Ref = Format(.Cells(RecordNumber, 1), "R000")
  Me.Nom1 = .Cells(RecordNumber, 2)
  Me.prenom1 = .Cells(RecordNumber, 3)
  Me.email1 = .Cells(RecordNumber, 4)
  Me.adresse1 = .Cells(RecordNumber, 5)
  Me.code1 = Format(.Cells(RecordNumber, 6), "00000")
  Me.statut1 = .Cells(RecordNumber, 7)
  Me.num_demandeur_emploi1 = Format(.Cells(RecordNumber, 8), "0000000@")
  ListBoxSelected Me.type_financement1, .Cells(RecordNumber, 9)
  Me.suivi_etape1 = .Cells(RecordNumber, 10)
  Me.remarque1 = .Cells(RecordNumber, 11)
  Me.diplome1 = .Cells(RecordNumber, 12)
  Me.date_contact1 = Format(.Cells(RecordNumber, 13), "dd/mm/yyyy")
  Me.date_faisabilite1 = Format(.Cells(RecordNumber, 14), "dd/mm/yyyy")
  Me.accord_faisabilite1 = Format(.Cells(RecordNumber, 15), "dd/mm/yyyy")
  Me.kairos1 = Format(.Cells(RecordNumber, 16), "dd/mm/yyyy")
  Me.demande_afgsu1 = Format(.Cells(RecordNumber, 17), "dd/mm/yyyy")
  Me.date_session_afgsu1 = Format(.Cells(RecordNumber, 18), "dd/mm/yyyy")
  Me.demande_financement1 = Format(.Cells(RecordNumber, 19), "dd/mm/yyyy")
  Me.financement1 = Format(.Cells(RecordNumber, 20), "dd/mm/yyyy")
  Me.date_RDV1 = Format(.Cells(RecordNumber, 21), "dd/mm/yyyy")
  Me.date_prev_depot1 = Format(.Cells(RecordNumber, 22), "dd/mm/yyyy")
  Me.date_RDV2 = Format(.Cells(RecordNumber, 23), "dd/mm/yyyy")
  Me.date_RDV3 = Format(.Cells(RecordNumber, 24), "dd/mm/yyyy")
  Me.date_RDV4 = Format(.Cells(RecordNumber, 25), "dd/mm/yyyy")
  Me.date_RDV5 = Format(.Cells(RecordNumber, 26), "dd/mm/yyyy")
  Me.date_RDV6 = Format(.Cells(RecordNumber, 27), "dd/mm/yyyy")
  Me.date_RDV7 = Format(.Cells(RecordNumber, 28), "dd/mm/yyyy")
  Me.date_RDV8 = Format(.Cells(RecordNumber, 29), "dd/mm/yyyy")
  Me.date_RDV9 = Format(.Cells(RecordNumber, 30), "dd/mm/yyyy")
  Me.date_RDV10 = Format(.Cells(RecordNumber, 31), "dd/mm/yyyy")
  Me.date_RDV11 = Format(.Cells(RecordNumber, 32), "dd/mm/yyyy")
  Me.date_RDV12 = Format(.Cells(RecordNumber, 33), "dd/mm/yyyy")
  Me.date_RDV13 = Format(.Cells(RecordNumber, 34), "dd/mm/yyyy")
  Me.date_RDV14 = Format(.Cells(RecordNumber, 35), "dd/mm/yyyy")
  Me.date_RDV15 = Format(.Cells(RecordNumber, 36), "dd/mm/yyyy")
  Me.date_RDV16 = Format(.Cells(RecordNumber, 37), "dd/mm/yyyy")
  Me.date_RDV17 = Format(.Cells(RecordNumber, 38), "dd/mm/yyyy")
  Me.date_RDV18 = Format(.Cells(RecordNumber, 39), "dd/mm/yyyy")
  Me.date_depot1 = Format(.Cells(RecordNumber, 40), "dd/mm/yyyy")
  Me.date_facture1 = Format(.Cells(RecordNumber, 41), "dd/mm/yyyy")
  Me.date_jury1 = Format(.Cells(RecordNumber, 42), "dd/mm/yyyy")
  Me.post_jury1 = Format(.Cells(RecordNumber, 43), "dd/mm/yyyy")
 
 
   Me.frmMember.Caption = "Fiche " & Format(.Cells(RecordNumber, 1), "R000")
 End With
End Sub
 
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement
 Me.cboCandidat.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If
   End With
  .Cells(RecordNumber, 1) = Format(Me.Ref, "R000")
  .Cells(RecordNumber, 2) = Me.Nom1
  .Cells(RecordNumber, 3) = Me.prenom1
  .Cells(RecordNumber, 4) = Me.email1
  .Cells(RecordNumber, 5) = Me.adresse1
  .Cells(RecordNumber, 6) = Format(Me.code1, "00 000")
  .Cells(RecordNumber, 7) = Me.statut1
  .Cells(RecordNumber, 8) = Format(Me.num_demandeur_emploi1, "0000000@")
  .Cells(RecordNumber, 9) = JoinSelectedRows(Me.type_financement1)
  '.cells(RecordNumber,10)=Me.suivi_etape1
  .Cells(RecordNumber, 11) = Me.remarque1
  .Cells(RecordNumber, 12) = Me.diplome1
  .Cells(RecordNumber, 13) = Format(Me.date_contact1, "dd/mm/yyyy")
  .Cells(RecordNumber, 14) = Format(Me.date_faisabilite1, "dd/mm/yyyy")
  .Cells(RecordNumber, 15) = Format(Me.accord_faisabilite1, "dd/mm/yyyy")
  .Cells(RecordNumber, 16) = Format(Me.kairos1, "dd/mm/yyyy")
  .Cells(RecordNumber, 17) = Format(Me.demande_afgsu1, "dd/mm/yyyy")
  .Cells(RecordNumber, 18) = Format(Me.date_session_afgsu1, "dd/mm/yyyy")
  .Cells(RecordNumber, 19) = Format(Me.demande_financement1, "dd/mm/yyyy")
  .Cells(RecordNumber, 20) = Format(Me.financement1, "dd/mm/yyyy")
  .Cells(RecordNumber, 21) = Format(Me.date_RDV1, "dd/mm/yyyy")
  .Cells(RecordNumber, 22) = Format(Me.date_prev_depot1, "dd/mm/yyyy")
  .Cells(RecordNumber, 23) = Format(Me.date_RDV2, "dd/mm/yyyy")
  .Cells(RecordNumber, 24) = Format(Me.date_RDV3, "dd/mm/yyyy")
  .Cells(RecordNumber, 25) = Format(Me.date_RDV4, "dd/mm/yyyy")
  .Cells(RecordNumber, 26) = Format(Me.date_RDV5, "dd/mm/yyyy")
  .Cells(RecordNumber, 27) = Format(Me.date_RDV6, "dd/mm/yyyy")
  .Cells(RecordNumber, 28) = Format(Me.date_RDV7, "dd/mm/yyyy")
  .Cells(RecordNumber, 29) = Format(Me.date_RDV8, "dd/mm/yyyy")
  .Cells(RecordNumber, 30) = Format(Me.date_RDV9, "dd/mm/yyyy")
  .Cells(RecordNumber, 31) = Format(Me.date_RDV10, "dd/mm/yyyy")
  .Cells(RecordNumber, 32) = Format(Me.date_RDV11, "dd/mm/yyyy")
  .Cells(RecordNumber, 33) = Format(Me.date_RDV12, "dd/mm/yyyy")
  .Cells(RecordNumber, 34) = Format(Me.date_RDV13, "dd/mm/yyyy")
  .Cells(RecordNumber, 35) = Format(Me.date_RDV14, "dd/mm/yyyy")
  .Cells(RecordNumber, 36) = Format(Me.date_RDV15, "dd/mm/yyyy")
  .Cells(RecordNumber, 37) = Format(Me.date_RDV16, "dd/mm/yyyy")
  .Cells(RecordNumber, 38) = Format(Me.date_RDV17, "dd/mm/yyyy")
  .Cells(RecordNumber, 39) = Format(Me.date_RDV18, "dd/mm/yyyy")
  .Cells(RecordNumber, 40) = Format(Me.date_depot1, "dd/mm/yyyy")
  .Cells(RecordNumber, 41) = Format(Me.date_facture1, "dd/mm/yyyy")
  .Cells(RecordNumber, 42) = Format(Me.date_jury1, "dd/mm/yyyy")
  .Cells(RecordNumber, 42) = Format(Me.post_jury1, "dd/mm/yyyy")
 
 End With
 Me.cboCandidat.ListIndex = CurrentRecord
End Sub
 
Sub OppositeStatus()
 ' Inverse la valeur booléenne des boutons d'action
 ' Modifie la propriété Caption du UserForm
 With Me
 .cboCandidat.Enabled = Not .cboCandidat.Enabled
 .frmMember.Enabled = Not .frmMember.Enabled
 .frmAction.Visible = Not .frmAction.Visible
 .frmConfirm.Visible = Not .frmConfirm.Visible
  .cmdExit.Visible = Not .cmdExit.Visible
 .frmNavigation.Visible = Not .frmNavigation.Visible
  If .cboCandidat.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation
  usfTitle ' Titre du UserForm
 End With
End Sub
 
Private Function usfTitle()
 ' Modifie la propriété Caption du UserForm
 Me.Caption = appTitle & " - " & lstStatusText(UserFormStatus)
End Function
 
Sub CheckButton()
 With Me
 .cmdFirst.Enabled = CurrentRecord > 0
 .cmdPrevious.Enabled = CurrentRecord > 0
 .cmdNext.Enabled = CurrentRecord <> rng.Rows.Count - 1
 .cmdLast.Enabled = CurrentRecord <> rng.Rows.Count - 1
 End With
End Sub
 
Private Sub UserForm_Terminate()
 Set rng = Nothing
 MsgBox "Au revoir"
End Sub
 
 
Private Sub statut1_Change()
 If statut1 <> "DEMANDEUR D'EMPLOI" Then
  Me.demandeur.Visible = False
 Else
  Me.demandeur.Visible = True
 End If
End Sub
 
Private Sub diplome1_Change()
 If Me.diplome1 = ("DE AS") Then
  Me.afgsu.Visible = True
 Else
  If Me.diplome1 = ("DE Aux Puer") Then
  Me.afgsu.Visible = True
   Else
   Me.afgsu.Visible = False
  End If
 End If
End Sub
 
Private Sub type_financement1_Change()
If .Me.type_financement1 = ("Financement France VAE") Then
Me.finacemnt.Visible = True
End Sub
Function ListBoxSelected(objListBox As Object, wRng As Range)
 ' Modifie la propriété Selected() de l'objet ListBox passé en argument
 ' Author : Philippe Tulliez (10/03/2013)
 ' Arguments
 '  objListBox (Objet de type ListBox)
 '  wRng (Objet de type Range) - Cellule contenant les éléments à sélectionner
 Dim Tablo(), Elem As Byte
 If TypeName(objListBox) <> "ListBox" Then
  MsgBox "L'argument objLstBox (" & objListBox.Name & ") n'est pas un ListBox": Exit Function
 End If
 With objListBox
  For Elem = 0 To .ListCount - 1
  .Selected(Elem) = (InStr(wRng.Value, objListBox.List(Elem)) > 0)
  Next
 End With
End Function
 
Function JoinSelectedRows(objListBox As Control, Optional Separator As String = ";") As String
 ' Limite de la fonction
 '  Maximum de lignes sélectionnable 256
 ' Author : Philippe Tulliez (10/03/2013)
 ' Renvoie une chaîne de caractères des éléments sélectionnés
 '   dans le ListBox (argument objListBox)
 '   et séparé par le caractère défini par l'argument [Separator]
 ' Arguments
 ' objListBox  (Objet de type ListBox)
 ' [Separator] (string) par défaut ;
 Dim Tablo(), ColumnNumber As Byte, Elem As Byte, Ind As Byte
 If TypeName(objListBox) <> "ListBox" Then
  MsgBox "L'argument objLstBox (" & objListBox.Name & ") n'est pas un ListBox": Exit Function
 End If
 With objListBox
  For Elem = 0 To .ListCount - 1
   If .Selected(Elem) = True Then ' Teste si la ligne du ListBox a été sélectionnée
    ReDim Preserve Tablo(Ind)
    Tablo(Ind) = .List(Elem, ColumnNumber): Ind = Ind + 1
   End If
  Next Elem
 End With
 JoinSelectedRows = Join(Tablo, Separator) ' Valeur renvoyée
End Function

Citation:

Envoyé par ericfalcon

Code:

1
2
3
4
5
6
7
 
'
 
Private Sub type_financement1_Change()
If .Me.type_financement1 = ("Financement France VAE") Then
Me.finacemnt.Visible = True
End Sub

Ce code ne fonctionne pas.

13/11/2024, 18h03
Philippe Tulliez

Bonjour,

Citation:

Ce code ne fonctionne pas.

Il faudrait être plus précis dans vos commentaires.
Qu'est-ce qui ne fonctionne pas ?
Le résultat attendu n'est pas correct ?
Le VBA lève une erreur ? Dans l'affirmative, le numéro de l'erreur, son message et la ligne en erreur serait une information non négligeable.

Dans cette ligne If .Me.type_financement1 = ("Financement France VAE") Then. Le point devant l'objet Me ne peut que provoquer une erreur. Une autre bizarrerie que je constate c'est l'orthographe différente de Financement et finacemnt. A moins qu'il s'agisse de deux objets différents, cela ne peut que déclencher une erreur.
13/11/2024, 18h37
ericfalcon
finacemnt est une frame. Je souhaite qu'elle n'apparaisse que pour les financements assurés par france vae.
J'ai modifié le code
Code:

1 2 3 4 5 6 Private Sub type_financement1_Change() If Me.type_financement1 = ("Financement France VAE") Then Me.finacemnt.Visible = True End If End Sub
le résultat attendu n'est pas correct puisque le frame finacemnt n'est jamais invisible. type_financement1 est une listbox.

Par ailleurs. En créant une nouvelle fiche : le numéro de ref n'est pas modifié (il ne lui en est attribué aucun) et la ligne a été ajoutée en ligne 34 alors qu'elle aurait du être en ligne 21 (J'ai ajouté des données réelles depuis.)

J'ai modifié la procédure d'initialisation du formulaire pour que par défaut les frames ne devant pas forcément être visible soient cachées.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub UserForm_Activate() InitVariable ' Initialisation des variables InitData ' Initialisation adresse liste des données + RowSource InitListBox 'Initialisation du controle type de financement InitComboBox ' Initialisation ComboBox UserFormStatus = Status.Consultation ' Consultation par défaut With Me ' Initialisation de certains contrôles .frmConfirm.Visible = False: .cboCandidat.Enabled = True: .frmMember.Enabled = False usfTitle ' Titre du UserForm (Propriété Caption) Me.finacemnt.Visible = False Me.afgsu.Visible = False Me.demandeur.Visible = False End With ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille With Me: .cboCandidat.ListIndex = Me.Tag: End With End Sub
Le résultat est correct, c'est-a-dire que les frames (afgsu et demandeur) ne sont visible que lorsque la condition est remplie. Mais la frame finacemnt n'apparaît pas lorsque le type de financement est france VAE alors que la frame devrait être visible dans ce cas..

13/11/2024, 19h30
Philippe Tulliez

Bonjour,

Citation:

le résultat attendu n'est pas correct puisque le frame finacemnt n'est jamais invisible. type_financement1 est une listbox.

Lorsque la valeur d'une propriété booléenne dépend d'un critère, il est inutile d'utiliser l'instruction If...Then...Else. Il suffit d'utiliser le test logique pour modifier cette valeur (voir le lien ci-dessous). Comme vous n'utiliser pas le Else , le Frame sera toujours visible
Si l'on souhaite que le Frame soit invisible sauf si Me.type_financement1 est égal à Financement France VAE alors le code ci-dessous devrait faire le job

Code:

With Me: .finacemnt.Visible = (.type_financement1 = "Financement France VAE"): End With

Attention, écrit de mémoire donc non testé

A lire éventuellement mon billet sur le sujet VBA - De la mauvaise utilisation d'un If...Then...Else pour modifier une propriété Booléenne

J'ai mis ce code

Code:

1
2
3
4
Private Sub type_financement1_Select()
 
With Me: .finacemnt.Visible = (.type_financement1 = "Financement France VAE"): End With
End Sub

La frame financemnt n'apparaît pas plus.

J'ai aussi essayé le code en l'ajoutant dans la macro activate ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Activate()
 InitVariable ' Initialisation des variables
 InitData     ' Initialisation adresse liste des données + RowSource
 InitListBox  'Initialisation du controle type de financement
 InitComboBox ' Initialisation ComboBox
  UserFormStatus = Status.Consultation ' Consultation par défaut
 With Me      ' Initialisation de certains contrôles
 .frmConfirm.Visible = False:
 .cboCandidat.Enabled = True: .frmMember.Enabled = False
 usfTitle     ' Titre du UserForm (Propriété Caption)
 .finacemnt.Visible = (.type_financement1 = "Financement France VAE")
 .afgsu.Visible = False
 .demandeur.Visible = False
 End With
 ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille
 With Me: .cboCandidat.ListIndex = Me.Tag: End With
End Sub

Le résultat est une erreur d'éxécution '94' : Utilisation incorrecte de Null

14/11/2024, 08h40
Philippe Tulliez

Bonjour,

Citation:

La frame financemnt n'apparaît pas plus.

Etes-vous certain que l'événement type_financement1_Select est bien intercepté ?
Mettez un point d'arrêt sur la ligne 3 et en ligne 2 mettez cette ligne d'instruction MsgBox ">" & Me.type_financement1 & "<". Cela permet de vérifier que l'événement est bien intercepté et que la valeur renvoyée par Me.type_financement1 est bien Financement France VAE sans caractère espacé avant ou après la chaîne.
14/11/2024, 18h11
ericfalcon

J'ai bien mis le point d'arrêt et la commande pour la messagebox.
par contre je ne me suis jamais servi des point d'arrêts.

En allant dans le formulaire et en modifiant le financement pour une personne, cela ne fait pas apparaitre le frame et rien ne se passe, la messagebox n'apparait pas.
15/11/2024, 07h53
Philippe Tulliez

Bonjour,

Citation:

En allant dans le formulaire et en modifiant le financement pour une personne, cela ne fait pas apparaitre le frame et rien ne se passe, la messagebox n'apparait pas.

Cela signifie donc que l'événement n'est pas intercepté

Citation:

par contre je ne me suis jamais servi des point d'arrêts.

C'est l'un des outils de débogage voir ce tutoriel sur le sujet Le débogage sous Visual Basic 6 et Visual Basic pour Application(1re partie) et tout particulièrement le chapitre V-B. Exécuter le code
15/11/2024, 08h59
ericfalcon

Bonjour.
J'ai modifié en utilisant type_financement1_Change.
la messagebox apparaît mais n'affiche rien d'autre que ><. En cliquant sur OK apparait le message erreur 94 utilisation incorrecte de null
15/11/2024, 10h27
Nain porte koi

Hello,

ce qui veut dire que "Me.type_financement1" ne contient rien car il devrait afficher

Citation:

> qqchose <

avec le code de Philippe

Code:

MsgBox ">" & Me.type_financement1 & "<"

A mon humble avis, si vous voulez que l'on vous aide à déboguer votre code il faudrait poster le classeur complet avec des données anonymisées
15/11/2024, 10h34
Philippe Tulliez

Bonjour,

Citation:

la messagebox apparaît mais n'affiche rien d'autre que ><. En cliquant sur OK apparait le message erreur 94 utilisation incorrecte de null

C'est la raison pour laquelle cela ne fonctionne pas correctement puisque pour que le Frame soit visible, il faut qu'il y ait comme valeur "Financement France VAE".
Soit la propriété de l'objet n'est pas la bonne soit il y a une autre problème de conception. Personnellement, je n'ai pas le temps de regarder tout votre code
15/11/2024, 13h10
ericfalcon

1 pièce(s) jointe(s)

Citation:

Envoyé par Nain porte koi

Hello,

A mon humble avis, si vous voulez que l'on vous aide à déboguer votre code il faudrait poster le classeur complet avec des données anonymisées

Voici le fichier
15/11/2024, 13h11
ericfalcon

Citation:

Envoyé par Philippe Tulliez

Bonjour,

C'est la raison pour laquelle cela ne fonctionne pas correctement puisque pour que le Frame soit visible, il faut qu'il y ait comme valeur "Financement France VAE".
Soit la propriété de l'objet n'est pas la bonne soit il y a une autre problème de conception. Personnellement, je n'ai pas le temps de regarder tout votre code

Bonjour.
Merci du temps que vous avez pris

Bonjour,

Citation:

le résultat attendu n'est pas correct puisque le frame finacemnt n'est jamais invisible. type_financement1 est une listbox.

Il faut apprendre à être précis dans vos commentaires. En fait c'est une zone de liste modifiable.

Citation:

La frame financemnt n'apparaît pas plus.

Pour que'elle apparaisse vous devez modifier la procédure ReadRecord comme suit :

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
Private Sub ReadRecord(ByVal RecordNumber As Long)
    ' Lecture de l'enregistrement
    RecordNumber = RecordNumber + 1
    With rng
 
        Me.Ref = Format(.Cells(RecordNumber, 1), "R000")
        Me.Nom1 = .Cells(RecordNumber, 2)
        Me.prenom1 = .Cells(RecordNumber, 3)
        Me.email1 = .Cells(RecordNumber, 4)
        Me.adresse1 = .Cells(RecordNumber, 5)
        Me.code1 = Format(.Cells(RecordNumber, 6), "00 000")
        Me.statut1 = .Cells(RecordNumber, 7)
        Me.num_demandeur_emploi1 = Format(.Cells(RecordNumber, 8), "0000000@")
        'Me.type_financement1.Value = getFinancement(.Cells(RecordNumber, 9))
        Me.type_financement1.Value = .Cells(RecordNumber, 9)
        Me.suivi_etape1 = .Cells(RecordNumber, 10)
        Me.remarque1 = .Cells(RecordNumber, 11)
        Me.diplome1 = .Cells(RecordNumber, 12)
        Me.date_contact1 = Format(.Cells(RecordNumber, 13), "dd/mm/yyyy")
        Me.date_faisabilite1 = Format(.Cells(RecordNumber, 14), "dd/mm/yyyy")
        Me.accord_faisabilite1 = Format(.Cells(RecordNumber, 15), "dd/mm/yyyy")
        Me.kairos1 = Format(.Cells(RecordNumber, 16), "dd/mm/yyyy")
        Me.demande_afgsu1 = Format(.Cells(RecordNumber, 17), "dd/mm/yyyy")
        Me.date_session_afgsu1 = Format(.Cells(RecordNumber, 18), "dd/mm/yyyy")
        Me.demande_financement1 = Format(.Cells(RecordNumber, 19), "dd/mm/yyyy")
        Me.financement1 = Format(.Cells(RecordNumber, 20), "dd/mm/yyyy")
        Me.date_RDV1 = Format(.Cells(RecordNumber, 21), "dd/mm/yyyy")
        Me.date_prev_depot1 = Format(.Cells(RecordNumber, 22), "dd/mm/yyyy")
        Me.date_RDV2 = Format(.Cells(RecordNumber, 23), "dd/mm/yyyy")
        Me.date_RDV3 = Format(.Cells(RecordNumber, 24), "dd/mm/yyyy")
        Me.date_RDV4 = Format(.Cells(RecordNumber, 25), "dd/mm/yyyy")
        Me.date_RDV5 = Format(.Cells(RecordNumber, 26), "dd/mm/yyyy")
        Me.date_RDV6 = Format(.Cells(RecordNumber, 27), "dd/mm/yyyy")
        Me.date_RDV7 = Format(.Cells(RecordNumber, 28), "dd/mm/yyyy")
        Me.date_RDV8 = Format(.Cells(RecordNumber, 29), "dd/mm/yyyy")
        Me.date_RDV9 = Format(.Cells(RecordNumber, 30), "dd/mm/yyyy")
        Me.date_RDV10 = Format(.Cells(RecordNumber, 31), "dd/mm/yyyy")
        Me.date_RDV11 = Format(.Cells(RecordNumber, 32), "dd/mm/yyyy")
        Me.date_RDV12 = Format(.Cells(RecordNumber, 33), "dd/mm/yyyy")
        Me.date_RDV13 = Format(.Cells(RecordNumber, 34), "dd/mm/yyyy")
        Me.date_RDV14 = Format(.Cells(RecordNumber, 35), "dd/mm/yyyy")
        Me.date_RDV15 = Format(.Cells(RecordNumber, 36), "dd/mm/yyyy")
        Me.date_RDV16 = Format(.Cells(RecordNumber, 37), "dd/mm/yyyy")
        Me.date_RDV17 = Format(.Cells(RecordNumber, 38), "dd/mm/yyyy")
        Me.date_RDV18 = Format(.Cells(RecordNumber, 39), "dd/mm/yyyy")
        Me.date_depot1 = Format(.Cells(RecordNumber, 40), "dd/mm/yyyy")
        Me.date_facture1 = Format(.Cells(RecordNumber, 41), "dd/mm/yyyy")
        Me.date_jury1 = Format(.Cells(RecordNumber, 42), "dd/mm/yyyy")
        Me.post_jury1 = Format(.Cells(RecordNumber, 43), "dd/mm/yyyy")
 
 
        Me.frmMember.Caption = "Fiche " & Format(RecordNumber, "R000")
        finacemnt.Visible = (type_financement1.Value = "Financement France VAE") Or (UserFormStatus = Status.Modify)
    End With
End Sub

Et dans la procédure OpositeStatus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OppositeStatus()
    ' Inverse la valeur booléenne des boutons d'action
    ' Modifie la propriété Caption du UserForm
    With Me
        .cboCandidat.Enabled = Not .cboCandidat.Enabled
        .frmMember.Enabled = Not .frmMember.Enabled
        .frmAction.Visible = Not .frmAction.Visible
        .frmConfirm.Visible = Not .frmConfirm.Visible
        .cmdExit.Visible = Not .cmdExit.Visible
        .frmNavigation.Visible = Not .frmNavigation.Visible
        If .cboCandidat.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation
        usfTitle                                 ' Titre du UserForm
        finacemnt.Visible = (type_financement1.Value = "Financement France VAE") Or (UserFormStatus = Status.Modify)
    End With
End Sub

16/11/2024, 10h55
ericfalcon

[QUOTE=Valtrase;12055773]Bonjour,

Il faut apprendre à être précis dans vos commentaires. En fait c'est une zone de liste modifiable.

En fait, il y a deux choses :
- type_financement1 est une zone de liste modifiable, qui doit toujours apparaître
- la frame finacemnt contient deux champs de date (demande et accord) mais elle ne doit apparaître que pour un seul type de financement, le financement par France VAE, pour les autres types de financement, elle n'est pas pertinente
16/11/2024, 11h38
Valtrase
Re,
Bon nous ne devons pas avoir le même fichier alors.
Sur celui fournis type_financement1 fait parti du cadre finacemnt,(qui pourrait être nommée explicitement).
Pièce jointe 661796

Donc, si vous voulez que la zone de liste déroulante soit toujours visible :
- Soit elle ne fait pas partie de ce cadre (Si vous cacher le cadre les contrôles contenus seront cachés aussi).
- Soit vous devez agir sur la visibilité des contrôles demande_financement1, financement1 et leurs étiquettes respectives.
Bonne programmation.

J'ai enfin réussi quelque chose, en utilisant

Code:

1
2
3
Private Sub type_financement1_change()
If Me.type_financement1.Selected(3) Then Me.finacemnt.Visible = True
End Sub

et dans

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OppositeStatus()
 ' Inverse la valeur booléenne des boutons d'action
 ' Modifie la propriété Caption du UserForm
 With Me
 .cboCandidat.Enabled = Not .cboCandidat.Enabled
 .frmMember.Enabled = Not .frmMember.Enabled
 .frmAction.Visible = Not .frmAction.Visible
 .frmConfirm.Visible = Not .frmConfirm.Visible
  .cmdExit.Visible = Not .cmdExit.Visible
 .frmNavigation.Visible = Not .frmNavigation.Visible
  If .cboCandidat.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation
  usfTitle ' Titre du UserForm
  .finacemnt.Visible = Me.type_financement1.Selected(3)
 End With
End Sub

Il reste une imperfection : lorsque je modifie le type de financement, alors que celui précédemment sélectionné était le troisième de la liste (Financement France VAE), cela ne fait pas disparaître le frame finacemnt

16/11/2024, 13h08
ericfalcon

1 pièce(s) jointe(s)

Voici le fichier actuel
Pièce jointe 661799

Re, Je vous ai donné les réponse dans le post #26, vous ne lisez pas ?

Citation:

Private Sub type_financement1_change()
If Me.type_financement1.Selected(3) Then Me.finacemnt.Visible = True
End Sub

Ceci ne peut fonctionner qu'a moitié. Lisez les posts de Philippe Tulliez à se sujet.
Si vous voulez utiliser l'index plutôt que la valeur, la bonne syntaxe devrait être :
Code:

1 2 3 Private Sub type_financement1_change() finacemnt.Visible = (type_financement1.ListIndex = 3) End Sub
De même :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub OppositeStatus() ' Inverse la valeur booléenne des boutons d'action ' Modifie la propriété Caption du UserForm With Me .cboCandidat.Enabled = Not .cboCandidat.Enabled .frmMember.Enabled = Not .frmMember.Enabled .frmAction.Visible = Not .frmAction.Visible .frmConfirm.Visible = Not .frmConfirm.Visible .cmdExit.Visible = Not .cmdExit.Visible .frmNavigation.Visible = Not .frmNavigation.Visible If .cboCandidat.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation usfTitle ' Titre du UserForm finacemnt.Visible = (type_financement1.ListIndex = 3) End With End Sub

25/11/2024, 18h27
ericfalcon

1 pièce(s) jointe(s)

Problème de date

Bonjour.
Merci pour la solution précedente.
J'ai un nouveau problème, lié au format des dates. C'est visiblement un problème classique mais je n'ai pas réussi. en effet lorsque le jour est égal ou inférieur à 12 cela me met la date américaine et non la date française, ainsi le 09/10/24 deviens 10/09/24, ce qui est un vrai problème.
Deuxième problème, certaines dates sont transférer dans la feuille sous forme de texte et excel ne les reconnait pas comme des nombres.
Pour essayer de résoudre ces problèmes j'ai essayé de faire apparaître un calendrier à chaque clic pour ajouter une date dans le formulaire (le seul essai est sur date premier contact) mais je ne parviens pas à le faire fonctionner...

Voici le fichier actuelPièce jointe 662217
25/11/2024, 21h09
Valtrase

Bonjour,
Cela vous arrive t-il de compiler le projet ?
J'ai abandonné au bout de la quatrième correction. :weird:

La moindre des chose c'est de fournir un classeur opérationnel, je pense. Sinon comment voulez-vous que l'on vous aide.
30/11/2024, 17h49
ericfalcon

1 pièce(s) jointe(s)

Citation:

Envoyé par Valtrase

Bonjour,
Cela vous arrive t-il de compiler le projet ?

Bonjour
Je ne vois pas ce que signifie compiler, dans ce cadre.
Je partage régulièrement le fichier pour tenir compte des différentes corrections apportées au fur et à mesure mais j'ai l'impression que les fichiers attachés ne s'affichent pas ou ne sont pas proposés.
Je fais un nouvel essai de partage de fichier à jour.Pièce jointe 662410
02/12/2024, 09h57
ericfalcon

1 pièce(s) jointe(s)

Problèmes résolus

Bonjour
J'ai enfin réglé tous les problèmes : dates, affichage de la frame finacemnt. Concernant les dates, j'utilise désormais un calendrier.

Voici le fichier, pour ceux qui veulent le récupérer Pièce jointe 662428