Discussion :

[NEC14]

Bonjour à tous,

Dans un UserForm je clique sur un bouton qui est censé ouvrir un autre UserForm. Mais un message d'erreur apparaît lors de l'éxécution.
"Erreur 424 - Objet requis".

Lorsque je passe la souris sur la ligne concernée il est noté "Bloc with non défini"

Je ne comprends pas, pouvez vous m'aider s'il vous plait ?

Voici le code :

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
Private Sub C1_Click()
    Unload Fchoix1
    Sheets("Engagements").Visible = True
    Sheets("Engagements").Activate
        Load FrmEngt (erreur ici)
With Me
FrmEngt.MultiPage1.Value = 0
    FrmEngt.MultiPage1(1).Enabled = False
    FrmEngt.MultiPage1(2).Enabled = False
    FrmEngt.MultiPage1(1).Visible = False
    FrmEngt.MultiPage1(2).Visible = False
Dim vcellule As Object
FrmEngt.TxtDate = Date
        For Each vcellule In Sheets("Credit").Range("NCred")
            If vcellule.Value <> "" Then FrmEngt.CmbListeCred.AddItem vcellule.Value
    Next
        For Each vcellule In Sheets("Tiers").Range("NumT")
            If vcellule.Value <> "" Then FrmEngt.CmbListeTiers.AddItem vcellule.Value
    Next
        For Each vcellule In Sheets("Bât").Range("NomBat")
            If vcellule.Value <> "" Then FrmEngt.CmbListeBat.AddItem vcellule.Value
    Next
        For Each vcellule In Sheets("Nom").Range("Noms")
            If vcellule.Value <> "" Then FrmEngt.CmbNom.AddItem vcellule.Value
    Next
        For Each vcellule In Sheets("March").Range("Nmarch")
            If vcellule.Value <> "" Then FrmEngt.CmbMarche.AddItem vcellule.Value
    Next
            FrmEngt.CmbListeCred.ListIndex = 0
            FrmEngt.CmbListeCred.ListIndex = 0
            FrmEngt.CmbListeBat.ListIndex = 0
            FrmEngt.CmbNom.ListIndex = 0
            FrmEngt.CmbMarche.ListIndex = 0
            FrmEngt.CmbListeCred = ""
            FrmEngt.CmbListeCred = ""
            FrmEngt.CmbListeBat = ""
            FrmEngt.CmbNom = ""
            FrmEngt.CmbMarche = ""
            FrmEngt.LstImpu1.Clear
            FrmEngt.LstImpu2.Clear
            FrmEngt.LstImpu3.Clear
            FrmEngt.LstLigne.Clear
            FrmEngt.LstTiers.Clear
            FrmEngt.TxtNumDev = ""
            FrmEngt.TxtDevis = ""
            FrmEngt.TxtObjet = ""
            FrmEngt.TxtNum = ""
            FrmEngt.TxtMontant = ""
        End With
        FrmEngt.Show
End Sub

[Fvandermeulen]

Salut,
Une piste...j'ai eu le même problème car j'avais oublié un 'end if' dans un 'with'
Essaies en mettant des 'End if' pour tes lignes avec 'If' pour voir.
A+

[MiXinG]

Bonjour!
Je dis peut-être une grosse bêtise, mais pour ouvrir un UserForm j'utilise:

Code :

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

Userform.Show

[aalex_38]

Dans le code, il me semble que ceci ne sert a rien :

Code :

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

With Me

Ce n'est pas forcément la solution, a voir.

Sinon, je pense que tu peux enlever le load

[NEC14]

Bonjour à tous,

J'ai essayé toutes vos suggestions sans succès. Je vais chercher encore.
Ce code, je l'ai fait des dizaines de fois sans problème, et là, boum!!
Si une idée vous viens, n'hésitez pas.
Merci par avance

[aalex_38]

Bonjour à tous,

Il y a quelque chose que je ne comprend pas, ou se trouve le code dans un module standard ?

Si c'est le cas ceci n'est pas reconnu :

Code :

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

Me

[NEC14]

Bonjour aalex,

J'ai enlevé le

Code :

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

1
2
 
with me

mais rien ne change, toujours le même message. Je crois que je vais refaire tout le code et puis on verra

[NEC14]

j'ai refais tout le code sans plus de succès. Le trou noir complet.

[ilank]

Bonjour,

Le problème ici est qu'en fait tu déclenches un événement dans l'userform FrmEngt, et l'erreur est renvoyée à la procédure appelante. Regarde si le problème ne se trouve pas plutôt dans la procédure Initialize de FrmEngt.

[Lynx92260]

le "With Me" se met dans le code d'usf pour faire référence l'userform en cours.... C est de la programmartion orientée objet !

Donc si le code se trouve en dehors d'usf c'est normal le bloc n 'est pas defini !


Le me c est comme thisWorkBook si tu vois le topo ....


Allez a vos claviers

[NEC14]

Bonjour à tous,

Désolé d'avoir tardé à répondre, mais j'étais en vacances. Mais cela ne m'a pas empéché de travailler sur mon problème. J'ai donc refait toute la procédure et ça marche.
Vous dire d'où venait le soucis je ne le saurai.
C'est le résultat qui compte, vos différentes suggestions m'ont permis de trouver un morceau du problème, dans un autre code lié à celui-ci, il y avait une faute de frappe dans le nom de l'UserForm, je suis passé plusieurs fois dessus sans la voir.
Merci à tous et à bientôt