pb de commandbutton

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:

---

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

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

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.

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 ?

Citation:

---

Tes boutons sont sur un userform ?

---

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

Citation:

---

sur une feuille ?

---

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

Citation:

---

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

Citation:

---

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:

---

1 2 3 4

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

---

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

bonjour,

je vient de trouver le code que je cherche.
Je ne peut pas envoyer le fichier car il taille 900 ko

merci tout de même

a bientôt

Oki passe donc ton post en résolu alors et bonne continuation.