Afficher/Masquer ruban sous condition depuis bouton

**Nicolas JACQUIN** · 15/05/2024, 10h11

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

Nom : test form5.gif
Affichages : 85
Taille : 250,4 Ko

Nom : test form5.gif
Affichages : 85
Taille : 250,4 Ko

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** · 16/05/2024, 12h18

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** · 16/05/2024, 12h24

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

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** · 16/05/2024, 14h06

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** · 16/05/2024, 17h19

Envoyé par 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

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

**Nicolas JACQUIN** · 16/05/2024, 20h48

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

**Valtrase** · 17/05/2024, 22h44

De rien, un petit pouce en l'air fait toujours plaisir.

**laurent_ott** · 18/05/2024, 20h10

Désolé, j'aurais dû donner plus d'informations sur l'usage de la fonction "CommandBars.ExecuteMso "MinimizeRibbon" dans ma réponse.
Car il n'y a pas une fonction pour maximiser le ruban, comme "CommandBars.ExecuteMso "MaxizeRibbon", et une autre pour le minimiser "CommandBars.ExecuteMso "MinimizeRibbon", une seule fonction fait les deux à la fois, "CommandBars.ExecuteMso "MinimizeRibbon" ce qui est assez particulier (il faudrait demander aux ingénieurs de Microsoft la logique du bidule).
Faites un test pour mieux comprendre en appelant plusieurs fois la fonction "CommandBars.ExecuteMso "MinimizeRibbon" : le ruban vas être alternativement maximisé ou minimisé.

Donc, avant d'appeler cette fonction il faut en amont connaitre l'état du ruban : maximisé ou minimisé.
C'est la fonction "CommandBars.GetPressedMso("MinimizeRibbon")" qui donne la réponse :
True : il est minimisé.
False : il est maximisé.
Soit l'équivalent de la fonction "RibbonState" qui vous a été présentée.

En résumé:
Pour maximiser le ruban : Vérifier avec "CommandBars.GetPressedMso("MinimizeRibbon")" s'il est déjà maximisé ou pas, s'il ne l'ai pas faire "CommandBars.GetPressedMso("MinimizeRibbon")".
Pour minimiser le ruban : Vérifier avec "CommandBars.GetPressedMso("MinimizeRibbon")"s'il est déjà minimisé ou pas, s'il ne l'ai pas faire "CommandBars.GetPressedMso("MinimizeRibbon")".

Votre programme marche très bien comme il est écrit, donc ne changez rien, c'était juste pour votre information.
Cordialement.

**Nicolas JACQUIN** · 18/05/2024, 20h30

Envoyé par laurent_ott

Désolé, j'aurais dû donner plus d'informations sur l'usage de la fonction "CommandBars.ExecuteMso "MinimizeRibbon" dans ma réponse.
Car il n'y a pas une fonction pour maximiser le ruban, comme "CommandBars.ExecuteMso "MaxizeRibbon", et une autre pour le minimiser "CommandBars.ExecuteMso "MinimizeRibbon", une seule fonction fait les deux à la fois, "CommandBars.ExecuteMso "MinimizeRibbon" ce qui est assez particulier (il faudrait demander aux ingénieurs de Microsoft la logique du bidule).
Faites un test pour mieux comprendre en appelant plusieurs fois la fonction "CommandBars.ExecuteMso "MinimizeRibbon" : le ruban vas être alternativement maximisé ou minimisé.

Donc, avant d'appeler cette fonction il faut en amont connaitre l'état du ruban : maximisé ou minimisé.
C'est la fonction "CommandBars.GetPressedMso("MinimizeRibbon")" qui donne la réponse :
True : il est minimisé.
False : il est maximisé.
Soit l'équivalent de la fonction "RibbonState" qui vous a été présentée.

En résumé:
Pour maximiser le ruban : Vérifier avec "CommandBars.GetPressedMso("MinimizeRibbon")" s'il est déjà maximisé ou pas, s'il ne l'ai pas faire "CommandBars.GetPressedMso("MinimizeRibbon")".
Pour minimiser le ruban : Vérifier avec "CommandBars.GetPressedMso("MinimizeRibbon")"s'il est déjà minimisé ou pas, s'il ne l'ai pas faire "CommandBars.GetPressedMso("MinimizeRibbon")".

Votre programme marche très bien comme il est écrit, donc ne changez rien, c'était juste pour votre information.
Cordialement.

Bonjour,
Merci du retour, j'ai remodifié en cours de route, parce que la fonction proposée ne sert à rien,

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

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 CommandBars("Ribbon").Controls(1).Height < 100 = 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

Nom : test form5.gif
Affichages : 20
Taille : 90,1 Ko

Merci et bonne soirée

Afficher/Masquer ruban sous condition depuis bouton [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager