Discussion :

[NEC14]

Bonjour,

J'ai le code ci-dessus qui me permet d'afficher deux feuilles de calcul selon un choix fait dans une Combo.
Par exemple, si je choisi L24 dans ma combo alors les feuilles "L24" et "FL24" sont visibles et les autres sont cachées, à part la feuille "Accueil".
Hors avec mon code j'ai une erreur que je n'arrive pas à corriger, pouvez-vous m'apporter votre aide s'il vous plait ? Merci par avance.
J'ai une incompatiblité de type sur la ligne ne rouge.

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
Private Sub CmbLigne_Change()
Dim NomFeuille As String, Ws As Object
Dim Feuille2 As String

    Application.ScreenUpdating = False
    
'Je rends toutes les feuilles visibles

    For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = True
Next Ws

'Je sélectionne la feuille du combo
    NomFeuille = Me.CmbLigne.Value
    Feuille2 = ("F" & Me.CmbLigne.Value)
    ActiveWorkbook.Sheets(NomFeuille).Activate
    ActiveWorkbook.Sheets(Feuille2).Activate
'Je masque les autres feuilles
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.name <> NomFeuille And Feuille2 Then Ws.Visible = xlSheetVeryHidden        
Sheets("Accueil").Visible = True
        Next Ws

'Je ferme l'userform
Unload Me
End Sub

[Marc-L]

Bonjour,

Effectivement car Feuille2 n'étant pas une variable numérique ! Donc condition à compléter …


_____________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[NEC14]

Bonjour,

J'ai modifié mon code de cette façon et cela fonctionne.

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
 
Private Sub CmbLigne_Change()
Dim NomFeuille As String, Ws As Object
Dim NomFeuil As String
 
    Application.ScreenUpdating = False
 
'Je rends toutes les feuilles visibles
 
    For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = True
Next Ws
 
'Je sélectionne la feuille du combo
    NomFeuille = Me.CmbLigne.Value
    NomFeuil = ("F" & Me.CmbLigne.Value)
    ActiveWorkbook.Sheets(NomFeuille).Activate
    ActiveWorkbook.Sheets(NomFeuil).Activate
'Je masque les autres feuilles
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.name <> NomFeuille Then Ws.Visible = xlSheetVeryHidden
        Sheets("Accueil").Visible = True
        Sheets("F" & Me.CmbLigne).Visible = True
        Next Ws
 
'Je ferme l'userform
Unload Me
End Sub

Merci et bonne journée
René

[Godzestla]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NomFeuille = Me.CmbLigne.Value
    NomFeuil = ("F" & Me.CmbLigne.Value)

Attention à ce genre de codage casse-pipe, car on a vite confondu. !!