Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news: Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique !
'----------------------
Sub Toutes()
On Error Resume Next
For Each c In Application.CommandBars
If c.Index = 1 Then
c.Enabled = True
Else
c.Visible = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
'----------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:uhSFtn1vDHA.1888@TK2MSFTNGP10.phx.gbl...
Bonjour à toutes et tous
Je désire connaître la proc qui supprime toutes les barres excel.
Merci
Alpha
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news: Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
Alpha
Merci beaucoup Denis Alpha
"Denis Michon" <denis a écrit dans le message de news: j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
Merci beaucoup Denis
Alpha
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message de news:
j8MBb.48660$7C.42643@charlie.risq.qc.ca...
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré
que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour
ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique !
'----------------------
Sub Toutes()
On Error Resume Next
For Each c In Application.CommandBars
If c.Index = 1 Then
c.Enabled = True
Else
c.Visible = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
'----------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:uhSFtn1vDHA.1888@TK2MSFTNGP10.phx.gbl...
Bonjour à toutes et tous
Je désire connaître la proc qui supprime toutes les barres excel.
Merci
Alpha
"Denis Michon" <denis a écrit dans le message de news: j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
isabelle
bonjour Alpha,
voici un autre approche,
Public bars() Public x
Sub Macro1() x = 1 Application.DisplayFormulaBar = False For Each cmb In CommandBars If cmb.Visible = True Then x = x + 1 ReDim Preserve bars(x) bars(x) = cmb.Name On Error Resume Next cmb.Visible = False End If Next End Sub
Sub Macro2() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
Merci beaucoup Denis Alpha
"Denis Michon" <denis a écrit dans le message de news: j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
bonjour Alpha,
voici un autre approche,
Public bars()
Public x
Sub Macro1()
x = 1
Application.DisplayFormulaBar = False
For Each cmb In CommandBars
If cmb.Visible = True Then
x = x + 1
ReDim Preserve bars(x)
bars(x) = cmb.Name
On Error Resume Next
cmb.Visible = False
End If
Next
End Sub
Sub Macro2()
Application.DisplayFormulaBar = True
For i = 1 To x
On Error Resume Next
CommandBars(bars(i)).Visible = True
Next
End Sub
isabelle
Merci beaucoup Denis
Alpha
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message de news:
j8MBb.48660$7C.42643@charlie.risq.qc.ca...
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré
que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour
ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique !
'----------------------
Sub Toutes()
On Error Resume Next
For Each c In Application.CommandBars
If c.Index = 1 Then
c.Enabled = True
Else
c.Visible = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
'----------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:uhSFtn1vDHA.1888@TK2MSFTNGP10.phx.gbl...
Bonjour à toutes et tous
Je désire connaître la proc qui supprime toutes les barres excel.
Merci
Alpha
Sub Macro1() x = 1 Application.DisplayFormulaBar = False For Each cmb In CommandBars If cmb.Visible = True Then x = x + 1 ReDim Preserve bars(x) bars(x) = cmb.Name On Error Resume Next cmb.Visible = False End If Next End Sub
Sub Macro2() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
Merci beaucoup Denis Alpha
"Denis Michon" <denis a écrit dans le message de news: j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
Alpha
Merci beaucoup Isabelle Alpha
"isabelle" a écrit dans le message de news:
bonjour Alpha,
voici un autre approche,
Public bars() Public x
Sub Macro1() x = 1 Application.DisplayFormulaBar = False For Each cmb In CommandBars If cmb.Visible = True Then x = x + 1 ReDim Preserve bars(x) bars(x) = cmb.Name On Error Resume Next cmb.Visible = False End If Next End Sub
Sub Macro2() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
Merci beaucoup Denis Alpha
"Denis Michon" <denis a écrit dans le message de news:
j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré
que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour
ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
Merci beaucoup Isabelle
Alpha
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FD7965B.636050BB@videotron.ca...
bonjour Alpha,
voici un autre approche,
Public bars()
Public x
Sub Macro1()
x = 1
Application.DisplayFormulaBar = False
For Each cmb In CommandBars
If cmb.Visible = True Then
x = x + 1
ReDim Preserve bars(x)
bars(x) = cmb.Name
On Error Resume Next
cmb.Visible = False
End If
Next
End Sub
Sub Macro2()
Application.DisplayFormulaBar = True
For i = 1 To x
On Error Resume Next
CommandBars(bars(i)).Visible = True
Next
End Sub
isabelle
Merci beaucoup Denis
Alpha
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message de
news:
j8MBb.48660$7C.42643@charlie.risq.qc.ca...
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus
élaboré
que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array)
pour
ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique !
'----------------------
Sub Toutes()
On Error Resume Next
For Each c In Application.CommandBars
If c.Index = 1 Then
c.Enabled = True
Else
c.Visible = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
'----------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:uhSFtn1vDHA.1888@TK2MSFTNGP10.phx.gbl...
Bonjour à toutes et tous
Je désire connaître la proc qui supprime toutes les barres excel.
Merci
Alpha
Sub Macro1() x = 1 Application.DisplayFormulaBar = False For Each cmb In CommandBars If cmb.Visible = True Then x = x + 1 ReDim Preserve bars(x) bars(x) = cmb.Name On Error Resume Next cmb.Visible = False End If Next End Sub
Sub Macro2() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
Merci beaucoup Denis Alpha
"Denis Michon" <denis a écrit dans le message de news:
j8MBb.48660$
Bonjour Alpha,
Essaie ceci :
Sur le site de Frédéric Sigonneau, il y a une macro un peu plus élaboré
que celle-ci qui prend en compte les barres d'outils
affichées, les places dans une variable Public de type Tableau(array) pour
ne restaurer que ces dernières lorsque l'on ferme
le classeur ou on le désactive !
En attendant, quelque chose de très basique ! '---------------------- Sub Toutes()
On Error Resume Next For Each c In Application.CommandBars If c.Index = 1 Then c.Enabled = True Else c.Visible = False End If Next Application.DisplayFormulaBar = False Application.DisplayStatusBar = False
End Sub '----------------------
Salutations!
"Alpha" a écrit dans le message de news:
Bonjour à toutes et tous Je désire connaître la proc qui supprime toutes les barres excel. Merci Alpha
