code affiche onglet

[nrdz83]

Bonjour à tous j'utilise ce code pour faire apparaitre les onglets

Sub affiche_onglets()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Je cherche à ce queci je reclique sur ma commande ça me masque les onglets .
Si je mets ce code à la suite ça ne marche pas

Sub affiche_onglets()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

d'avance merci à tous 😎

 

[CBernardT]

Re : code affiche onglet

Bonjour nrdz83 et le forum,


essaye le code suivant :

Sub affiche_onglets()
If ActiveWindow.DisplayWorkbookTabs = True Then
ActiveWindow.DisplayWorkbookTabs = False
Else
ActiveWindow.DisplayWorkbookTabs = True
End If
End Sub

Cordialement

Bernard

 

[nrdz83]

Re : code affiche onglet

bonjour cbernart impec ça fonctionne trés bien , merci pour ton aide et bon dimanche à toi

 

[JCGL]

Re : code affiche onglet

Bonjour à tous,

Utilise un Bouton Bascule

A+ à tous

Edition : Bonjour Bernard et Mr Bean 🙂

 

[nrdz83]

Re : code affiche onglet

Bonjour JCGL desolé nos posts ce sont croisés merci pour ton aide, amitiés et bon week end🙄

 

[vbacrumble]

Re : code affiche onglet

Bonjour tous


Dès que je lis bouton bascule, je pense Not

Sub masquedemasqueOnglets()
ActiveWindow.DisplayWorkbookTabs = Not  ActiveWindow.DisplayWorkbookTabs
End Sub

 

[JCGL]

Re : code affiche onglet

Bonjour à tous,

Joli raccourci de code VBACrumble 🙂
Merci de ton retour

Private Sub ToggleButton1_Click()
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
End Sub

A++
A+ à tous

 

[nrdz83]

Re : code affiche onglet

Bonjour à tous olala , ça devient un vrai concours lol je sais plus ou donner de la tête lol
merci pour tout 😕

 

[CBernardT]

Re : code affiche onglet

Re,

On est toujours surpris de ce qu'Excel permet de faire 😱

J'ajoute la possibilité de changer le texte affiché sur le ToggleButton présenté par JCGL que je salue.

Private Sub ToggleButton1_Click()
If ToggleButton1 = 0 Then
ToggleButton1.Caption = "AFFICHER LES ONGLETS"
ActiveWindow.DisplayWorkbookTabs = 0
Else
ToggleButton1.Caption = "MASQUER LES ONGLETS"
ActiveWindow.DisplayWorkbookTabs = 1
End If
End Sub

Cordialement

Bernard

 

[nrdz83]

Re : code affiche onglet

trop cool cbernart et si j'ai une forme automatique c'est quoi qu'il faut mettre , à la place de ToggleButton ?

merci

 

[CBernardT]

Re : code affiche onglet

Re,

Un exemple pour le fun.

Il faut affecter la macro directement à la forme automatique.


Cordialement

Bernard

 

[nrdz83]

Re : code affiche onglet

Merci cbernart trop bien , amitiés 🙄