Discussion :

[micom59]

Bonjour,

j'ai un soucis lors de l'exécution d'un userform de mon fichier excel, celui-ci me sort comme erreur :

Erreur d'exécution '459':
Lo'bjet ou la classe ne gère pas le jeu d'événements

le code lié est :

Code :

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

1
2
3
4
Sub ouvrirOperations()
Sheets("Racine").Select
F_OrdreVir.Show
End Sub

Le débuggeur me surligne la ligne F_OrdreVir.Show où F_OrdreVir est l'userform en question.

savez-vous pourquoi?

J'ai un autre userform qui s'ouvre de la même facon et lui qui ne bug pas, je ne comprends donc pas.

Merci d'avance.

Mickaël.

[laetitia]

bonjour micom59 le forum
tu as quoi comme code dans ton user surtout dans initialise ou activate !!

[micom59]

Merci pour ta réponse,

alors mon initialize c'est :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
  Me.DateJour = Date
  Me.natOperat.RowSource = "typeOper"
  Me.typeVir.RowSource = "typerVir2"
  Me.banqueOper.RowSource = "typebanque"
End Sub

ou ceux-ci sont des noms définis dans excel,

et dans activate je n'ai rien.

le reste du code de l'user form est très long,

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
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
Private Sub Calendar2_Click()
dateOper.Value = Calendar2.Value
End Sub
 
'Annuler opération
Private Sub annulOper_Click()
    'effacer données dans formulaire
    societDestin.Value = ""
    nomDestin.Value = ""
    banqBen.Value = ""
    cBanqDestin.Value = ""
    cGuichDestin.Value = ""
    numCompteDestin.Value = ""
    ribDestin.Value = ""
    nbpages.Value = ""
    dateOper.Value = ""
    socDeb.Value = ""
    montantOper.Value = ""
    banqueOper.Value = ""
    numCompteOper.Value = ""
    natOperat = ""
    typeVir = ""
    natVir.Value = ""
    Range("nContrat") = ""
End Sub
 
Private Sub ajoutCont_Click()
    Range("nContrat").Value = nContrat.Value
    nContrat.Value = ""
End Sub
 
Private Sub apercuOrdre_Click()
    Sheets("OrdreDeVirement").Select
    F_OrdreVir.Hide
End Sub
 
Private Sub Fermer_Click()
'If MsgBox("Etes vous sûr de vouloir fermer l'application?", bvYesNo) = vbYes Then
    F_OrdreVir.Hide
'End If
End Sub
 
 
Private Sub retour_Click()
F_OrdreVir.Hide
F_Accueil.Show
End Sub
 
Private Sub operation_Click()
 
End Sub
 
Private Sub soldes_Click()
F_OrdreVir.Hide
F_Solde.Show
End Sub
 
Private Sub UserForm_Initialize()
  Me.DateJour = Date
  Me.natOperat.RowSource = "typeOper"
  Me.typeVir.RowSource = "typerVir2"
  Me.banqueOper.RowSource = "typebanque"
End Sub
 
Private Sub banqueOper_Change()
If banqueOper.Value = Range("donneesListeDeroul!B2").Value Then
numCompteOper.RowSource = "comptebnp"
Else
If banqueOper.Value = Range("donneesListeDeroul!B3").Value Then
numCompteOper.RowSource = "comptenatixis"
Else
If banqueOper.Value = Range("donneesListeDeroul!B4").Value Then
numCompteOper.RowSource = "comptesocietegen"
 
End If
End If
End If
End Sub
 
'Private Sub montantOper_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'montantOper.Value = Format(CDbl(montantOper.Value), "# ### ###.00")
'End Sub
 
 
Private Sub validerOper_Click()
    Sheets("Base_operations").Select
    'Feuille ordre de virement
    If initiat.Value = True Then
        Range("OrdreDeVirement!D12").Value = societDestin.Value
        Range("OrdreDeVirement!D13").Value = nomDestin.Value
        Range("OrdreDeVirement!D15").Value = nomExp.Value
        Range("OrdreDeVirement!D16").Value = depart.Value
        Range("OrdreDeVirement!D17").Value = Tel.Value
        Range("OrdreDeVirement!D18").Value = Fax.Value
        Range("OrdreDeVirement!D19").Value = mail.Value
        Range("OrdreDeVirement!D20").Value = dateOper.Value
        Range("OrdreDeVirement!D21").Value = nbpages.Value
        Range("OrdreDeVirement!D22").Value = objet.Value
        Range("OrdreDeVirement!F30").Value = Val(montantOper.Value)
        'Range("OrdreDeVirement!G30").Value = Chiffres_à_Lettres(Val(montantOper.Value))
        Range("OrdreDeVirement!F32").Value = natVir.Value
        If typeVir.Value = "Normal" Then
            Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value) + 1
        Else
            Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value)
        End If
        If natOperat.Value = "Prélèvement" Then
            Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value)
            Range("OrdreDeVirement!F43").Value = socDeb.Value
            Range("OrdreDeVirement!F42").Value = societDestin.Value
            Range("OrdreDeVirement!G43").Value = banqueOper.Value
            Range("OrdreDeVirement!G42").Value = banqBen.Value
            Range("OrdreDeVirement!H43").Value = numCompteOper.Value
            Range("OrdreDeVirement!H42").Value = cBanqDestin.Value & " " & cGuichDestin.Value & " " & numCompteDestin.Value & " " & ribDestin.Value
        Else
            Range("OrdreDeVirement!F42").Value = socDeb.Value
            Range("OrdreDeVirement!F43").Value = societDestin.Value
            Range("OrdreDeVirement!G42").Value = banqueOper.Value
            Range("OrdreDeVirement!G43").Value = banqBen.Value
            Range("OrdreDeVirement!H42").Value = numCompteOper.Value
            Range("OrdreDeVirement!H43").Value = cBanqDestin.Value & " " & cGuichDestin.Value & " " & numCompteDestin.Value & " " & ribDestin.Value
        End If
    End If
 
   'Base Opération
    Range("dateSaisie").Value = CDate(DateJour.Value)
    Range("dateOrdre").Value = CDate(dateOper.Value)
    Range("societBen").Value = societDestin.Value
    Range("libelVir").Value = natVir.Value
    Range("banqueVir").Value = banqueOper.Value
    Range("numcompteVir").Value = numCompteOper
    Range("natOper").Value = natOperat.Value
 
    If natOperat.Value = "Prélèvement" Then
        Range("datePrel").Value = CDate(dateOper.Value)
        Range("montant").Value = Val(montantOper.Value)
        Range("typeVir").Value = "-----"
 
    Else
        Range("montant").Value = Val(montantOper.Value) * -1
        Range("typeVir").Value = typeVir.Value
        If typeVir.Value = "Normal" Then
            If banqueOper.Value = "BNP" Or banqueOper.Value = "NATIXIS" Then
                Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 8), "dd/mm/yyyy")
            Else
                Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 5), "dd/mm/yyyy")
            End If
        Else
            Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 2), "dd/mm/yyyy")
        End If
    End If
 
    societDestin.Value = ""
    nomDestin.Value = ""
    banqBen.Value = ""
    cBanqDestin.Value = ""
    cGuichDestin.Value = ""
    numCompteDestin.Value = ""
    ribDestin.Value = ""
    nbpages.Value = ""
    dateOper.Value = ""
    socDeb.Value = ""
    montantOper.Value = ""
    banqueOper.Value = ""
    numCompteOper.Value = ""
    natOperat = ""
    typeVir = ""
    natVir.Value = ""
    nContrat.Value = ""
 
    societDestin.SetFocus
End Sub

Je suis désolé, je suis novice en vba, et ne vois pas ce que veux réellement dire cet erreur.

[laetitia]

re, le forum essai deja de supprimer ce code voir si l user s ouvre !!!

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
Me.DateJour = Date
Me.natOperat.RowSource = "typeOper"
Me.typeVir.RowSource = "typerVir2"
Me.banqueOper.RowSource = "typebanque"
End Sub

[micom59]

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Me.DateJour = Date
Me.natOperat.RowSource = "typeOper"
Me.typeVir.RowSource = "typerVir2"
Me.banqueOper.RowSource = "typebanque"
End Sub

c'est déja ca mon initialize, il y a quelque chose qui change?

[laetitia]

re il s ouvre ou pas ???
si il s ouvre tu refais des essais mais tu supprime ligne apres ligne le pb..
peut tres bien venir ex: la ligne Me.typeVir.RowSource = "typerVir2" ou autre

[micom59]

re,

non il ne s'ouvre pas, toujours la même erreur 459, mais il ne me surligne aucune erreur cette fois-ci

[micom59]

j'ai déposé mon fichier sur

http://www.cijoint.fr/cjlink.php?fil...cijsp8w7Oa.xls

si tu cliques sur Saisie des opérations tout en haut tu y verras l'erreur.

[micom59]

j'ai des nouvelles plutot bizarres,

un ami a reussi a ouvrir l'userform qui plante sur son ordi,

et sur mon ordi, même si je supprime tout le code du fichier il me sort toujours l'erreur 459, alors qu'un autre userform présent sur le fichier lui se lance toujours.

Est-ce possible qu'il s'agisse d'un bug de mon excel? pourquoi y a t'il encore un bug sans code derriere?

[laetitia]

re, le forum par hasard il met pas le message impossible de charger objet non disponible sur cette machine

[micom59]

non je n'ai jamais eu cette erreur encore

[Invité]

Bonsoir,

Juste pour information.

J'ai Excel 2000. J'ouvre sans problème votre Userform "F_OrdreVir".

De plus j'ai mis des points d'arrêt sur toutes les lignes et dans toutes les procédures contenant ce nom et je navigue avec les différents boutons entre les : F_OrdreVir.Show et F_OrdreVir.Hide.

Avec quelle version d'Excel avez-vous le problème ?