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
Partager