[RESOLU] commande macro vba

[msel]

Bonjour,
voila j'ai crée un menu personnalisé avec notamment la commande suivante :

'Callback for TB01 onAction
Sub TB01(control As IRibbonControl, pressed As Boolean)
    Application.ScreenUpdating = True
    If pressed = True Then
        ActiveWindow.DisplayWorkbookTabs = True
        Application.DisplayFormulaBar = True
        ActiveWindow.DisplayHeadings = True
    Else
        ActiveWindow.DisplayWorkbookTabs = False
        Application.DisplayFormulaBar = False
        ActiveWindow.DisplayHeadings = False
    End If
End Sub

je suis coincé car tout fonctionne pour mes feuilles sauf : ActiveWindow.DisplayHeadings pour laquelle je dois l'actionner (par press- bouton )sur chacune de mes feuilles.

Si quelqu'un aurait une piste

 

[PMO2]

Re : commande macro vba

Bonjour,

Quelque chose comme cela

'Callback for TB01 onAction
Sub TB01(control As IRibbonControl, pressed As Boolean)
Dim ActiveS As Worksheet
Dim S As Worksheet
'---
Application.ScreenUpdating = False
'---
Set ActiveS = ActiveSheet
ActiveWindow.DisplayWorkbookTabs = pressed
Application.DisplayFormulaBar = pressed
For Each S In ThisWorkbook.Sheets
  S.Activate
  ActiveWindow.DisplayHeadings = pressed
Next S
ActiveS.Activate
'---
Application.ScreenUpdating = True
End Sub

 

[msel]

Re : commande macro vba

oué cool PM02

merci )))))))