Bonjour à tous,

J'ai créé une application pour gérer des congés et absences au sein de mon service. Comme vous le verrez avec le fichier joint, j'ai un formulaire me proposant plusieurs choix. Je voudrais remplacer ce formulaire par une autre façon de faire, car je trouve cela un peu lourd.
Auriez-vous des idées pour m'aider s'il vous plait ?
Merci par avance


Est-ce que l'on peut par exemple avoir une boîte de message (type MsgBox ou InputBox) demandant le travail souhaité et suivant la réponse ouvrir telle ou telle autre feuille ?
Un petit coup de main me serait d'un grand secours.

J'ai trouvé ce fichier sur le site, mais je ne sais pas comment l'adapter à mon application.
Pouvez-vous m'aider SVP ?

J'ai trouvé la solution, par contre je dois me taper ce code 20 fois, est-ce qu'il y a un moyen de faire plus court ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Cmdb1_Click()
If Cmb1.Text = "Janvier" Then
Sheets("2T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
Sheets("3T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
Sheets("4T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
    Sheets("1T").Visible = True
    Sheets("1T").Activate
    Rows("51:65536").Hidden = True
    Columns("BL:IV").EntireColumn.Hidden = True
    Range("A6").Select
    Sheets("2T").Visible = False
    Sheets("3T").Visible = False
    Sheets("4T").Visible = False
    Sheets("Don").Visible = False
    Sheets("Calend").Visible = False
    Sheets("Recap").Visible = False
    Unload Me
    End If
Merci par avance