XL 2016 Afficher/Masqué ruban depuis bouton sous condition

Nicolas JACQUIN · 15 Mai 2024

Bonjour à tous,
Désolé de relancer ce sujet, mais j'espère qu'il sera plus explicite que le précédent.
Ce que je voudrai c'est qu'à l'ouverture d'un userform, ça me détecte si le Ruban est affiché ou pas,
et selon le cas effectuer l'opposé depuis un bouton, j'ai fais des essai mais ça ne veut pas.

Si vous pouvez m'aider ça m'arrangerai parce que là je suis perdu.
Merci d'avance

Nicolas JACQUIN · 16 Mai 2024

Trouvé la solution, merci quand même à tous

Pour userform initialize:

Code:

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:

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

Corrigé

job75 · 15 Mai 2024

Bonjour,

Le code de l'UserForm :

VB:

Private Sub CommandButton1_Click()
Application.DisplayFullScreen = Not Application.DisplayFullScreen
End Sub

Pour que cela fonctionne bien l'UserForm doit être ouvert en non modal :

VB:

Sub USF()
UserForm1.Show 0 'non modal
End Sub

A+

Nicolas JACQUIN · 15 Mai 2024

Bonjour Job75,
Merci du retour,
par rapport à ce que je veux faire, (petit prog) image plus haut, j'étais parti sur une idée comme ça:

VB:

Private Sub Bt10_Click()
        If Application.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"",False)") Then
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
        Else
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
        End If
End Sub

Y a pas moyen ?
Merci

job75 · 15 Mai 2024

Vous me proposez un code qui ne fonctionne pas alors que le mien fonctionne.

Nicolas JACQUIN · 15 Mai 2024

oui, je suis d'accord, mais le sujet là pour moi, si c'est possible c'est juste masqué le ruban.
Avec la condition sur bouton.

job75 · 15 Mai 2024

Nicolas JACQUIN à dit:
c'est juste masqué le ruban.

Si l'on veut ne pas toucher à la barre de formule ni aux barres de défilement utiliser :

VB:

Private Sub CommandButton1_Click()
Dim FB As Boolean, VSB As Boolean, HSB As Boolean
FB = Application.DisplayFormulaBar
VSB = ActiveWindow.DisplayVerticalScrollBar
HSB = ActiveWindow.DisplayHorizontalScrollBar
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.DisplayFormulaBar = FB
ActiveWindow.DisplayVerticalScrollBar = VSB
ActiveWindow.DisplayHorizontalScrollBar = HSB
End Sub

Nicolas JACQUIN · 15 Mai 2024

job75 à dit:
Si l'on veut ne pas toucher à la barre de formule ni aux barres de défilement utiliser :

Re, on c'est mal compris,
Je voudrai à l'ouverture de l'userform détecter si le ruban est afficher ou pas

et selon le cas pouvoir l'activer ou le désactiver depuis un bouton de l'userform
dans le style là

VB:

Private Sub Bt10_Click()
        If Application.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"",False)") Then
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
        Else
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
        End If
End Sub

job75 · 15 Mai 2024

Nicolas JACQUIN à dit:
Je voudrai à l'ouverture de l'userform détecter si le ruban est afficher ou pas

La détection n'est pas utile à l'ouverture de l'UserForm.

C'est quand on clique sur le bouton qu'elle est nécessaire.

Nicolas JACQUIN · 16 Mai 2024

Bonjour job75,
Avez vous ouvert mon fichier au 1er post pour voir l'idée ?

job75 · 16 Mai 2024

Bonjour Nicolas, le forum,

Nicolas JACQUIN à dit:
Avez vous ouvert mon fichier au 1er post pour voir l'idée ?

Oui puisque je vous ai dit :

job75 à dit:
Vous me proposez un code qui ne fonctionne pas alors que le mien fonctionne.

A+

bof · 16 Mai 2024

Bonjour,
Mettre :

VB:

        If Application.CommandBars.Item("Ribbon").Height > 100 Then
            Lbt10.BackColor = vbGreen
            Bbt10.Caption = "On"
        Else
            Lbt10.BackColor = vbRed
            Bbt10.Caption = "Off"
        End If

A+

Nicolas JACQUIN · 16 Mai 2024

Bonjour bof,
j'ai essayé mais ça veut pas
Merci

bof · 16 Mai 2024

Testé sur sur 2016

Nicolas JACQUIN · 16 Mai 2024

bof à dit:
Testé sur sur 2016

Merci, j'essai d'adapter et reviens pour vous dire

patricktoulon · 16 Mai 2024

Bonjour
en une ligne dans un bouton

VB:

Private Sub CommandButton1_Click()
         Application.ExecuteExcel4Macro ("SHOW.TOOLBAR(""Ribbon""," & IIf(CommandBars("ribbon").Visible, "false", "true") & ")")
 End Sub

parti de la après si tu veux aller plus loin dans le masquage

VB:

Private Sub CommandButton1_Click()
    Dim Bool As Boolean
    Bool = CommandBars("ribbon").Visible
    With Application
        .ExecuteExcel4Macro ("SHOW.TOOLBAR(""Ribbon""," & IIf(Bool, "false", "true") & ")")
        'ici les display de l'application avec bool ou not bool pour activer ou déactiver

    End With
    With ActiveWindow

        'ici les display de l'activewindow avec bool ou not bool pour activer ou déactiver


    End With



End Sub

XL 2016 Afficher/Masqué ruban depuis bouton sous condition

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Nicolas JACQUIN

job75

XLDnaute Barbatruc

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

job75

XLDnaute Barbatruc

bof

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

bof

XLDnaute Occasionnel

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Discussions similaires