Discussion :

[sbobi]

Bonjour,

Je suis en train de réaliser un formulaire de remplissage, qui alimentera par la suite une page Excel. je suis pour l'instant sur la mise en forme du UF avec les ComboBox.List, les .Font etc...
Tout fonctionné pour le mieux jusqu’à ce que je test un "Unload.Userform1" ... Depuis la forme du UF est présente, mais toutes les propriétés liées aux objets ne sont plus affichées.

Quelqu'un pour m'éclaircir ?

PS: Mon fichier en PJ.

[joe.levrai]

Bonjour,

peux-tu nous montrer l'évènement dans lequel tu effectues le paramétrage de ton Userform ?

[sbobi]

Merci pour ta réponse,

Ces paramètres sont dans l'évènement "Userform1"

[joe.levrai]

Userform1 n'est pas un évènement

c'est un objet qui possède des évènements

montre-nous l'évènement dans lequel est rédigé ton code (et le code aussi au passage !), et qui est situé dans ton objet Userform1
tu y accèdes en double cliquant dessus

[sbobi]

Evènement "initialize" si je ne me trompe pas.

Je fais du VBA depuis quelques jours, je ne connais pas encore tout les termes associés .

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
Sub Userform1_initialize()
    vieserie.List = Array("Vie série", "Projet")  ' Ajout dans la Box1 les données Vie série et Projet
    ComboBox2.List = Array("SE 2.0", "SE 2.1", "PC2", "2 Bis", "SE 4.3", "SE 4.4", "SE4.5", "TMD", "5 Bis", "ME 3", "ME 5", "TCM", "Proto", "Transverse") ' Ajout des différents secteur dans la Box2
    ComboBox3.List = Array("0", "1", "2", "3")
 
 
'............................
' Propriétés des cases listes
'............................
 
With vieserie.Font  ' Propriétés case Vie série / Projet
.Size = 13
    With secteur.Font  ' Propriétés case Secteur
    .Size = 13
        With priorite.Font ' Propriétés case Priorité
        .Size = 13
        End With
 
    End With
 
End With
 
'.............................
' Propriétés des cases Titres
'.............................
 
With Label1.Font ' Case Vie série/Projet
.Size = 12
.Underline = True
.Name = "Calibri"
    With Label2.Font  ' Case titre Secteur
    .Size = 12
    .Underline = True
    .Name = "Calibri"
        With Label3.Font  ' Case titre Demandeur
        .Size = 12
        .Underline = True
        .Name = "Calibri"
            With Label4.Font  ' Case titre Date de la demande
            .Size = 12
            .Underline = True
            .Name = "Calibri"
                With Label5.Font  ' Case titre Délai
                .Size = 12
                .Underline = True
                .Name = "Calibri"
                    With Label6.Font ' Case titre Objet de la demande
                    .Size = 12
                    .Underline = True
                    .Name = "Calibri"
                        With Label7.Font ' Case titre Pilote
                        .Size = 12
                        .Underline = True
                        .Name = "Calibri"
                            With Label8.Font ' Case titre Priorité
                            .Size = 12
                            .Underline = True
                            .Name = "Calibri"
                            End With
 
                        End With
 
                    End With
 
                End With
 
            End With
 
        End With
 
    End With
 
End With
 
'..........................
' Propriété des cases Texte
'..........................
 
With demandeur.Font  ' Case texte Demandeur
.Size = 13
    With datedemande.Font ' Case Date de la demande
    .Size = 13
        With delai.Font ' Case délai
        .Size = 13
            With demande.Font ' Case objet de la demande
            .Size = 13
                With pilote.Font ' Case Pilote
                .Size = 13
                End With
 
            End With
 
        End With
 
    End With
 
End With
 
'............................
'Propriété des cases à cocher
'............................
 
With CheckBox1.Font ' Case CAO
.Size = 12
    With CheckBox2.Font ' Case Maquettage
    .Size = 12
        With CheckBox3.Font ' Case Impression 3D
        .Size = 12
        End With
 
    End With
 
End With
 
'......................
'Propriété des bouttons
'......................
 
With CommandButton1.Font ' Bouton valider
.Size = 12
End With
 
End Sub

[joe.levrai]

La voila ton erreur

Code :

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

Sub Userform1_initialize()

Les procédure évènementielles se rapportant à l'Userform ne portent pas le Name dudit Userform mais directement son Type Objet (donc "Userform")

remplace par

Code :

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

Sub Userform_Initialize()