Ajouter un bouton personnaliser dans la barre d’outils

Pour écrire et partager des tutoriels et des astuces (Excel, Calc et Google Sheets uniquement)
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1'599
Inscrit le : 5 février 2012
Version d'Excel : 2000/2007FR

Message par lermite » 23 avril 2013, 17:53

Bouton spécialisé dans un classeur

Ouvrez un nouveau classeur ou le classeur dans lequel vous voulez incorporés le bouton.
Tapez Alt+F11 pour entrer dans l’éditeur de code VBA.
Menu <Insertion> => <Module> Image

Pour la démo, dans la nouvelle fenêtre Copier/Coller le code ci-dessous.
Option Explicit

'Cette sub remplace les formules qui sont dans
'les cellules sélectionnées par leurs valeurs.
Public Sub CopieColleVal()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
Fermez l’éditeur VBA.
Sauvez le classeur, pour la démo CoCrValeur.xlsm, si c’est votre classeur => Enregistrez-le (en .xlsm)
Cliquez sur le bouton Excel, (le bouton rond en haut à gauche) Image

Dans le bas à droite cliquez sur <Option Excel>
Image
=> <Personnaliser>
Dans la liste déroulante de gauche sélectionnez <Macros> , vous allez voir le nom de la macro, <CopieColleVal>, sélectionnez-la.
Dans la liste déroulante de droite sélectionnez le nom du classeur => <CoCrValeur>
Cliquez sur le bouton <Ajouter>
Image
Pour modifier l’image du bouton, sélectionnez le nouveau bouton, dans le bas de la liste cliquez sur le bouton <Modifier>
Image
et sélectionnez une image dans la liste.
Si vous avez bien suivi la procédure vous devriez avoir le bouton disponible dans votre barre d’outils rapide.
Image

Bouton spécialisé disponible dans tous les classeurs.

Ouvrez un nouveau classeur.
Tapez Alt+F11 pour entrer dans l’éditeur de code VBA.
Menu < Insertion > => <Module> Image
Pour la démo, dans la nouvelle fenêtre Copier/Coller le code ci-dessous.
Option Explicit

'Cette sub remplace les formules qui sont dans
'les cellules sélectionnées par leurs valeurs.
Public Sub CopieColleVal()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
Fermez l’éditeur VBA.
Enregistrez le classeur comme « Macro complémentaire (xlam) » => CoCrValeur.xlam
Laissez Excel choisir le répertoire.
Ouvrez un nouveau classeur et sauvez-le sous n’importe quel nom.
Cliquez sur le bouton Excel, (le bouton rond en haut à gauche) Image
Dans le bas à droite cliquez sur <Option Excel> Image
=> <Compléments> => <Atteindre> => <Parcourir>
Sélectionnez votre classeur « CoCrValeur.xlam » => <OK>
Ouvrez de nouveau les options Excel => <Personnaliser>
Dans la liste déroulante de gauche sélectionnez <Macros> , vous allez voir le nom de la macro, <CopieColleVal>, sélectionnez-la. Attention, si vous avez suivi également la première démo vous pourriez avoir deux noms identiques, veillez à sélectionnés la macro qui est dans le classeur xlam.
Dans la liste déroulante de droite laissez la valeur par défaut.
Image
Cliquez sur le bouton <Ajouter>
Pour modifier l’image du bouton, sélectionnez le nouveau bouton, dans le bas de la liste cliquez sur le bouton <Modifier>
Image
et sélectionnez une image dans la liste.
Si vous avez bien suivi la procédure vous devriez avoir le bouton disponible dans votre barre d’outils rapide, valide dans tous les classeurs.
Image
Note : Vous pouvez ajouter des procédures personnelles dans le classeur et suivre les mêmes actions pour y ajouter des boutons, vous pouvez aussi y attribuer des raccourcis clavier.
Tout problème a une solution, le vrai problème... c'est de la trouver.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message