Complèment pour un code VBA Excel

Bonjour à tous,

J'ai mis en place ce code qui me permet à partir d'un formulaire de choisir une semaine sur les 52 possibles.
Le problème que je rencontre, c'est que si j'ai la semaine 1, donc la feuille (S1) d'activée et que je veux choisir une autre semaine, la feuille S1 reste visible, idem pour les autres feuilles.
Que faut-il ajouter à ce code de manière à n'avoir qu'une seule feuille visible et activée.
Merci par avance

Code:

---

1 2 3 4 5 6 7

Private Sub Cmb1_Click() Sheets("S" & FrmSem.Txt1.Value).Visible = True Sheets("S" & FrmSem.Txt1.Value).Activate ActiveWindow.ZOOM = 75 Unload FrmSem End Sub

---

Bonjour.

Si tu n'as qu'une feuille visible à la fois, tu peux essayer

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Cmb1_Click() Dim Sh As Excel.Worksheet   Set Sh = Application.ThisWorkbook.ActiveSheet Application.thiswookbook.Sheets("S" & FrmSem.Txt1.Value).Visible = xlSheetVisible Sh.Visible = xlSheetHidden   Set Sh = Nothing Unload FrmSem End Sub

---

PGZ

Bonjour PGZ,

Super ça marche.
Merci beaucoup