Discussion :

[NEC14]

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 :

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

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

[pgz]

Bonjour.

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

Code :

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

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

[NEC14]

Bonjour PGZ,

Super ça marche.
Merci beaucoup