Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel et ma ptite barre d'outils...

et ma ptite barre d'outils...

6 réponses
Avatar
Leslie Reverdy
S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
ru-th
Salut

personnellement, je préfère créer et détruire mes barres d'outils à
l'intérieur du fichier
un exemple
Sub BarreOutil()
On Error Resume Next
Set cbar1 = CommandBars.Add(Name:="Mabarre", Position:=msoBarFloating)
cbar1.Visible = True
With cbar1.Controls.Add(Type:=msoControlButton, ID:=4, Before:=1)
.OnAction = "Imprime"
End With
With cbar1.Controls.Add(Type:=msoControlButton, ID:18, Before:=2)
.OnAction = "Retour"
End With
Application.CommandBars("Mabarre").Protection = _
msoBarNoCustomize + msoBarNoChangeVisible
End Sub

en début, j'ôte toutes les barres présentes dont je stocke les noms sur une
feuille de façon à recréer l'environnement initial en sortie

Sub OteBarre()
On Error Resume Next
i = 1
For Each barre In Application.CommandBars
If barre.Visible = True Then
Sheets("Temp").Cells(i, 9) = barre.Name
barre.Enabled = False
i = i + 1
End If
Next
End Sub

Puis je configure l'écran en plein écran
Sub ParametreEntree()
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
End With
End Sub

le programme étant ainsi indépendant de la personnalisation d'excel du poste
d'exécution
(procédures à améliorer naturellement !)
a+
rural thierry

"Leslie Reverdy" a écrit dans le message de news:

S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci



Avatar
papou
Bonjour Leslie
Pour conserver les paramètres d'affichage et notamment ceux concernant les
barres d'outils, il faut enregistrer ton fichier avec l'extension XLB.
Les éléments nom du fichier et emplacement du fichier sur le disque sont
variables en fonction des versions de Windows.
Il faut donc que tu identifies ces éléments sur le/les postes que tu es
amnenée à utiliser.
Ensuite tu copies ton fichier XLB initial sur le/les postes avec les
éléments qui vont bien.
Cordialement
Pascal


"Leslie Reverdy" a écrit dans le message de
news:
S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci



Avatar
Keuf
N'étant pas un prodige d'Excel, voici un lien qui pourra certainement
t'aider :

http://perso.wanadoo.fr/frederic.sigonneau/BO.htm

bon courage


"Leslie Reverdy" wrote in message
news:
S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci



Avatar
Michel HOLDERITH
Salut,
je viens d'utiliser :
http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1.txt
et ca marche impecc....
@+
Michel.

"Keuf" wrote in message
news:%23dL$
N'étant pas un prodige d'Excel, voici un lien qui pourra certainement
t'aider :

http://perso.wanadoo.fr/frederic.sigonneau/BO.htm

bon courage


"Leslie Reverdy" wrote in message
news:
S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci







Avatar
sabatier
bonjour leslie,
j'avais d'abord fait cette réponse au premier signal de détresse :
"je laisse au fin savant et homme aux multiples .xlb, j'ai nommé FxM, le
soin
de répondre à cette question ; il peut se faire aider par monique et
laurent

M réunis..."
mais, voyant l'arrivée d'un second signal, alors je réponds ceci :
à mettre dans le module This Workbook du Classeur concerné (module qu'on
trouve en ouvrant VBE via Alt + F11)

Sub Workbook_Open()
On Error Resume Next
For Each cbar In Application.CommandBars
cbar.Enabled = False
Next
Application.CommandBars("LeNomDeTaBoPersonnalisée").Visible = True
End Sub
pour retrouver tes barres d'origine, tu remplaces le False par True

HTH
jps



Leslie Reverdy wrote:

S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci


Avatar
sabatier
oups

Private Sub Workbook_Open()

serait tout aussi bien
jps

sabatier wrote:

bonjour leslie,
j'avais d'abord fait cette réponse au premier signal de détresse :
"je laisse au fin savant et homme aux multiples .xlb, j'ai nommé FxM, le
soin
de répondre à cette question ; il peut se faire aider par monique et
laurent

M réunis..."
mais, voyant l'arrivée d'un second signal, alors je réponds ceci :
à mettre dans le module This Workbook du Classeur concerné (module qu'on
trouve en ouvrant VBE via Alt + F11)

Sub Workbook_Open()
On Error Resume Next
For Each cbar In Application.CommandBars
cbar.Enabled = False
Next
Application.CommandBars("LeNomDeTaBoPersonnalisée").Visible = True
End Sub
pour retrouver tes barres d'origine, tu remplaces le False par True

HTH
jps

Leslie Reverdy wrote:

S'il vous plaît, ne m'oubliez pas prodiges d'excel,
malheureusement je m'y prends un peu tard et je n'ai pas trop de temps
pour résoudre ce problème

Comment n'afficher qu'une barre d'outils personnalisée et fermer toutes
les autres pour un fichier donné quelque soit l'ordinateur utilisé
HELP! HELP! j'ai beau tourner la question dans tous les sens, niet!!! je
ne trouverai pas toute seule,please help me!
Merci