Rendre visible/invisible un groupe dans un ruban personnel

boniteprobtp

XLDnaute Nouveau
Bonjour à tous,

Mon problème est de rendre visible ou invisible certains groupes à l'intérieur d'un ruban personnel.

Lors de l'affichage au chargement, je n'ai qu'un seul groupe qui apparait.

Lorsque je change de feuille, j'active la propriété Workbook_SheetActivate(ByVal Sh As Object) afin de gérer mon changement de feuille.
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'MsgBox "Activation de la feuille " + Sh.Name
    Dim i As Integer, j As Integer
    Dim lig As Long, col As Long
 
    Call affichageFeuille(Sh.Name)
 
End Sub

Lorsque j'execute affichageFeuille avec le nom de la feuille

Code:
Sub affichageFeuille(feuille As String)
    '
    ' =====> masquage partiel
    '
    Select Case feuille
    Case "Feuil1"
        booMenuDynamique = True
        booMenuVertical = True
        booMenuHorizontal = True
        booPeriode = True
        booExercice = True
        booGraphe = False
    Case "Feuil2"
        booMenuDynamique = False
        booMenuVertical = False
        booMenuHorizontal = False
        booPeriode = False
        booExercice = False
        booGraphe = True
    Case "Feuill3"
        booMenuDynamique = True
        booMenuVertical = True
        booMenuHorizontal = False
        booPeriode = False
        booExercice = False
        booGraphe = False
    Case Else
        '
        ' =====> masquage total
        '
        booMenuHorizontal = False
        booMenuVertical = False
        booMenuDynamique = False
        booPeriode = False
        booExercice = False
        booGraphe = False
    End Select
    monRuban.Invalidate
End Sub

Je devrai alors modifier mon ruban pour lui donner les groupes à afficher, il me sort une erreur '91' ... Variable objet ou variable de bloc With non définie sur l'instruction monRuban.Invalidate ce qui ne me convient évidemment pas

Quelqu'un pourrait-il me renseigner ????

Je joins mon fichier pour vous permettre de voir ce que je fais.

Un grand merci à tous et à toutes.

Cordialement
 

Pièces jointes

  • testruban.zip
    22.2 KB · Affichages: 38

Discussions similaires

Réponses
3
Affichages
161

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh