Affichage dans une listbox

Version imprimable

Bonjour,

je cherche à faire userform avec une listbox qui me permettra de masquer ou démasquer des feuilles situées dans un autre classeur.

ce dernier est déjà ouvert lors d'une précédente macro.

La liste des Onglet se trouve dans la colonne A située dans le classeur qui déclenche la macro.

J'avais imaginé qu'au clic sur le bouton masquer un "1" serais mis dans la colonne B, et au clic sur le bouton démasquer je mettrais un "0".

Donc dans ma listbox ne s'afficherais que les onglets qui ont un "0".

Voici le début de mon code, mais j'avoue que je bloque pour la suite :
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 29 30 31 32 33 34 35 Private Sub CommandButton1_Click() Dim SitMoAffiche As String SitMoAffiche = ListBox1 Windows("modele situation.xls").Activate Sheets(SitMoAffiche).Visible = True Windows("SITUATION INITIALE.xls").Activate End Sub Private Sub CommandButton2_Click() Dim SitMomMasque As String SitMomMasque = ListBox1 Windows("modele situation.xls").Activate Sheets(SitMomMasque).Visible = xlSheetHidden Windows("SITUATION INITIALE.xls").Activate End Sub Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize() ListBox1.ColumnHeads = True ListBox1.RowSource = "BDDSITUATION!A30:A65" End Sub
Merci pour votre aide

David

Bonjour,

Tu pourrais éviter de passer par une liste donglet tampon, et lire directement les onglets du classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
 
Dim sh As Worksheet
 
For Each sh In Workbooks("SITUATION INITIALE").Worksheets
    ListBox1.AddItem sh.Name
    If sh.Visible = xlSheetVisible Then
        ListBox1.Selected(ListBox1.ListCount - 1) = True
    Else
        ListBox1.Selected(ListBox1.ListCount - 1) = False
    End If
Next sh
End Sub

Puis dans l’évènement Change de la listbox

Code:

1
2
3
Private Sub ListBox1_Change()
Workbooks("SITUATION INITIALE").Sheets(ListBox1.List(ListBox1.ListIndex)).Visible = ListBox1.Selected(ListBox1.ListIndex)
End Sub

16/01/2012, 18h08
breizhgen

Bonjour Jérôme,

merci pour cette réponse.

Je viens de tester et le résultat est pas mal.

Merci

David