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 Boutons personnalisés

Boutons personnalisés

6 réponses
Avatar
Leo
Bonsoir,
J'ai créé un bouton personnalisé, pour une macro complémentaire xla.
Je souhaite mettre cette macro complémentaire sur une autre machine.

Comment transférer aussi, le bouton personnalisé ?

--


Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------
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
gee-dee-
;-)))
Bonsoir,
il faut générer le bouton par le xla .......
voir des exemples sur http://www.excelabo.net

@+

Pour les riders, BMX, VTT.
;-)))

voir aussi ici : http://www.dj9b.fr.st/

Avatar
RaMa
Bonsoir
Je te propose de faire un classeur InstallMacro.xls avec en feuille 1 :
-le bouton de lancement de la macro setup ci-après
-colle également en image 1 ton icône

la macro.XLA à installer devra se trouver dans le même répertoire que
InstallMacro.xls
L'installleur mettra la macro dans la bibliothéque d'excel
et placera le bouton avec son icône dans la BO "standard"

Option Explicit
Public NomButt, MacBlaz, NomProc
Sub Setup_Mac_Compl()
Dim MyWay, WayBibIco, Lobj
'*************nom du classeur XLA qui contient la proc macro
*******************
'la macro XLA doit être dans le même répertoire que ce classeur
MacBlaz = "headBGPE" 'modifier
'*************nom de la proc appelée par le
bouton******************************
NomProc = "BGPE" 'modifier
'*************nom du Bouton ************************************************
NomButt = "&entêteBGPE" 'modifier
'***************************************************************************
WayBibIco = Application.LibraryPath & Application.PathSeparator
MyWay = ThisWorkbook.Path & Application.PathSeparator
On Error Resume Next
AddIns(MacBlaz).Installed = False
Application.DisplayAlerts = False
Kill WayBibIco & MacBlaz & ".xla"
Set Lobj = CreateObject("Scripting.FileSystemObject")
Lobj.CopyFile MyWay & MacBlaz & ".xla", WayBibIco & MacBlaz & ".xla"
AddIns(MacBlaz).Installed = False
AddIns.Add FileName:= _
Application.LibraryPath & Application.PathSeparator & MacBlaz & ".xla"
AddIns(MacBlaz).Installed = True
EffaceLeBouton
MePduBouton
MsgBox "Fin d'installation"
ThisWorkbook.Close savechanges:úlse
End Sub
Sub EffaceLeBouton()
On Error Resume Next
Application.CommandBars("standard").Controls(NomButt).Delete
End Sub
Sub MePduBouton()
Dim Ctrl As CommandBarButton, CdeBar As CommandBar
'***********************************************************************
'Si le bouton doit avoir une icone :placer l'image Image 1 sur feuille 1
'***********************************************************************
ThisWorkbook.Worksheets("Feuil1").Shapes("Image 1").Copy
Set CdeBar = Application.CommandBars("Standard")
Set Ctrl = CdeBar.FindControl(Id:9)
With CdeBar.Controls.Add(msoControlButton, before:=Ctrl.Index + 1)
.Caption = NomButt 'nom du bouton
.OnAction = NomProc 'nom de la macro
.PasteFace
End With
End Sub

Si tu as un problème je peux te BAL le classeur
Salutations
RaMa
--
RaMa
"Leo" a écrit dans le message de
news:c1b3gq$71r$
Bonsoir,
J'ai créé un bouton personnalisé, pour une macro complémentaire xla.
Je souhaite mettre cette macro complémentaire sur une autre machine.

Comment transférer aussi, le bouton personnalisé ?

--


Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------




Avatar
Leo
Merci

et si je veux un icone particulier pour le bouton ??? comment faire ?
Si possible, dans un seul et même fichier xla.


Excel et BMX, je croyais être le seul . ;-)

Bravo

--
Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------

"gee-dee-" a écrit dans le message de
news:usC4TzY%
;-)))
Bonsoir,
il faut générer le bouton par le xla .......
voir des exemples sur http://www.excelabo.net

@+

Pour les riders, BMX, VTT.
;-)))

voir aussi ici : http://www.dj9b.fr.st/





Avatar
RaMa
Bonjour
tu le dessines avec le ou un éditeur de bouton
puis tu le colles en feuil1 avec le nom "image 1" du classeur
"installmacro.xls"
(NB "feuil1 et image 1" peuvent être changés bien entendu)

Salutations
RaMa
--
RaMa
"Leo" a écrit dans le message de
news:c1bc60$nm9$
Merci

et si je veux un icone particulier pour le bouton ??? comment faire ?
Si possible, dans un seul et même fichier xla.


Excel et BMX, je croyais être le seul . ;-)

Bravo

--
Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------

"gee-dee-" a écrit dans le message de
news:usC4TzY%
;-)))
Bonsoir,
il faut générer le bouton par le xla .......
voir des exemples sur http://www.excelabo.net

@+

Pour les riders, BMX, VTT.
;-)))

voir aussi ici : http://www.dj9b.fr.st/









Avatar
Frédéric Sigonneau
Bonsoir,

Une approche possible également, pour un bouton de barre d'outils avec une icone
personnalisée, est :
- de créer le bouton à l'ouverture de la macro complémentaire (dans son
événement Workbook_Open) et de la détruire à sa fermeture (dans le
Workbook_BeforeClose)
- d'utiliser une feuille de calcul du la macro complémentaire pour y stocker
l'image souhaitée pour le bouton.

Il ne faut pas oublier en effet qu'un macro complémentaire, depuis Excel 97,
n'est qu'un simple classeur, dont la propriété IsAddin vaut True, et contient
donc au moins une feuille de calcul qu'il est possible d'utiliser comme
n'importe quelle feuille de n'importe quel classeur, pour y conserver des
données de tous types, dont, pourquoi pas, une ou des images...

Des exemples de programmation de boutons de barres d'outils dans cette page :

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

Dont un exemple de code pour copier une image perso sur un bouton :

http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CollerImagePersoBoutonBO.txt

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Leo a écrit:
Bonsoir,
J'ai créé un bouton personnalisé, pour une macro complémentaire xla.
Je souhaite mettre cette macro complémentaire sur une autre machine.

Comment transférer aussi, le bouton personnalisé ?



Avatar
Leo
Merci

--


Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------

"Frédéric Sigonneau" a écrit dans le
message de news:
Bonsoir,

Une approche possible également, pour un bouton de barre d'outils avec une
icone

personnalisée, est :
- de créer le bouton à l'ouverture de la macro complémentaire (dans son
événement Workbook_Open) et de la détruire à sa fermeture (dans le
Workbook_BeforeClose)
- d'utiliser une feuille de calcul du la macro complémentaire pour y
stocker

l'image souhaitée pour le bouton.

Il ne faut pas oublier en effet qu'un macro complémentaire, depuis Excel
97,

n'est qu'un simple classeur, dont la propriété IsAddin vaut True, et
contient

donc au moins une feuille de calcul qu'il est possible d'utiliser comme
n'importe quelle feuille de n'importe quel classeur, pour y conserver des
données de tous types, dont, pourquoi pas, une ou des images...

Des exemples de programmation de boutons de barres d'outils dans cette
page :


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

Dont un exemple de code pour copier une image perso sur un bouton :


http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CollerImagePersoBoutonBO.txt


FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Leo a écrit:
Bonsoir,
J'ai créé un bouton personnalisé, pour une macro complémentaire xla.
Je souhaite mettre cette macro complémentaire sur une autre machine.

Comment transférer aussi, le bouton personnalisé ?