Discussion :

[NEC14]

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

[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+

[NEC14]

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é.

[Invité]

Bonjour

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.

[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