Probleme prog Vba Erreur 424 objet requis

re

bonsoir
salut a tous
oui bon ca se confirme il manque des contrôles je m'en doutais quand j'ai vu toutes ces mises a zéro complètement inutile si quelque part il n'y a pas de hide de l'usf
le mieux c'est que tu exporte ton userform et le donne comme tel on vérifiera tout sinon on avancera pas

re

Bonjour
j'espere que vous avez passer une bonne journée.
Bon j'ai trouvé un moyen de vous donner mon fichier tel quel =>http://www.cjoint.com/c/FHbjAmeymp3

Cordialement

Merci encore

re

avec ma macro voila la liste de tes control textbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
    Dim hWnd As Long
For Each ctrl In Me.Controls
 
  If TypeName(ctrl) = "TextBox" Then Debug.Print ctrl.Name
  Next
    'Remplir Me.cdi, 1
   ' Remplir Me.codepostal1, 3
   ' Remplir Me.Choixcommune, 53
   ' LeTexte = "Mise à jour 24/05/2016 => Attention vigilance sur la prise de rdv d'étude des changements on été fait. "
   ' v = 5: LaCouleur = "&H800001&": ParametresHtml
 
 
    'couleur des boutons '
   ' CommandButton1.BackColor = RGB(0, 94, 184)
   ' telexploit.BackColor = RGB(0, 94, 184)
End Sub

exceptionregie
er1
erdf1
urba
maitriseouvrage
moreseau
attention
commentaire
cpc
exp
moar
ccs
Ent
CA
centre
comm
cdp
insee
CUTM
emmeraude
mailexp
telca
departement
moad
ceb
partracs
partracc
partraci
partmod
proracs
proracc
proraci
promod
zoneetude
mailmoar
appref
affairecom
telexp
Ip
Portip
Telip
Mailip
TextBox1
TextBox2
TextBox3
TextBox4
TextBox5
TextBox6
TextBox7
TextBox8

alors si tu veux pas tous leur donner un nom car tes dernier son nommer par l'application
a la place trucmachin="" etc...

je ferait

Code:

1
2
3
For Each ctrl In Me.Controls
   If TypeName(ctrl) = "TextBox" Then ctrl=""
  Next

tu vois c'est plus propre et il ne peut pas y avoir d'erreur

et plutot que répéter la même opération

je met cette boucle dans une sub et je l'appelle dans toutes les sub ou tu veux effacer

ca c'est juste pour commencer

hello,
bon j'ai réussi à enfin afficher la userform avec ces lignes en commentaires (donc contrôles absents sur la userform) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  '      Me.cable.Value = ""
  '      Me.piquetage.Value = ""
  '      Me.compactage.Value = ""
  '      Me.identificationcable.Value = ""
   '     Me.piquetagesout.Value = ""
   '     Me.compactagesout.Value = ""
================
     '   Me.k10.Value = ""
     '   Me.k10sout.Value = ""
     '   Me.leve.Value = ""
     '   Me.levesout.Value = ""
===================
' BRCHTAEROSOUT.BackColor = RGB(255, 255, 255)
===================
'Label1.BackColor = RGB(255, 255, 255)
'Label2.BackColor = RGB(255, 255, 255)
'Label3.BackColor = RGB(255, 255, 255)
'Label23.BackColor = RGB(255, 255, 255)
'Label26.BackColor = RGB(255, 255, 255)
'Label37.BackColor = RGB(255, 255, 255)
'Label38.BackColor = RGB(255, 255, 255)

Ami calmant, J.P

re

re
salut jurassic

oui non seulement il y a des controls absent mais j'ai jamais vu ceci::
si vba ne comprends pas qui faut changer de couleur il comprendra jamais
regarde moi ca jurassic

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
Sub zoneetude_change()
'zone étude A01_A02 Toulouse
    If zoneetude.Value = "A01_A02 Toulouse" Then
        zoneetude.BackColor = &HFFC0FF
    End If
 
    If zoneetude.Value = "A01_A02 Toulouse" Then
        proracc.BackColor = &HFFC0FF
    End If
 
    If zoneetude.Value = "A01_A02 Toulouse" Then
        promod.BackColor = &HFFC0FF
    End If
    If zoneetude.Value = "A01_A02 Toulouse" Then
        proracs.BackColor = &HFFC0FF
    End If
    If zoneetude.Value = "A01_A02 Toulouse" Then
        proraci.BackColor = &HFFC0FF
    End If
    If zoneetude.Value = "A01_A02 Toulouse" Then
        partmod.BackColor = &HFFC0FF
    End If
    If zoneetude.Value = "A01_A02 Toulouse" Then
        partracc.BackColor = &HFFC0FF
    End If
    'zone étude A03 St-Jory
    If zoneetude.Value = "A03 St-Jory" Then
        zoneetude.BackColor = &H4080&
    End If
    If zoneetude.Value = "A03 St-Jory" Then
        proracc.BackColor = &H4080&
    End If
    If zoneetude.Value = "A03 St-Jory" Then
        proraci.BackColor = &H4080&
    End If
    If zoneetude.Value = "A03 St-Jory" Then
        proracs.BackColor = &H4080&
    End If
    If zoneetude.Value = "A03 St-Jory" Then
        promod.BackColor = &H4080&
    End If
    If zoneetude.Value = "A03 St-Jory" Then
        partmod.BackColor = &H4080&
    End If
 
    If zoneetude.Value = "A03 St-Jory" Then
        partracc.BackColor = &H4080&
    End If
 
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A04 Balma" Then
        zoneetude.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        proracc.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        proracs.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        proraci.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        promod.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        partmod.BackColor = &HFFFF&
    End If
    If zoneetude.Value = "A04 Balma" Then
        partracc.BackColor = &HFFFF&
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A05 Colomiers" Then
        zoneetude.BackColor = &HA53F70
    End If
    If zoneetude.Value = "A05 Colomiers" Then
        proracc.BackColor = &HA53F70
    End If
    If zoneetude.Value = "A05 Colomiers" Then
        proracs.BackColor = &HA53F70
    End If
    If zoneetude.Value = "A05 Colomiers" Then
        proraci.BackColor = &HA53F70
    End If
 
    If zoneetude.Value = "A05 Colomiers" Then
        promod.BackColor = &HA53F70
    End If
    If zoneetude.Value = "A05 Colomiers" Then
        partmod.BackColor = &HA53F70
    End If
    If zoneetude.Value = "A05 Colomiers" Then
        partracc.BackColor = &HA53F70
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A06 Villemur" Then
        zoneetude.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        proracc.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        proraci.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        proracs.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        promod.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        partmod.BackColor = &H8111D2
    End If
    If zoneetude.Value = "A06 Villemur" Then
        partracc.BackColor = &H8111D2
    End If
    'zone étude A03 St-Jory
    If zoneetude.Value = "A07 Caraman" Then
        zoneetude.BackColor = &HEF3829
    End If
    If zoneetude.Value = "A07 Caraman" Then
        proracc.BackColor = &HEF3829
    End If
    If zoneetude.Value = "A07 Caraman" Then
        proraci.BackColor = &HEF3829
    End If
    If zoneetude.Value = "A07 Caraman" Then
        proracs.BackColor = &HEF3829
    End If
 
    If zoneetude.Value = "A07 Caraman" Then
        promod.BackColor = &HEF3829
    End If
    If zoneetude.Value = "A07 Caraman" Then
        partmod.BackColor = &HEF3829
    End If
    If zoneetude.Value = "A07 Caraman" Then
        partracc.BackColor = &HEF3829
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A08 Grenade" Then
        zoneetude.BackColor = &H9AC7B9
    End If
    If zoneetude.Value = "A08 Grenade" Then
        proracc.BackColor = &H9AC7B9
    End If
    If zoneetude.Value = "A08 Grenade" Then
        proracs.BackColor = &H9AC7B9
    End If
    If zoneetude.Value = "A08 Grenade" Then
        proraci.BackColor = &H9AC7B9
    End If
 
    If zoneetude.Value = "A08 Grenade" Then
        promod.BackColor = &H9AC7B9
    End If
    If zoneetude.Value = "A08 Grenade" Then
        partmod.BackColor = &H9AC7B9
    End If
    If zoneetude.Value = "A08 Grenade" Then
        partracc.BackColor = &H9AC7B9
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A09 St-Lys" Then
        zoneetude.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        proracc.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        proraci.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        proracs.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        promod.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        partmod.BackColor = &H80FF&
    End If
    If zoneetude.Value = "A09 St-Lys" Then
        partracc.BackColor = &H80FF&
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A10 Muret" Then
        zoneetude.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        proracc.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        proraci.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        proracs.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        promod.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        partmod.BackColor = &H8000&
    End If
    If zoneetude.Value = "A10 Muret" Then
        partracc.BackColor = &H8000&
    End If
    'zone étude A03 St-Jory
    If zoneetude.Value = "A11 Auterive" Then
        zoneetude.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        proracc.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        proracs.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        proraci.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        promod.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        partmod.BackColor = &HFFFF00
    End If
    If zoneetude.Value = "A11 Auterive" Then
        partracc.BackColor = &HFFFF00
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "A12 Villefranche" Then
        zoneetude.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        proracc.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        proraci.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        proracs.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        promod.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        partmod.BackColor = &H133EBD
    End If
    If zoneetude.Value = "A12 Villefranche" Then
        partracc.BackColor = &H133EBD
    End If
 
    'zone étude A03 St-Jory
    If zoneetude.Value = "" Then
        zoneetude.BackColor = &HFFFFFF
    End If
 
    If zoneetude.Value = "" Then
        proracc.BackColor = &HFFFFFF
    End If
    If zoneetude.Value = "" Then
        promod.BackColor = &HFFFFFF
    End If
    If zoneetude.Value = "" Then
        partmod.BackColor = &HFFFFFF
    End If
    If zoneetude.Value = "" Then
        partracc.BackColor = &HFFFFFF
    End If
 
End Sub

y aurait pas un syndrome de la tourette ici :mouarf:

apres examen on pourait remplacer le tout du code de l'userform par un trantaine de ligne au max

par exemple
dans le initialise

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub nettoie()
For Each ctrl In Me.Controls
   If TypeName(ctrl) = "TextBox" Then ctrl = ""
  Next
 End Sub
Private Sub UserForm_Initialize()
    Dim hWnd As Long
   nettoie
   Remplir Me.cdi, 1
    Remplir Me.codepostal1, 3
    Remplir Me.Choixcommune, 53
    LeTexte = "Mise à jour 24/05/2016 => Attention vigilance sur la prise de rdv d'étude des changements on été fait. "
    v = 5: LaCouleur = "&H800001&": ParametresHtml
  'couleur des boutons '
    CommandButton1.BackColor = RGB(0, 94, 184)
    telexploit.BackColor = RGB(0, 94, 184)
End Sub

et dans chaque macro ou tu nettoie des textboxs a la place de la liste tu met "nettoie "

et je parle meme pas des evenement change qui sont identique on pourrait faire le meme procédé une sub pour tout les control avec argument le control lui meme

exemple
ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub proracs_change()
 
    If proracs.Value = "" Then
        proracs.BackColor = &HFFFFFF
    End If
    If proracs.Value = "TGC" Then
        proracs.BackColor = &H80FF80
    End If
 
End Sub
Sub promod_change()
 
 
    If promod.Value = "" Then
        promod.BackColor = &HFFFFFF
    End If
    If promod.Value = "TGC" Then
        promod.BackColor = &H80FF80
    End If
 
 
End Sub

je le remplacerais par cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Sub proracs_change()
changecouleu proracs
 End Sub
 
Sub promod_change()
 changecouleu promod
 End Sub
 
'etc......
'et il y a en a bien d'autre ensuite 
 
 
sub changecouleu(ctrl)
If ctrl.Value = "" Then
        ctrl.BackColor = &HFFFFFF
    End If
    If ctrl.Value = "TGC" Then
        ctrl.BackColor = &H80FF80
    End If
end sub

et encore!!!!!!!!!! si il y a que "" ou "TGC" comme condition je ferais

version 2:

Code:

1
2
3
4
 
sub changecouleu(ctrl)
with ctrl :.backcolor=iif(.value="",&HFFFFFF,&H80FF80):end with 
end sub

bref il y a du boulot de netoyage en masse

jurassic tu t'en charge ??????

Citation:

jurassic tu t'en charge ??????

heu moi j'ai regardé juste pour débloquer notre ami Sébastien. Je ne travaille pas pour ERDF. C'est sûr que tout le code est optimisable mais j'ai d'autres choses sur le feu. Et je ne suis pas un spécialiste d'Excel (je n'interviens ici que depuis peu). J'interviens dans 3 ou 4 autres forums.

re

Bon merci beaucoup en tous cas je vais retravailler tous ca et faire du mieux que je peux .

Merci pour ces conseils et toute ces information je ne demande qu'a apprendre.

Mais merci beaucoup et désolé pour mon énervement de hier.

Et jurassic tu as raison ce n'est pas a toi de faire ça mais merci.