Discussion :

[NEC14]

Bonjour à tous,

Dans un menu perso, je choisi "Engagements", et "Nouvel" qui normalement déclanche la macro ci-dessous.
Sauf, qu'un message d'erreur apparaît sur UFengt, "variable objet ou variable de bloc with non définie".

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
53
54
55
56
57
58
59
 
Sub Macro_A()
Dim Vcellule As Object
    Sheets("Engagements").Visible = True
    Sheets("Engagements").Activate
 
    With ActiveWindow
        .DisplayHeadings = False
        .Zoom = 100
    End With
 
Load UFengt
 
        UFengt.MultiPage1(1).Enabled = False
        UFengt.MultiPage1(1).Visible = False
        UFengt.MultiPage1(2).Enabled = False
        UFengt.MultiPage1(2).Visible = False
    UFengt.TxtDate = Date
            For Each Vcellule In Sheets("Credit").Range("NCred")
                If Vcellule.Value <> "" Then UFengt.CmbListeCred.AddItem Vcellule.Value
            Next
 
            For Each Vcellule In Sheets("Tiers").Range("NumT")
                If Vcellule.Value <> "" Then UFengt.CmbListeTiers.AddItem Vcellule.Value
            Next
 
            For Each Vcellule In Sheets("Bât").Range("NomBat")
                If Vcellule.Value <> "" Then UFengt.CmbListeBat.AddItem Vcellule.Value
            Next
 
            For Each Vcellule In Sheets("Nom").Range("Noms")
                If Vcellule.Value <> "" Then UFengt.CmbNom.AddItem Vcellule.Value
            Next
 
            For Each Vcellule In Sheets("March").Range("Nmarch")
                If Vcellule.Value <> "" Then UFengt.CmbMarche.AddItem Vcellule.Value
            Next
                    UFengt.CmbListeCred.ListIndex = 0
                    UFengt.CmbListeBat.ListIndex = 0
                    UFengt.CmbListeTiers.ListIndex = 0
                    UFengt.CmbMarche.ListIndex = 0
                    UFengt.CmbNom.ListIndex = 0
                    UFengt.CmbListeCred = ""
                    UFengt.CmbListeBat = ""
                    UFengt.CmbListeTiers = ""
                    UFengt.CmbMarche = ""
                    UFengt.CmbNom = ""
                    UFengt.LstImpu1.Clear
                    UFengt.LstImpu2.Clear
                    UFengt.LstImpu3.Clear
                    UFengt.LstLigne.Clear
                    UFengt.LstTiers.Clear
                    UFengt.TxtNumDev = ""
                    UFengt.TxtDevis = ""
                    UFengt.TxtObjet = ""
                    UFengt.TxtNum = ""
                    UFengt.TxtMontant = ""
UFengt.Show
End Sub

[NEC14]

Bonjour à tous,

Mon problème est résolu. L'erreur venait du fait qu'une ligne faisait appel à un formulaire qui n'existe plus.
Merci et bonne journée