Discussion :

[philippe6]

Bonjour,

Je suis navré mais je lis les feuilles de mon classeur, la listbox se remplit de leurs noms, mais si je clique ou double clique dessus, je n'atteint pas la page !

Merci

Philippe

modif : pas la page, mais la feuille , bien sûr

Philippe

[NEC14]

Bonjour,

Voici comment je procède à partir d'une Combo dans un formulaire.

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

Cordialement

[philippe6]

Bonjour,

Désolé, je me suis absenté, je n'ai pas pu te répondre,
cependant, cmbligne ne veut pas être reconnu chez moi, j'ai Excel 2002 ?!

Merci de tte maniere

Philippe

[AlainTech]

Bonjour,

cmbLigne est le nom qu'a donné NEC14 à sa ComboBox.

A toi d'adapter.

[NEC14]

Bonjour,

AlainTech à raison, c'est le nom donné à ma combo, à toi de l'adapter et de lui donner le nom adapté à ton appli.

Si tu n'y arrive pas, mets ton code en pièce jointe et on regardera cela de plus près.

A+
René