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

 

[Nicolas JACQUIN]

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

Pour userform initialize:

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:

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é

 

[patricktoulon]

re
serieux!!

Function RibbonState() As Long
RibbonState = commandbars("ribbon").visible
End Function

 

[TooFatBoy]

Bonjour,

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

Ca correspond à ce qui t'a été donné en #11. Non ?


ps : à mon avis ta fonction RibbonState ne sert à rien.