re:re:remplir une liste box.

Version imprimable

23/09/2013, 15h08
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

Bonjour,

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

Code:

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

26/09/2013, 10h42
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
05/10/2013, 19h52
AlainTech

Bonjour,

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

A toi d'adapter.
06/10/2013, 10h09
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é