[VBA] Retirer la barre de menu
Fermé
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
-
8 juin 2007 à 10:37
mohamed - 23 janv. 2009 à 15:35
mohamed - 23 janv. 2009 à 15:35
A voir également:
- [VBA] Retirer la barre de menu
- Menu déroulant excel - Guide
- Windows 11 barre des taches a gauche - Guide
- Menu démarrer windows 11 - Guide
- Changer la couleur de la barre des taches - Guide
- Égal barré ✓ - Forum Bureautique
4 réponses
c'est une bouton qui peut t'aider de baloncer ver l'affichge ou non de tout l'interface EXcel
salutation
essayer de faire ça
Private Sub CommandButton1_Click()
Dim CmdB As CommandBar
If ActiveWindow.DisplayHeadings = False Then
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = True ' dislay le Grille
.DisplayHeadings = True ' headings les cordonnées a b c ...-- 1 2 3 ..
.DisplayHorizontalScrollBar = True 'vertical et horizental scrol bar
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True 'les feuiles
End With
' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = False Then
CmdB.Enabled = True
End If
Next CmdB
Else
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = True Then
CmdB.Enabled = False
End If
Next CmdB
End If
End Sub
salutation
essayer de faire ça
Private Sub CommandButton1_Click()
Dim CmdB As CommandBar
If ActiveWindow.DisplayHeadings = False Then
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = True ' dislay le Grille
.DisplayHeadings = True ' headings les cordonnées a b c ...-- 1 2 3 ..
.DisplayHorizontalScrollBar = True 'vertical et horizental scrol bar
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True 'les feuiles
End With
' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = False Then
CmdB.Enabled = True
End If
Next CmdB
Else
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = True Then
CmdB.Enabled = False
End If
Next CmdB
End If
End Sub
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
25
11 juin 2007 à 07:26
11 juin 2007 à 07:26
up
Sir_DEC
Messages postés
143
Date d'inscription
mardi 17 avril 2007
Statut
Membre
Dernière intervention
12 mai 2012
75
12 juin 2007 à 10:04
12 juin 2007 à 10:04
Bonjour,
Je ne vois pas de quel menu tu parles. Mais n'hésites pas à utiliser l'enregistreur de macro (Outils / Nouvelle macro...) pour voir le code qu'il te faut. Enfin a priori c'est ce code... Es-tu certain du nom de la barre ?
Sir_DEC
Je ne vois pas de quel menu tu parles. Mais n'hésites pas à utiliser l'enregistreur de macro (Outils / Nouvelle macro...) pour voir le code qu'il te faut. Enfin a priori c'est ce code... Es-tu certain du nom de la barre ?
Sir_DEC
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
25
12 juin 2007 à 10:15
12 juin 2007 à 10:15
Oui car c'est avec une macro d'enregistrement que j'ai trouvé son nom!!!
Sir_DEC
Messages postés
143
Date d'inscription
mardi 17 avril 2007
Statut
Membre
Dernière intervention
12 mai 2012
75
>
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
12 juin 2007 à 10:29
12 juin 2007 à 10:29
Dans ce cas je suis désolé mais je ne vois pas.
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
25
>
Sir_DEC
Messages postés
143
Date d'inscription
mardi 17 avril 2007
Statut
Membre
Dernière intervention
12 mai 2012
12 juin 2007 à 10:46
12 juin 2007 à 10:46
Merci quand meme !
