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