Excel/marco/afficher feuilles masquées
Résolu
benji71
Messages postés
738
Date d'inscription
Statut
Membre
Dernière intervention
-
benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention -
benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel/marco/afficher feuilles masquées
- Liste déroulante excel - Guide
- Afficher toutes les lignes masquées excel ✓ - Forum Excel
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Fusionner feuilles excel - Guide
3 réponses
bonjour benji71 et bonne année 2011 à toi aussi
Tu peux le faire simplement en appelant avec chaque bouton une procédure paramétrée :
La procédure "aff_mas" agit en fonction du paramètre pour masquer ou afficher.
Toujours zen
Tu peux le faire simplement en appelant avec chaque bouton une procédure paramétrée :
Private Sub CommandButton1_Click()
Call aff_mas(False, "gp-")
End Sub
Private Sub CommandButton2_Click()
Call aff_mas(True, "gp-")
End Sub
Private Sub CommandButton3_Click()
Call aff_mas(False, "gpe-")
End Sub
Private Sub CommandButton4_Click()
Call aff_mas(True, "gpe-")
End Sub
Public Sub aff_mas(fonction, nom)
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, Len(nom)) = nom Then sh.Visible = fonction
Next
End Sub
La procédure "aff_mas" agit en fonction du paramètre pour masquer ou afficher.
Toujours zen
Salut le forum
Bonne Année 2011
Voila deux codes, il te suffit de modifier pour le "gpe"
Et les codes à mettre dans un module
Mytå
Bonne Année 2011
Voila deux codes, il te suffit de modifier pour le "gpe"
Left(.Name, 3) = "gp-" par Left(.Name, 3) = "gpe"
Et les codes à mettre dans un module
Public i As Integer
Sub Afficher_gp()
For i = 1 To ActiveWorkbook.Worksheets.Count
With Sheets(i)
If Left(.Name, 3) = "gp-" Then .Visible = True
End With
Next i
End Sub
Sub Masquer_gp()
For i = 1 To ActiveWorkbook.Worksheets.Count
With Sheets(i)
If Left(.Name, 3) = "gp-" Then .Visible = False
End With
Next i
End Sub
Mytå
