Discussion :

[Nicolas JACQUIN]

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



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