Discussion :

[NEC14]

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

[ouskel'n'or]

L'erreur semble indiquer une erreur de nom ou d'indice (?!?) ce que je ne crois pas.
Mais il y a déjà une chose que je fais, c'est masquer l'usf affiché depuis l'usf que je souhaite afficher.
En l'occurence, laisser "FrmEngt.Show" où il est mais placer "Unload FrmChoix" dans "FrmEngt_Initialize" ou "_activate"
Dans certains cas c'est même obligatoire (je ne les ai pas en mémoire)
Tu peux déjà tester ça.

[NEC14]

Bonjour,

Ok j'essaie et je te tiens au courant
Merci

[NEC14]

Bonjour à tous,

Désolé d'avoir tardé à répondre. Mon problème est résolu, il s'agissait en fait d'un Modal sur un UserForm qui restait actif et de ce fait empêcher l'ouverture d'un autre.
C'est ce que j'ai compris avec mes petites connaissances.
Merci pour votre aide
A+