Bonjour,
J'ai saisie ce code dans un formulaire (FrmEngt) multipage (3) qui comporte 7 boutons d'option.
Lorsque je clique sur le 1 (Opt1) la feuille ("Engagements") devient visible et est activée, le formulaire est activé sur la page 1 (Index 0) les autres ne sont pas visibles.
Lorsque je veux faire la même chose avec la bouton 2 (Opt2), la feuille ("Factures") est bien activée, mais le formulaire n'apparaît pas, le message d'erreur suivant est notifié "Erreur d'éxécution '1004' - La méthode Select de la classe Range a échoué". J'ai coupé volontairement le code là où ça bloque, c'est à dire sur FrmEngt.Show


Je ne comprends pas, pouvez-vous m'aider ?
Merci par avance

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
Private Sub Opt1_Click()
    Sheets("Engagements").Visible = True
    Sheets("Engagements").Activate
Unload FrmChoix
        FrmEngt.Show
        FrmEngt.MultiPage1.Value = 0
        FrmEngt.MultiPage1(1).Enabled = False
        FrmEngt.MultiPage1(1).Visible = False
        FrmEngt.MultiPage1(2).Enabled = 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 Sub

Private Sub Opt2_Click()
Opt1.Value = False
    Sheets("Factures").Visible = True
    Sheets("Factures").Activate
Unload FrmChoix
FrmEngt.Show
End Sub