Aide pour erreur dans un code Vba Excel
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:
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 |