Discussion :

[NEC14]

Bonjour,

Eh oui, encore moi pour une autre question.

Voilà un bout de code que j'ai saisis dans une UserForm.
Lorsque je tape 1 dans la TextBox de l'UserForm, la feuille S1 est visible est activitée. Mon soucis est que j'ai 52 feuilles, je ne me vois pas taper 52 fois ces lignes, pouvez-vous me donner une méthode plus simple s'il vous plait ?
Je ne sais pas faire du tout, c'est la grande nage....
Merci par avance

Code :

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

1
2
3
4
5
6
7
Private Sub Cmb1_Click()
If FrmSem.Txt1.Value = "1" Then
    Sheets("S1").Visible = True
        Sheets("S1").Activate
        End If
    Unload Me
End Sub

[wilfried_42]

Bonjour

Code :

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

1
2
3
4
Private Sub Cmb1_Click()
    Sheets("S" & FrmSem.Txt1.Value).Visible = True
    Sheets("S" & FrmSem.Txt1.Value).Activate ' normalement inutile
End Sub

[NEC14]

Bonjour wilfried,

Super ça marche. Cela m'enlève une grosse épine du pied.
A plus tard très certainement