XL 2016 Afficher/Masqué ruban depuis bouton sous condition

[Nicolas JACQUIN]

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

 

[job75]

Bonjour,

Le code de l'UserForm :

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

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

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

A+

 

[Nicolas JACQUIN]

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:

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]

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

 

[Nicolas JACQUIN]

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]

c'est juste masqué le ruban.

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

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]

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à

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]

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]

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

 

[job75]

Bonjour Nicolas, le forum,

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

Oui puisque je vous ai dit :

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

A+

 

[bof]

Bonjour,
Mettre :

        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]

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

 

[bof]

Testé sur sur 2016

 

[Nicolas JACQUIN]

Testé sur sur 2016

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

 

[patricktoulon]

Bonjour
en une ligne dans un bouton

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

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