Discussion :

[jijie]

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

[SilkyRoad]

bonsoir


Utilise le raccourci clavier Alt+F11 pour atteindre l'éditeur de macros:

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
24
25
26
27
28
29
30
31
32
33
34
Dim Cmdb As CommandBar
 
 
With Application
    .DisplayFullScreen = False
    .DisplayFormulaBar = True
End With
 
For Each Cmdb In Application.CommandBars
    If Cmdb.BuiltIn = True Then
            If Cmdb.Enabled = False Then Cmdb.Enabled = True
    End If
Next Cmdb
 
With Application
    With .CommandBars("Worksheet Menu Bar")
        .Enabled = True
        .Visible = True
    End With
 
    With .CommandBars("Standard")
        .Enabled = True
        .Visible = True
    End With
 
    With .CommandBars("Formatting")
        .Enabled = True
        .Visible = True
    End With
 
    With .CommandBars("Cell")
        .Enabled = True
    End With
End With

bon courage
michel

[jijie]

ça ne marche pas certainement que je ne la place pas au bon endroit!!

JY

[jijie]

merci encore j'ai installer ce code dans une nouvelle macro d'un autre classeur encore merci

JY