VBA Excel - Pas de labels à l'ouverture d'un UserForm

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:

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.

Bonjour,

Après avoir effectué quelques tests, il s'avère que c'est lorsque j'ouvre le UserForm avec le paramètre ShowModal sur False que mes deux labels ne s'affichent pas. Sur True aucun problème mais du coup mon code est bloqué.

Pourtant, comme je le disais, je l'utilise à un autre endroit et ils s'affichent bien.

Quelqu'un aurait une idée d'où pourrait provenir le problème?

D'avance merci pour votre aide.

Michael.

Je vous joins mon fichier Excel si cela peut aider.

Le UserForm concerné est "UserForm_traitement" et le problème vient quand il est lancé depuis le UserForm "UserForm_gestiondossier".

Par contre, quand je le lance depuis le UserForm "UserForm_gestiondocuments", aucun problème.

D'avance merci pour l'aide apportée.

Michael.

Bonjour à tous,

J'ai réglé mon problème en faisant un UserForm.Repaint au début.

D'avance merci à tous.

Excellente journée.