Microsoft 365 Cacher feuilles suivant liens

[auverland]

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

 

[sylvanu]

Bonjour Auverland,
Une possibilité en PJ avec :

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.

 

[fanfan38]

Bonjour, salut Sylvanu
Ci joint ma solution

A+ François

 

[auverland]

Bonjour Auverland,
Une possibilité en PJ avec :

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.

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

 

[sylvanu]

Re,
Qu'entendez vous par là?

 

[auverland]

Re,
Qu'entendez vous par là?

Bonjour
Que le bouton A cacher les feuilles suivant les liens comme vous avez fait mais qu'aussi lorsqu'on clique une autre fois dessus il ré-affiche ces mêmes feuilles.

 

[sylvanu]

Re,
Un essai en PJ.

 

[auverland]

Re,
Un essai en PJ.

Super
merci beaucoup
Bon week-end

 

[auverland]

Re,
Un essai en PJ.

Bonjour cela fonctionne super bien si le bouton est sur la feuille 1 par contre je n'arrive pas à le faire fonctionner sur une autre feuille.
Vous avez une solution ?

 

[sylvanu]

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 )