Bonjour,

J'ai un Userform (UserForm_traitement) tout simple (configuré ShowModal : False) contenant deux labels.

Ce Userform permet simplement de patienter en attendant que mon code se fasse et en fin de procédure, je décharge le Userform.

J'appelle le userform de cette manière et tout simplement au tout début de la procédure :

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
 
Private Sub CommandButton2_Click()
 
Dim fld, fic
Dim NouveauNom, NouveauAvant, NouveauApres As String
Dim I, J, k As Byte, t, u, v, w As String
 
If TextBox100.Value = "" Or TextBox102.Value = "" Or TextBox103.Value = "" Or TextBox402.Value = "" Or ComboBox_typedocument1.Value = "" Or ComboBox_typedocument1.Value <> "Démuni(e) de document d'identité" And ComboBox_naturedocument1.Value = "" Then
 
If TextBox100.Value = "" Then Label2.ForeColor = &HFF&
If TextBox100.Value <> "" Then Label2.ForeColor = &H80000012
If TextBox102.Value = "" Then Label4.ForeColor = &HFF&
If TextBox102.Value <> "" Then Label4.ForeColor = &H80000012
If TextBox103.Value = "" Then Label6.ForeColor = &HFF&
If TextBox103.Value <> "" Then Label6.ForeColor = &H80000012
If TextBox402.Value = "" Then Label108.ForeColor = &HFF&
If TextBox402.Value <> "" Then Label108.ForeColor = &H80000012
If ComboBox_typedocument1.Value = "" Then Label72.ForeColor = &HFF&
If ComboBox_typedocument1.Value <> "" Then Label72.ForeColor = &H80000012
If ComboBox_typedocument1.Value <> "" And ComboBox_typedocument1.Value <> "Démuni(e) de document d'identité" And ComboBox_naturedocument1.Value = "" Then Label601.ForeColor = &HFF&
If ComboBox_typedocument1.Value <> "" And ComboBox_typedocument1.Value <> "Démuni(e) de document d'identité" And ComboBox_naturedocument1.Value <> "" Then Label601.ForeColor = &H80000012
 
UserForm_infochamps.Show
Exit Sub
End If
 
UserForm_traitement.Show
 
Label2.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label108.ForeColor = &H80000012
Label72.ForeColor = &H80000012
Label601.ForeColor = &H80000012
 
For I = 106 To 107
    With Me.Controls("TextBox" & I)
        If .Value <> "" Then t = t & .Value & ", "
    End With
Next I
For J = 108 To 109
    With Me.Controls("TextBox" & J)
        If .Value <> "" Then u = u & .Value & " "
    End With
Next J
 
.......
Ce que je ne comprends pas, c'est que les deux labels n'apparaissent pas à l'ouverture du Userform.

Pourtant, j'appelle également ce même Userform à un autre moment et les deux labels avec le texte s'affichent correctement.

D'avance merci.

Michael.