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