XL 2016 Afficher/Masqué ruban depuis bouton sous condition

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Nicolas JACQUIN

XLDnaute Accro
Supporter XLD
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.

test form5.gif


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

Pièces jointes

Solution
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é
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é
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour