VB/VBA pour afficher/masquer une liste de feuilles d'un excel.
Fermé
VBATEST
Messages postés
2
Date d'inscription
mardi 19 novembre 2019
Statut
Membre
Dernière intervention
20 novembre 2019
-
Modifié le 19 nov. 2019 à 15:05
VBATEST Messages postés 2 Date d'inscription mardi 19 novembre 2019 Statut Membre Dernière intervention 20 novembre 2019 - 20 nov. 2019 à 00:12
VBATEST Messages postés 2 Date d'inscription mardi 19 novembre 2019 Statut Membre Dernière intervention 20 novembre 2019 - 20 nov. 2019 à 00:12
A voir également:
- VB/VBA pour afficher/masquer une liste de feuilles d'un excel.
- Liste déroulante excel - Guide
- Comment masquer sa liste d'amis sur facebook mobile - Guide
- Excel liste déroulante en cascade - Guide
- Déplacer une colonne excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
19 nov. 2019 à 14:51
19 nov. 2019 à 14:51
bonjour,
voici une macro avec les noms des feuilles en colonne A et mettre x dans la colonne B pour masquer la feuille correspondante
Faire Alt f11 pour accéder à l'éditeur. ensuite aller dans le module de la feuille concernée en la sélectionnant en haut à gauche.
copier coller ce code:
Voilà
voici une macro avec les noms des feuilles en colonne A et mettre x dans la colonne B pour masquer la feuille correspondante
Faire Alt f11 pour accéder à l'éditeur. ensuite aller dans le module de la feuille concernée en la sélectionnant en haut à gauche.
copier coller ce code:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Var As Variant If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target.Value = "" Then Var = ActiveSheet.Cells(Target.Row, Target.Column - 1) Worksheets(Var).Visible = True Else Var = ActiveSheet.Cells(Target.Row, Target.Column - 1) Worksheets(Var).Visible = xlSheetHidden End If End If Application.ScreenUpdating = True End Sub
Voilà
yg_be
Messages postés
23235
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 septembre 2024
Ambassadeur
1 538
19 nov. 2019 à 15:01
19 nov. 2019 à 15:01
bonjour, suggestion:
Option Explicit Private Sub Afficher1() Dim nomfeuille As Range Set nomfeuille = Sheets("Feuil1").[A1] Do While nomfeuille <> "" Select Case nomfeuille.Offset(0, 1) Case 1 Sheets(nomfeuille.Value).Visible = True Case 0 Sheets(nomfeuille.Value).Visible = False End Select Set nomfeuille = nomfeuille.Offset(1, 0) Loop End Sub
VBATEST
Messages postés
2
Date d'inscription
mardi 19 novembre 2019
Statut
Membre
Dernière intervention
20 novembre 2019
20 nov. 2019 à 00:12
20 nov. 2019 à 00:12
Merci beaucoup, je vais essayer avec ca !