Idée pour remplacer un formulaire en VBA

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:

---

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

Pourquoi es-tu amené à recopier ce code 20 fois ?

Y a t'il une différence entre tes copies ? Du genre : le nom de la feuille ?

En fonction de tes besoins tu dois pouvoir créer une fonction dans un module et appeler cette fonction, avec éventuellement des paramêtres.

A+

Citation:

---

Envoyé par marot_r

Pourquoi es-tu amené à recopier ce code 20 fois ?

Y a t'il une différence entre tes copies ? Du genre : le nom de la feuille ?

En fonction de tes besoins tu dois pouvoir créer une fonction dans un module et appeler cette fonction, avec éventuellement des paramêtres.

A+

---

Bonjour,

En fait il y a un code par mois + 8 autres pour d'autres fonctions.
Par exemple les mois de janvier à mars sont dans la feuille "1T", mais selon le choix, la zone de travail n'est pas la même puisque des colonnes sont masquées ou visibles selon le choix. Comme tu peux le voir dans mon code.
C'est pour toutes ces raisons que j'ai du mal à condenser tout ça.

Par contre je voulais savoir si je suis autorisé à mettre mon application en fichier joint pour savoir ce qui peut être amélioré.

Bonjour

Citation:

---

Envoyé par NEC14

Par contre je voulais savoir si je suis autorisé à mettre mon application en fichier joint pour savoir ce qui peut être amélioré.

---

Oui à condition qu'il soit zippé (limeté à 512 ko). Lorsque tu rédiges ton message tu as un trombone dans la barre d'outil, click dessus. Avec parcourir sélectionnes ton fichier, puis fait envoyer.

Fermes ta fenêtre et ensuite refais le trombone pour insérer ton fichier.

Citation:

---

Envoyé par NEC14

Bonjour Starec,

Merci, voici donc mon fichier

---

Je vais retirer le fichier joint en fin de journée.

J'ai retiré le fichier, si vous voulez en disposer, laissez-moi un petit message ;)