Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Cacher feuilles suivant liens

auverland

XLDnaute Occasionnel
Bonjour à tous

J'aimerais un code VBa pour cacher des feuilles suivant les liens que je met dans des cellules
Pensez-vous que cela soit possible ?
Exemple Bouton A cache feuille 2 / 3 et 4
 

Pièces jointes

  • Boutons feuilles.xlsm
    24.1 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Auverland,
Une possibilité en PJ avec :
VB:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
T = [J1:J7]
For i = 1 To UBound(T)
    If T(i, 1) <> "" Then
        Sheets(Split(T(i, 1), "!")(0)).Visible = 0
    End If
Next i
End Sub
Mais comme rien n'est demandé pour les rendre visible, rien est fait.
Le bouton gris sert juste à rendre toutes les feuilles visibles pour test.
 

Pièces jointes

  • Boutons feuilles.xlsm
    31.5 KB · Affichages: 2

auverland

XLDnaute Occasionnel
Gloups c'est exactement cela
ce serait possible de rendre visible avec le même bouton ?
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
C'est normal.
Comme les boutons du fichiers sont des ActivesX, une macro est automatiquement attachée à ces boutons et est dans la feuille. Donc son action est effectuée que sur la feuille.
En PJ j'ai remplacé ces boutons par des formes et mis toutes les macros dans un module standard.
Ainsi les macros peuvent être exécutées sur toutes les feuilles. ( voir PJ en feuille Essai1 ou Essai2 )
 

Pièces jointes

  • Boutons feuilles V3.xlsm
    33.2 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…