Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Bonjour,

Pour les versions d'Excel antérieure à Excel 2007,

Essaie ceci :

VB: 
Sub test()
Dim Mbar As CommandBar

With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton)
    .FaceId = 2992
    .OnAction = "mois_moins_un"
    .TooltipText = "M-1"
    .Caption = "BOUTON A DEPLACER A COTE DE ? APRES FENETRE"
    .Style = msoButtonIconAndCaption
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

MichD à dit:
Bonjour,

Pour les versions d'Excel antérieure à Excel 2007,

Essaie ceci :

VB: 
Sub test()
Dim Mbar As CommandBar

With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton)
    .FaceId = 2992
    .OnAction = "mois_moins_un"
    .TooltipText = "M-1"
    .Caption = "BOUTON A DEPLACER A COTE DE ? APRES FENETRE"
    .Style = msoButtonIconAndCaption
End With

End Sub
Cliquez pour agrandir...


Cela ne fonctionnne pas.
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

C'est embêtant, car je n'ai que la version Excel 2010 d'installer.
Je ne peux pas vérifier explicitement cette procédure sur Excel 2003.

Tu veux vraiment ajouter un bouton à la barre des menus de la feuille de calcul?
Si tu passes la souris au-dessus de la barre des menus après le point d'interrogation,
est-ce qu'il y a un bouton sans qu'il y ait une icône ou du texte qui se sont ajoutés?

La procédure "Moins_Moins_Un" est dans un module standard?

C'est particulier parce qu'avec ce type de procédure, lorsqu'il y a un problème
cela provoque un message d'erreur...


Essaie comme ceci :

VB: 
Sub test()
 Dim Mbar As CommandBar
 
With Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
     .FaceId = 2992
     .OnAction = "mois_moins_un"
     .TooltipText = "M-1"
     .Caption = "Mon_Bouton"
     .Style = msoButtonIconAndCaption
 End With
End Sub
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

mcj1997 à dit:
Cela ne fonctionnne pas.
Cliquez pour agrandir...


Si cela fonctionnne il fallait exécuter la macro pour avoir le bouton en haut qui apparait, par contre quelque soit le fichier excel que j'ouvre il apparait, alors que la formule n'est pas VBA PROJECT(xls.perso).
Comment faire en sorte que le bouton n'apparaisse que dans le fichier ou il est enregistré ?

Merci d'avance,
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Place tout le code suivant dans le ThisWorkbook de ton classeur.

La configuration des barres d'outils est conservée dans un fichier
dédié à cette tâche : Excelxx.xlb situé dans ce répertoire sous Windows 7
C:\Users\Ton profil\AppData\Roaming\Microsoft\Excel\

Le xx dans ExcelXX.xlb représente le numéro de ta version d'Excel.

Si tu supprimes ce fichier, toutes les personnalisations des barres d'outils
seront perdues. Lors de l'ouverture suivante, Excel le recrée tel qu'il existait
après l'installation d'Excel. La sauvegarde de la configuration des barres
d'outils se fait à la fermeture d'Excel.


VB: 
Private Sub Workbook_Activate()
Dim Mbar As CommandBar
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
With Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
      .FaceId = 2992
      .OnAction = "mois_moins_un"
      .TooltipText = "M-1"
      .Caption = "Mon_Bouton"
      .Style = msoButtonIconAndCaption
End With
End Sub
'--------------------------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
End Sub
'--------------------------------------
Private Sub Workbook_Open()
Dim Mbar As CommandBar
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
With Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
      .FaceId = 2992
      .OnAction = "mois_moins_un"
      .TooltipText = "M-1"
      .Caption = "Mon_Bouton"
      .Style = msoButtonIconAndCaption
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

MichD à dit:
Place tout le code suivant dans le ThisWorkbook de ton classeur.

La configuration des barres d'outils est conservée dans un fichier
dédié à cette tâche : Excelxx.xlb situé dans ce répertoire sous Windows 7
C:\Users\Ton profil\AppData\Roaming\Microsoft\Excel\

Le xx dans ExcelXX.xlb représente le numéro de ta version d'Excel.

Si tu supprimes ce fichier, toutes les personnalisations des barres d'outils
seront perdues. Lors de l'ouverture suivante, Excel le recrée tel qu'il existait
après l'installation d'Excel. La sauvegarde de la configuration des barres
d'outils se fait à la fermeture d'Excel.


VB: 
Private Sub Workbook_Activate()
Dim Mbar As CommandBar
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
With Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
      .FaceId = 2992
      .OnAction = "mois_moins_un"
      .TooltipText = "M-1"
      .Caption = "Mon_Bouton"
      .Style = msoButtonIconAndCaption
End With
End Sub
'--------------------------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
End Sub
'--------------------------------------
Private Sub Workbook_Open()
Dim Mbar As CommandBar
On Error Resume Next
Application.CommandBars(1).Controls("Mon_Bouton").Delete
With Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
      .FaceId = 2992
      .OnAction = "mois_moins_un"
      .TooltipText = "M-1"
      .Caption = "Mon_Bouton"
      .Style = msoButtonIconAndCaption
End With
End Sub
Cliquez pour agrandir...

Merci, est-il possible à ce même endroit de la barre d'outils est possible d'y mettre un bouton qui lorsqu'en cliquant dessus apparaisse une liste avec plusieurs macros ?

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Comme ceci :

Place tout le code dans un module standard.
Dans le ThisWorkbook, événement Workbook_Open,
tu appelles la macro : "Bouton_Mes_Macros"

VB: 
Sub Bouton_Mes_Macros()
Dim Ctl As CommandBarControl

On Error Resume Next
Application.CommandBars(1).Controls("Mes macros").Delete

With Application.CommandBars(1)
    Set Ctl = .Controls.Add(Type:=msoControlPopup)
End With

With Ctl
    .Caption = "Mes macros"
End With

With Ctl.Controls.Add
    .Caption = "Macro1"
    .Style = msoButtonCaption
    .OnAction = "Bonjour"
    '.FaceId = ???
End With
With Ctl.Controls.Add
    .Caption = "Macro2"
    .Style = msoButtonCaption
    .OnAction = "Bonsoir"
   ' .FaceId = ???
End With
'///Tu peux ajouter autant de contrôle que tu désires
'With Ctrl.Controls.add
    '....
'end with

End Sub
'--------------------------------------
Sub Bonjour()
MsgBox "Bonjour"
End Sub
'--------------------------------------
Sub Bonsoir()
MsgBox "Bonsoir"
End Sub
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

MichD à dit:
Comme ceci :

Place tout le code dans un module standard.
Dans le ThisWorkbook, événement Workbook_Open,
tu appelles la macro : "Bouton_Mes_Macros"

VB: 
Sub Bouton_Mes_Macros()
Dim Ctl As CommandBarControl

On Error Resume Next
Application.CommandBars(1).Controls("Mes macros").Delete

With Application.CommandBars(1)
    Set Ctl = .Controls.Add(Type:=msoControlPopup)
End With

With Ctl
    .Caption = "Mes macros"
End With

With Ctl.Controls.Add
    .Caption = "Macro1"
    .Style = msoButtonCaption
    .OnAction = "Bonjour"
    '.FaceId = ???
End With
With Ctl.Controls.Add
    .Caption = "Macro2"
    .Style = msoButtonCaption
    .OnAction = "Bonsoir"
   ' .FaceId = ???
End With
'///Tu peux ajouter autant de contrôle que tu désires
'With Ctrl.Controls.add
    '....
'end with

End Sub
'--------------------------------------
Sub Bonjour()
MsgBox "Bonjour"
End Sub
'--------------------------------------
Sub Bonsoir()
MsgBox "Bonsoir"
End Sub
Cliquez pour agrandir...


Merci, comment faire afin que comme dans le poste #8 ces boutons ne soient que dans le fichier voulu et non dans tous les fichiers excel que l'on ouvrent ?
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Après avoir copié les macros précédentes dans un module standard,
tu ajoutes ceci dans le Thisworkbook de ton fichier.
C'est le même principe que précédemment.

VB: 
Private Sub Workbook_Activate()
Call Bouton_Mes_Macros
End Sub
'----------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Mes macros").Delete
End Sub
'----------------------
Private Sub Workbook_Open()
Bouton_Mes_Macros
End Sub
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

MichD à dit:
Après avoir copié les macros précédentes dans un module standard,
tu ajoutes ceci dans le Thisworkbook de ton fichier.
C'est le même principe que précédemment.

VB: 
Private Sub Workbook_Activate()
Call Bouton_Mes_Macros
End Sub
'----------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Mes macros").Delete
End Sub
'----------------------
Private Sub Workbook_Open()
Bouton_Mes_Macros
End Sub
Cliquez pour agrandir...

merci, une nouvelle question lorsque je change le nom de macro1 ou macro2 sur la ligne caption j'ai toujours en fermant et enregistrant le programme et en rouvrant macro1 ou macro2 qui apparait.
 
Vote positif 0 Vote négatif
Re : Ajouter un bouton en haut dans le bandeau excel a cote du ? Apres fenetre

Le contrôle que tu ajoutes est fait par la macro.
à chaque ouverture du fichier, la macro s'exécute et crée le nouvel élément du menu.

Si tu veux modifier le nom "Macro1" et "Macro2", tu dois le faire dans la macro qui
crée ces commandes. Cela ne sert à rien de vouloir modifier cela par la fenêtre "Personnaliser"
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
511
TooFatBoy
TooFatBoy
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
540
C'est Génial
C
D
  • Résolu(e)
XL 2019 Ajouter préfixe
Réponses
6
Affichages
250
sylvanu
sylvanu
C
  • Résolu(e)
Microsoft 365 ajouter un lien dans une colonne
Réponses
5
Affichages
137
sylvanu
sylvanu
jeff1494
  • Question Question
Autres XL2024. Pour PatrickToulon, clic droit dans VBE.
Réponses
4
Affichages
182
jeff1494
jeff1494
ARaul
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
908
TooFatBoy
TooFatBoy
C
  • Résolu(e)
XL 2019 Sélection en cascade ou Groupe
Réponses
12
Affichages
280
ciarab8442
C
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
243
sylvanu
sylvanu
J
  • Question Question
XL 2016 Bon de commande depuis un liste.
Réponses
14
Affichages
608
Dranreb
Dranreb
C
  • Question Question
XL 2019 Lenteur Excel après une MàJ office depuis quelques semaines
Réponses
4
Affichages
532
wDog66
W
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
156
sylvanu
sylvanu
aspect
  • Question Question
Microsoft 365 Retour à la case A1
2 3
Réponses
43
Affichages
598
TooFatBoy
TooFatBoy
Titof06
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
205
Titof06
Titof06
Phil Du59
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
2 K
Phil Du59
Phil Du59
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
161
F22Raptor
F
P
  • Résolu(e)
XL 2013 creation d'une arborescence
2 3
Réponses
30
Affichages
2 K
psgm76
P
D
  • Question Question
XL 2016 enregistrement feuille excel directement sur le drive par l'intermédiaire d'un bouton
Réponses
9
Affichages
727
fanch55
fanch55
Hervé
  • Question Question
XL 2016 Formule ne se mettant plus à jour
Réponses
1
Affichages
344
Jacky67
Jacky67
G
  • Question Question
Microsoft 365 Colorer un graphique x-y scatter
Réponses
9
Affichages
305
bsalv
B
K
  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
223
kingbeck
K
Retour