Affichage dans une listbox
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