Discussion :

[brewen]

bonjour,

j'ai un pb avec un bouton de commande qui à pour principe de passer de la feuille A à la feuille B.
La feuille B est masquée et doit le resté.
Mais lorsque j'active mon bouton le processus fonctionne bien sauf que la feuille b reste affichée dans les onglets.

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Sheets("planning par semaine")
If .Visible = xlSheetHidden Then .Visible = xlSheetVisible
.Activate
End With

Quelqu'un connaitrait il la solution ?
Merci d'avance

[asxasx]

je ne comprends pas ce que tu veux faire :
lors du clic sur ton bouton tu veux que la feuille cachée B apparaisse ?

[brewen]

Bonjour,

j'ai créer un petit classeur pour gérer des plannings, qui est destiné à etre utilisé par plusieurs personnes.

Il y a environ 10 feuilles dans le classeur, avec plusieurs themes différents.

Afin de rendre le tout plus ergonomique et plus simple en navigation, j'ai créer des boutons de commande pour aller de feuille en feuille. Et, pour ne pas embrouiller les utilisateur, je souhaite cacher les onglets pour ne laisser visible qu'une page d'acceuil, à partir de laquelle on navigue sur les feuilles non pas, par les onglets mais par les boutons.

J'espère que c'est assez claire pour que chacun puisse comprendre ma drôle de demande.

[asxasx]

Tes boutons sont sur un userform ?
sur une feuille ?
tu veux que le choix du "planning" soit la seule feuille visible ?
si tu as 10 feuilles, tu as 10 boutons ?

[brewen]

Tes boutons sont sur un userform ?

j'ai enregister une macro que j'ai copier sur un bouton à partir du controle activex

sur une feuille ?

sur plusieurs feuilles car on peut revenir à la page d'accueil

tu veux que le choix du "planning" soit la seule feuille visible ?

pas forcement
il y a un bouton qui va de l'accueil vers un feuille de choix de plannings, sur laquelle il y a un bouton d'acces par planning

si tu as 10 feuilles, tu as 10 boutons ?

et meme plus car on peut voyager de feuille en feuille

voici le code actuel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Sheets("planning par semaine")
If .Visible = xlSheetHidden Then .Visible = xlSheetVisible
.Activate
End With

[asxasx]

Décidément, je comprends pas trop, peux tu poster ton fichier si pas trop gros et si pas de données confidentielles ?