Discussion :

[calindoudou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[calindoudou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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