Discussion :

[breizhgen]

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 :

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
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

[jfontaine]

Bonjour,

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

Code :

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

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 :

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

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

[breizhgen]

Bonjour Jérôme,

merci pour cette réponse.

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

Merci

David