Sélection d'un nom de feuille dans un textbox

Ok. Pour masquer toutes les feuilles sauf la feuille activée, tu dois connaître le nom de la feuille affichée précédemment.
Tu ajoutes l'identification de la feuille active afin de pouvoir la masquer

Code:

---

1 2 3 4 5 6 7 8

Private Sub TxtChoix_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim nfeuil as string, NomFeuilleActive as string NomFeuilleActive = Activesheet.name nfeuil = trim(TxtChoix.text) 'on supprime les espaces éventuels Worksheets(nfeuil).Visible = True Worksheets(nfeuil).Activate Worksheets(NomFeuilleActive).visible = False End Sub

---

Edit
Si tu as besoin de masquer toutes les feuilles sauf la feuille active, en fin de macro et à la place de

Citation:

---

Worksheets(NomFeuilleActive).visible = False

---

tu mets ça

Code:

---

1 2 3 4

For Each LaFeuille In ActiveWorkbook.Worksheets If Not LaFeuille.Name = nfeuil Then _ LaFeuille.Visible = False Next

---

Citation:

---

Envoyé par ouskel'n'or

Ok. Pour masquer toutes les feuilles sauf la feuille activée, tu dois connaître le nom de la feuille affichée précédemment.
Tu ajoutes l'identification de la feuille active afin de pouvoir la masquer

Code:

---

1 2 3 4 5 6 7 8

Private Sub TxtChoix_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim nfeuil as string, NomFeuilleActive as string NomFeuilleActive = Activesheet.name nfeuil = trim(TxtChoix.text) 'on supprime les espaces éventuels Worksheets(nfeuil).Visible = True Worksheets(nfeuil).Activate Worksheets(NomFeuilleActive).visible = False End Sub

---

Edit
Si tu as besoin de masquer toutes les feuilles sauf la feuille active, en fin de macro et à la place de
tu mets ça

Code:

---

1 2 3 4

For Each LaFeuille In ActiveWorkbook.Worksheets If Not LaFeuille.Name = nfeuil Then _ LaFeuille.Visible = False Next

---

---

J'ai trouvé la solution à mon problème. Dans WorkBook_Open() j'ai écrit cela Sheets(x).visible=XlSheetVeryHidden et ça marche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub WorkBook_Open() Dim X As Integer Application.StatusBar = "Réalisée par René LE CORNEC" Dim Cmdb As CommandBar For Each Cmdb In Application.CommandBars Cmdb.Enabled = True Next Cmdb With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With Sheets("1").Visible = True Sheets("1").Activate For X = 2 To Sheets.Count Sheets(X).Visible = xlSheetVeryHidden Next X Load FrmChoix FrmChoix.Show End Sub

---

Merci pour votre aide à toi et à Garfael vous êtes super :king:

Ton code fonctionnera... ok ! mais il ne fonctionnera que tant que la feuille X sera en première position dans ton classeur...
C'est mieux quand on le sait ;)

Merci pour l'info. Les feuilles ne doivent pas changer de place. Je vais l'interdire.

Dernière question. Dans mes 52 feuilles j'ai 3 boutons (Fermer/Afficher/Semaine) avec un code appliquer à chacun.
Est-ce qu'il est possible d'avoir à un endroit un seul code pour chaque bouton, cela m'éviterai de répeter les codes sur les 52 feuilles.

Jamais essayé mais si tu places ton code dans des macros placées dans un module standard et que tu appelles ces macros depuis chacun de tes boutons, ça devrait fonctionner...
Tu testes et tu nous dis... comme ça on aura la réponse :mouarf:

Edit
Tu aurais une autre solution : Créer tes trois boutons dans une barre d'outils que tu crées à l'ouverture de ton fichier pour les retirer à la fermeture.
Et là, tu as le code un peu partout, sur le forum, dans la FAQ et dans Contribuez ;)
Plus besoin de bouton sur chaque feuille.

Si ça t'intéresse, fais une recherche avec "CommandBars"

Je vais aller plutôt dans le sens d'une barre à outils à 3 boutons. Je ne maîtrise pas assez VBA pour me lancer dans les modules. Mais je vais quand même tenter à un autre moment sur une autre appli je te tiens informé du résultat.
A+

Pour créer la barre d'outils, tu vas devoir te lancer... A part dans un module, je ne vois pas où tu peux mettre le code pour la créer et pour l'enlever ensuite.
Ce n'est pas compliqué : Dans l'éditeur VB, tu fais un clic sur ton projet -> Insertion -> Module
Epicétou
Il ne te reste plus qu'à mettre le code dans ce module.

Code:

---

1 2 3

Sub TaMacroPourTonBouton1() 'Le code que tu as mis derrière ton bouton end sub

---

Et derrière ton bouton, tu mets simplement

Code:

---

1 2 3

Sub TonBouton1_Click() TaMacroPourTonBouton1 End sub

---

Et tu fais ça pour chaque bouton
Je ne sais pas si je t'aide mais je ne pouvais pas te laisser "comme ça" :lol:

Chose primordiale, tu déclare la variable nfeuille dans la macro, ce qui veux dire que chaques fois que tu rentre dans la macro la variable est réinitialisée à 0. Soit la mettre en variable générale pour l'UF soit la déclarer en 'Static'
A+

Eh bien en fait j'ai créé un formulaire avec 3 boutons qui s'affiche dès l'ouverture du ficher, j'ai mis le code d'affichage dans ThisWorkBook. Pour le moment cela me satisfait. Mais j'essaierai quand même avec les modules. Je viens d'essayer avec les modules c'est pas mal non plus. Je crois que mes problèmes sont résolus à présent.
Merci à tous les développeurs qui ont contribués à la réussite de mon projet.
J'espère pouvoir renvoyer l'ascenseur un jour.
Encore mille mercis