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