Discussion :

[jackborogar]

Bonjour à tous,

J'ai déjà vu ça dans beaucoup de Excel un menu qui permette de choisir où l'on veut aller.

J'ai un classeur avec comme feuilles:

- Bilan
-Achat 11/12
-Achat 12/13
-Future 11/12
-Future 12/13

Ce Menu me permetterai de choisir l'année sur lesquelle je souhaite travailler pour ainsi optimiser le nombre de feuille présente dans le classeur (On se retrouverait avec 3 feuilles au final).

On pourrait avoir ainsi 3 boutons:

- Travailler en 11/12
- Travailler en 12/13
- Exit

Bien Cordialement

[HopPopPop]

Bonjour à tous,

S'il s'agit vraiment d'un menu avant d'ouvrir Excel, il faut utiliser un fichier Bat ; en revanche, si cela concerne toujours le même fichier mais avec des feuilles qui seraient masquées en fonction d'un menu, alors :

Code du Formulaire Menu :

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
Option Explicit
 
Private Sub Cmd_1112_Click()
    Sheets("Achat 11_12").Visible = True
    Sheets("Achat 12_13").Visible = False
    Sheets("Future 11_12").Visible = True
    Sheets("Future 12_13").Visible = False
End Sub
 
Private Sub Cmd_1213_Click()
    Sheets("Achat 11_12").Visible = False
    Sheets("Achat 12_13").Visible = True
    Sheets("Future 11_12").Visible = False
    Sheets("Future 12_13").Visible = True
End Sub
 
Private Sub Cmd_Quitter_Click()
    Application.Quit
End Sub

Code du Thisworkbook:

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Workbook_Open()
    Sheets("Achat 11_12").Visible = False
    Sheets("Achat 12_13").Visible = False
    Sheets("Future 11_12").Visible = False
    Sheets("Future 12_13").Visible = False
    Menu.Show vbModeless
End Sub

Un souci :
On ne peut pas, a priori, utiliser le caractère "/", il est don remplacé par "_"

[kiki29]

Salut, un coup d'œil ici ou là ainsi qu'ici

[jackborogar]

Bonjour

Merci de vos réponses. Je regarde à cela aujourd'hui et reviens vers vous.

Cdt,