voila
j ai une feuille excel avec un userform representant ma barre d outil personnel
(la pas de probleme)
a l ouverture de mon fichier
que toute les barre d outils soit caché sauf le menu
puis a la fermeture
les barres qui existais soit remise
a savoir
si il en avait 3 (exemple menu dessin et standart)
on en retire donc 2 (standart et dessin)
et a la fermeture quand je sauvegarde il les remet
merci
pour vous aider
je pense qu'il faut utiliser
Application.DisplayStatusBar = False / true (exemple de la barre détat)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour damien,
Public bars() Public x Sub EnlèveCommandeBar() 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 RemetCommandeBar() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
bonjour
juste une petite question
voila j ai une feuille excel avec un userform representant ma barre d outil personnel (la pas de probleme)
a l ouverture de mon fichier que toute les barre d outils soit caché sauf le menu
puis a la fermeture les barres qui existais soit remise
a savoir si il en avait 3 (exemple menu dessin et standart) on en retire donc 2 (standart et dessin) et a la fermeture quand je sauvegarde il les remet
merci
pour vous aider je pense qu'il faut utiliser Application.DisplayStatusBar = False / true (exemple de la barre détat)
bonjour damien,
Public bars()
Public x
Sub EnlèveCommandeBar()
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 RemetCommandeBar()
Application.DisplayFormulaBar = True
For i = 1 To x
On Error Resume Next
CommandBars(bars(i)).Visible = True
Next
End Sub
isabelle
bonjour
juste une petite question
voila
j ai une feuille excel avec un userform representant ma barre d outil personnel
(la pas de probleme)
a l ouverture de mon fichier
que toute les barre d outils soit caché sauf le menu
puis a la fermeture
les barres qui existais soit remise
a savoir
si il en avait 3 (exemple menu dessin et standart)
on en retire donc 2 (standart et dessin)
et a la fermeture quand je sauvegarde il les remet
merci
pour vous aider
je pense qu'il faut utiliser
Application.DisplayStatusBar = False / true (exemple de la barre détat)
Public bars() Public x Sub EnlèveCommandeBar() 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 RemetCommandeBar() Application.DisplayFormulaBar = True For i = 1 To x On Error Resume Next CommandBars(bars(i)).Visible = True Next End Sub
isabelle
bonjour
juste une petite question
voila j ai une feuille excel avec un userform representant ma barre d outil personnel (la pas de probleme)
a l ouverture de mon fichier que toute les barre d outils soit caché sauf le menu
puis a la fermeture les barres qui existais soit remise
a savoir si il en avait 3 (exemple menu dessin et standart) on en retire donc 2 (standart et dessin) et a la fermeture quand je sauvegarde il les remet
merci
pour vous aider je pense qu'il faut utiliser Application.DisplayStatusBar = False / true (exemple de la barre détat)
