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 Excel 2007 - Comment créer un bouton personalisé (appel de Macro )

Excel 2007 - Comment créer un bouton personalisé (appel de Macro )

15 réponses
Avatar
jdec67
Dans EXCEL 2007, comment faire pour créer un bouton de barre d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Menu Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton Personalisé , et
on affecte une macro à ce bouton.
Signaler un problème avec ce contenu

5 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
1 2
Avatar
Boisgontier
Bonjour,

Une version qui reprend les infos ExcelMap.xls:

http://boisgontierjacques.free.fr/fichiers/2007/Map2000_2007.xls

-Copier le fichier dans un répertoire
-Ouvrir le fichier une fois
-Dans l'onglet 'Compléments' apparaît un bouton Map2000->2007 utilisable à
partir de tout classeur
-Le formulaire est non modal
-Pour modifier le pgm, le mot de passe du code est jacques
-Pour supprimer le bouton, clic-droit/Supprimer la BO personnalisée

JB


"jdec67" a écrit dans le message de news:

Bonsoir,

C'est vraiment un prgm très sympa !
Quand je pense que la réponse de microsoft à cette question (fichier
Excelmap.xlsx) est constitué de plus de 40 feuilles !
Pourqoui faire simple, quand on peut faire compliqué...

jdec67


Bonsoir,

Un pgm qui donne la correspondance entre les commandes 2000-->2007

Si on installe ce classeur dans un répertoire qq et si on l'ouvre 1
fois, l'onglet 'Compléments' permet de faire apparaître la
correspondance entre les commandes 2000 et 2007.

http://cjoint.com/?hww1y0zOkv

JB

On 22 juil, 04:58, jdec67 wrote:
Bonjour,

Génial ! ça marche.
Merci beaucoup d'avoir résolu ce pb, je vais pouvoir installer 2007 sur
nos
PC.

jdec67



"JB" wrote:
Bonjour,

Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

-Masquer le classeur qui contient les macros et masquer le code.

-Pour Supprimer les boutons de l'onglet 'Compléments' :

CommandBars("BarreBoutons").Delete

JB

On 20 juil, 00:56, jdec67 wrote:
Dans EXCEL 2007, comment faire pour créer un bouton de barre
d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Menu
Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton
Personalisé , et
on affecte une macro à ce bouton.- Masquer le texte des messages
précédents -



- Afficher le texte des messages précédents -











Avatar
jdec67
C'est top...
Merci

JJD

"Boisgontier" wrote:

Bonjour,

Une version qui reprend les infos ExcelMap.xls:

http://boisgontierjacques.free.fr/fichiers/2007/Map2000_2007.xls

-Copier le fichier dans un répertoire
-Ouvrir le fichier une fois
-Dans l'onglet 'Compléments' apparaît un bouton Map2000->2007 utilisable à
partir de tout classeur
-Le formulaire est non modal
-Pour modifier le pgm, le mot de passe du code est jacques
-Pour supprimer le bouton, clic-droit/Supprimer la BO personnalisée

JB


"jdec67" a écrit dans le message de news:

Bonsoir,

C'est vraiment un prgm très sympa !
Quand je pense que la réponse de microsoft à cette question (fichier
Excelmap.xlsx) est constitué de plus de 40 feuilles !
Pourqoui faire simple, quand on peut faire compliqué...

jdec67


Bonsoir,

Un pgm qui donne la correspondance entre les commandes 2000-->2007

Si on installe ce classeur dans un répertoire qq et si on l'ouvre 1
fois, l'onglet 'Compléments' permet de faire apparaître la
correspondance entre les commandes 2000 et 2007.

http://cjoint.com/?hww1y0zOkv

JB

On 22 juil, 04:58, jdec67 wrote:
Bonjour,

Génial ! ça marche.
Merci beaucoup d'avoir résolu ce pb, je vais pouvoir installer 2007 sur
nos
PC.

jdec67



"JB" wrote:
Bonjour,

Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton > >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton > >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

-Masquer le classeur qui contient les macros et masquer le code.

-Pour Supprimer les boutons de l'onglet 'Compléments' :

CommandBars("BarreBoutons").Delete

JB

On 20 juil, 00:56, jdec67 wrote:
Dans EXCEL 2007, comment faire pour créer un bouton de barre
d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Menu
Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton
Personalisé , et
on affecte une macro à ce bouton.- Masquer le texte des messages
précédents -



- Afficher le texte des messages précédents -
















Avatar
jdec67
Bonjour,

Il y a un mystère que je n'ai pas résolu :
Comment faites-vous pour que le fichier "Map200_2007" apparaisse comme un
zombie (ouvert, il n'existe pas dans Excel, mais seulement dans VBA) ?

"Boisgontier" wrote:

Bonjour,

Une version qui reprend les infos ExcelMap.xls:

http://boisgontierjacques.free.fr/fichiers/2007/Map2000_2007.xls

-Copier le fichier dans un répertoire
-Ouvrir le fichier une fois
-Dans l'onglet 'Compléments' apparaît un bouton Map2000->2007 utilisable à
partir de tout classeur
-Le formulaire est non modal
-Pour modifier le pgm, le mot de passe du code est jacques
-Pour supprimer le bouton, clic-droit/Supprimer la BO personnalisée

JB


"jdec67" a écrit dans le message de news:

Bonsoir,

C'est vraiment un prgm très sympa !
Quand je pense que la réponse de microsoft à cette question (fichier
Excelmap.xlsx) est constitué de plus de 40 feuilles !
Pourqoui faire simple, quand on peut faire compliqué...

jdec67


Bonsoir,

Un pgm qui donne la correspondance entre les commandes 2000-->2007

Si on installe ce classeur dans un répertoire qq et si on l'ouvre 1
fois, l'onglet 'Compléments' permet de faire apparaître la
correspondance entre les commandes 2000 et 2007.

http://cjoint.com/?hww1y0zOkv

JB

On 22 juil, 04:58, jdec67 wrote:
Bonjour,

Génial ! ça marche.
Merci beaucoup d'avoir résolu ce pb, je vais pouvoir installer 2007 sur
nos
PC.

jdec67



"JB" wrote:
Bonjour,

Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton > >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton > >> > > CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

-Masquer le classeur qui contient les macros et masquer le code.

-Pour Supprimer les boutons de l'onglet 'Compléments' :

CommandBars("BarreBoutons").Delete

JB

On 20 juil, 00:56, jdec67 wrote:
Dans EXCEL 2007, comment faire pour créer un bouton de barre
d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Menu
Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton
Personalisé , et
on affecte une macro à ce bouton.- Masquer le texte des messages
précédents -



- Afficher le texte des messages précédents -
















Avatar
Misange
Excellent Jacques !
voilà une aide qui sera drolement appréciée par ceux qui vont migrer, de
gré ou de force.
Merci !
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour,

Une version qui reprend les infos ExcelMap.xls:

http://boisgontierjacques.free.fr/fichiers/2007/Map2000_2007.xls

-Copier le fichier dans un répertoire
-Ouvrir le fichier une fois
-Dans l'onglet 'Compléments' apparaît un bouton Map2000->2007 utilisable à
partir de tout classeur
-Le formulaire est non modal
-Pour modifier le pgm, le mot de passe du code est jacques
-Pour supprimer le bouton, clic-droit/Supprimer la BO personnalisée

JB


"jdec67" a écrit dans le message de news:

Bonsoir,

C'est vraiment un prgm très sympa !
Quand je pense que la réponse de microsoft à cette question (fichier
Excelmap.xlsx) est constitué de plus de 40 feuilles !
Pourqoui faire simple, quand on peut faire compliqué...

jdec67


Bonsoir,

Un pgm qui donne la correspondance entre les commandes 2000-->2007

Si on installe ce classeur dans un répertoire qq et si on l'ouvre 1
fois, l'onglet 'Compléments' permet de faire apparaître la
correspondance entre les commandes 2000 et 2007.

http://cjoint.com/?hww1y0zOkv

JB

On 22 juil, 04:58, jdec67 wrote:
Bonjour,

Génial ! ça marche.
Merci beaucoup d'avoir résolu ce pb, je vais pouvoir installer 2007 sur
nos
PC.

jdec67



"JB" wrote:
Bonjour,
Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.
Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True
Set bouton >>>>> CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"
Set bouton >>>>> CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub
Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub
Sub macro2()
MsgBox "Macro2"
End Sub
-Masquer le classeur qui contient les macros et masquer le code.
-Pour Supprimer les boutons de l'onglet 'Compléments' :
CommandBars("BarreBoutons").Delete
JB
On 20 juil, 00:56, jdec67 wrote:
Dans EXCEL 2007, comment faire pour créer un bouton de barre
d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Menu
Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton
Personalisé , et
on affecte une macro à ce bouton.- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
















Avatar
JB
Bonjour,

Le fichier est masqué: Onglet Affichage/Fenêtre/Icône Afficher Fenê tre

JB
On 30 juil, 13:40, jdec67 wrote:
Bonjour,

Il y a un mystère que je n'ai pas résolu :
Comment faites-vous pour que le fichier "Map200_2007" apparaisse comme un
zombie (ouvert, il n'existe pas dans Excel, mais seulement dans VBA) ?



"Boisgontier" wrote:
Bonjour,

Une version qui reprend les infos ExcelMap.xls:

http://boisgontierjacques.free.fr/fichiers/2007/Map2000_2007.xls

-Copier le fichier dans un répertoire
-Ouvrir le fichier une fois
-Dans l'onglet 'Compléments' apparaît un bouton Map2000->2007 utili sable à
partir de tout classeur
-Le formulaire est non modal
-Pour modifier le pgm, le mot de passe du code est jacques
-Pour supprimer le bouton, clic-droit/Supprimer la BO personnalisée

JB

"jdec67" a écrit dans le message d e news:

Bonsoir,

C'est vraiment un prgm très sympa !
Quand je pense que la réponse de microsoft à cette question (fich ier
Excelmap.xlsx) est constitué de plus de 40 feuilles !
Pourqoui faire simple, quand on peut faire compliqué...

jdec67




Bonsoir,

Un pgm qui donne la correspondance entre les commandes 2000-->2007

Si on installe ce classeur dans un répertoire qq et si on l'ouvre 1
fois, l'onglet 'Compléments' permet de faire apparaître la
correspondance entre les commandes 2000 et 2007.

http://cjoint.com/?hww1y0zOkv

JB

On 22 juil, 04:58, jdec67 wrote:
Bonjour,

Génial ! ça marche.
Merci beaucoup d'avoir résolu ce pb, je vais pouvoir installer 2 007 sur
nos
PC.

jdec67

"JB" wrote:
Bonjour,

Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButto n)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButto n)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

-Masquer le classeur qui contient les macros et masquer le code.

-Pour Supprimer les boutons de l'onglet 'Compléments' :

CommandBars("BarreBoutons").Delete

JB

On 20 juil, 00:56, jdec67 wro te:
Dans EXCEL 2007, comment faire pour créer un bouton de barre
d'outil, qui
permette d'appeler une macro ?? Dans EXCEL 2003, on fait : Me nu
Affichage -
Barres d'outil - Personaliser - Commandes - Macros - Bouton
Personalisé , et
on affecte une macro à ce bouton.- Masquer le texte des mess ages
précédents -



- Afficher le texte des messages précédents -- Masquer le text e des messages précédents -





- Afficher le texte des messages précédents -








1 2