Bouton barre d'outil

[Startus]

Bonjour le forum,

Dans ma barre d'outil, j'ai voudrai crée un bouton qui me permette soit :
_De masquer les En-têtes de lignes et de colonnes
_Soit de les Afficher
En cliquant sur le même bouton...

Merci de votre aide ...
Startus

 

[Ashaar]

Bonjour,

Ci-dessous le code qui permet de le faire :

Sub LaTeteAToto()
If ActiveWindow.DisplayHeadings = False Then
ActiveWindow.DisplayHeadings = True
Else
ActiveWindow.DisplayHeadings = False
End If
End Sub


A lier avec un bouton.

Cdlt.

 

[G.David]

Salut
enregistre cette macro dans le classeur personel
ou dans un classeur actif en barre lie

sub affeff_entete()
static s
if s= 0 then
activewindow.displayheadings=false
s=1
else
Activewindow.displayheadings=true
s=0
end if
end sub

Cordialement
G.David

 

[Ashaar]

Re-bonjour Startus, bonjour G.David,

Passer par 'Static s' pose un soucis,
si Startus enregistre, ferme puis re-ouvre son classeur avec les en-têtes masquées, la valeur de 's' se réinitialise donc les en-têtes ne se réafficheront pas du premier coup et il devra appuyer 2 fois sur le bouton.

 

[G.David]

exact j'ai mordu l'erreur lorsque que j'ai lu le code que tu avais mis mais comme j'avais deja envoye
Cordialement
G.David

 

[Startus]

Bonjour,

Le code est copié dans mon classeur de Macros complémentaire, je l'ai affecté au bouton que j'ai personnalisé avec l'éditeur et ça marche impeccable...

Merci beaucoup,
Le forum a encore frappé.

@+ Startus