Bonjour à tous,
Je sollicite à nouveau votre aide.
J'ai un userform avec 18 boutons.
A chaque bouton est associé une feuille; donc quand je clique sur un bouton, j'affiche la feuille qui lui correspond.
D'ou ce code:
Private Sub CommandButton1_Click()
Application.Visible = True
Application.WindowState = xlMaximized
Worksheets("403").Select
Worksheets("403").Visible = True
Unload Me
End Sub
Private Sub CommandButton2_Click()
Application.Visible = True
Application.WindowState = xlMaximized
Worksheets("201").Select
Worksheets("201").Visible = True
Unload Me
End Sub
Donc, je dois écrire à chaque fois pour chaque bouton.
N'y-a-il pas une astuce pour simplifier la procédure ? (Les feuilles sont visualisables uniquement, pas de saisie).
Merci à tous pour vos réponses,
Cordialement,
xorsankukai