Discussion :

[Nicolas JACQUIN]

Bonjour à tous,
Je me heurte à un problème que je n'arrive pas à résoudre, afficher et masquer le ruban sous condition depuis un bouton dans un userform
pour la création de mon petit programme



Code qui m'ennuie je pense

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Bt10_Click()
'Application.ScreenUpdating = False
        If Application.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"",false)") Then
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
        Else
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
        End If
'Application.ScreenUpdating = True
End Sub

Affichage.xlsm

Je vous remerci d'avance à tous

[laurent_ott]

Bonjour,

Pour minimiser le ruban :

Code VBA :

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

CommandBars.ExecuteMso "MinimizeRibbon"

Pour l'agrandir :

Code VBA :

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

If CommandBars.GetPressedMso("MinimizeRibbon") = True Then CommandBars.ExecuteMso "MinimizeRibbon"

Bonne continuation.

[Nicolas JACQUIN]

Bonjour,

Pour minimiser le ruban :

Code VBA :

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

CommandBars.ExecuteMso "MinimizeRibbon"

Pour l'agrandir :

Code VBA :

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

If CommandBars.GetPressedMso("MinimizeRibbon") = True Then CommandBars.ExecuteMso "MinimizeRibbon"

Bonne continuation.

Bonjour et merci du retour, je vais essayer.
Comment détecter si il est affiché ou masqué à l'ouverture de l'userform
Merci.
Nicolas

[Valtrase]

Bonjour à tous,
Peut-être en regardant sa dimension...
Code provenant de la toile.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
'Hide Ribbon if it is on the screen in 2010-2013
If RibbonState = 0 Then CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
Function RibbonState() As Long
'Sascha Trowitzsch: <a href="http://www.mosstools.de/" target="_blank">http://www.mosstools.de/</a>
'Result: 0=normal, -1=autohide
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function

[Nicolas JACQUIN]

Bonjour à tous,
Peut-être en regardant sa dimension...
Code provenant de la toile.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
'Hide Ribbon if it is on the screen in 2010-2013
If RibbonState = 0 Then CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
Function RibbonState() As Long
'Sascha Trowitzsch: <a href="http://www.mosstools.de/" target="_blank">http://www.mosstools.de/</a>
'Result: 0=normal, -1=autohide
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function

Bonjour,
Merci du retour, ça a l'air de matcher.
J'adapte et reviens pour tenir au courant.
Merci

[Nicolas JACQUIN]

C'est bon ça marche, merci beaucoup Valtrase

Code :

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

1
2
3
Function RibbonState() As Long
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function

Pour userform initialize

Code :

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

1
2
3
4
5
6
7
 If Application.CommandBars.Item("Ribbon").Height > 100 Then
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
        Else
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
        End If

Et pour le bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Bt10_Click()
If RibbonState = 0 Then
            CommandBars.ExecuteMso "MinimizeRibbon"
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
ElseIf CommandBars.GetPressedMso("MinimizeRibbon") = True Then CommandBars.ExecuteMso "MinimizeRibbon"
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
End If
End Sub

Merci encore