Vba - displayHeading

Bonjour,

voila j'ai un bouton qui active entre autre l'affichage/masquage des entetes de colonnes et lignes.
Mais voila, cette fonction ne marche que lorsque je clique sur chaque feuille.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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

---

Merci de votre sollicitude :)

Voila j'ai trouvé la réponse je la met au cas ou ca peut servir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'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

---