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.