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
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.
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.
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.
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 ?
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 )