Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub
Bonjour @anthoYS
Et pourtant le fichier du post 2 fonctionne....
Il faut aller dans la colonne A puis b pour voir la difference
@Phil69970
Si tu veux tu peux le faire sur une sélection plus grande avec par exemple sur les colonnes A,B, et Cvisible lors de selection
ou les 10 premières lignesIf Not Application.Intersect(Target, Range("A:C")) Is Nothing Then
Et bien sur tu peux adapter en fonction de tes besoins.If Not Application.Intersect(Target, Range("A1:XFD10")) Is Nothing Then
Re,Re
Je suis parti sur tes écris :
Si tu veux tu peux le faire sur une sélection plus grande avec par exemple sur les colonnes A,B, et C
ou les 10 premières lignes
Et bien sur tu peux adapter en fonction de tes besoins.
Après si tu veux sur toute la feuille tu n'as pas du tout posé la bonne question ....
Donc : Que veux tu faire réellement ?
@Phil69970
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub
Bonjour,Bonjour anthoYS, Phil69970,
On peut aussi utiliser le double-clic, le code du ThisWorkbook :
A+VB:Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub