Suite à votre discussion sur votre forum j'ai réaliser le plein écran mais maintenant je n'ai plus mais onglets SVP donner moi la solution!!
voici ma formule:
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
22
23 Private Sub UserForm_WorkBook_Open() Dim Cmdb As CommandBar For Each Cmdb In Application.CommandBars Cmdb.Enabled = True Next Cmdb With Application .DisplayFullScreen = True .DisplayStatusBar = True .DisplayFormulaBar = True End With Sheets("1T").Visible = True Sheets("1T").Activate Sheets("2T").Visible = False Sheets("3T").Visible = False Sheets("4T").Visible = False Sheets("Don").Visible = False Sheets("Recap").Visible = False Sheets("Calend").Visible = False Load FrmFich FrmFich.Show End Sub
Partager