Pour aider à la tâche, il serait bien de pouvoir lier cette macro à un objet comme un bouton ou une image.
Excel nous offre quelques possibilités sur ce point-là, que nous allons aborder dans cette partie du tutoriel.
Comment exécuter la macro ?
Il existe plusieurs façons d'exécuter celle-ci.
Je vais en énumérer 3 :
- Un bouton Excel ;
- une zone de texte ;
- une image.
Un bouton Excel
Pour créer un bouton Excel, il nous faut la barre d'outils
Boîte à outils Contrôles.
Cliquez donc sur
Affichage puis
Barre d'outils et cochez
Boîte à outils Contrôles.
Cliquez sur l'icône
Bouton de commande.
Cliquez sur votre classeur, restez appuyés sur le bouton droit de la souris et tracez un rectangle.
Il sera votre bouton. Relâchez quand la taille vous semble correcte.
Vous pouvez modifier, par la suite, sa taille, la police, etc.
Faites un clic droit sur le bouton et choisissez
Objet Bouton de commande → Édition.
Vous pouvez changer le nom du bouton. J'ai mis «
EFFACER ».
Un petit rappel de nos deux macros :
Code : VB.NET 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 | Sub somme_depenses()
Range("C21:C22").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("G21:G22").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("D28:E30").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[3]-R[-7]C[-1]"
End Sub
Sub effacer()
Range("C21,G21,D28").Select
ActiveCell.Activate
Selection.ClearContents
End Sub
|
Faites un clic droit sur le bouton et choisissez
Visualiser le code.
Mettez-y le code de la macro « effacer » mais ne touchez pas aux lignes
Sub.
Ce qui donnera :
Code : VB.NET1
2
3
4
5
6
7 | Private Sub CommandButton1_Click()
Range("C21,G21,D28").Select
ActiveCell.Activate
Selection.ClearContents
End Sub
|
Un simple clic sur le bouton suffira à effacer le contenu des 3 cellules.
Les boutons Excel sont assez pénibles à embellir et à gérer. Il faut faire de multiples manipulations pour arriver à un résultat peu attrayant.
Je vous conseille de n'utiliser cette méthode qu'à titre d'exercice. Il vaut mieux l'oublier au plus vite.
La zone de texte
On peut utiliser une zone de texte aussi.
Là, c'est du simple et rapide.
La barre d'outils « dessin » doit être affichée.
Si ce n'est pas le cas, cliquez sur
Affichage → Barre d'outils → Dessin.
Cliquez ensuite sur l'icône
Zone de texte…
… et créez un rectangle comme pour le bouton Excel.
Je vous laisse gérer votre zone de texte comme vous le voulez (clic droit sur le bord puis
Format de la zone de texte).
Vous pouvez modifier la couleur du fond, la taille du bord,…
Une fois que vous avez fait cela, vous faites un clic droit sur le bord et vous cliquez sur
Affecter une macro.
Choisissez la macro «
effacer » et validez ce choix.
Cliquez en dehors de votre zone de texte pour que la macro ne soit plus sélectionnée.
Maintenant, si vous cliquez dessus, la macro sera exécutée.
Une image
J'ai créé une petite image pour l'occasion.
Récupérez celle-ci à l'aide d'un clic droit et choisissez « Enregistrer l'image sous… ».
Cliquez ensuite sur le menu
Insertion → Image → À partir du fichier et sélectionnez celle-ci.
Ajustez-la si besoin est.
Faites ensuite un clic droit dessus et choisissez
Affecter une macro. Sélectionnez la macro « effacer » comme précédemment.
Vous pouvez essayer de vous-mêmes d'affecter la macro «
somme_depenses » à ce bouton.
Si vous vous débrouillez bien avec un logiciel de dessin ou de retouche photos, vous pourrez vous faire de beaux boutons.
Affecter une macro à une image, un bouton ou une zone de texte peut permettre de naviguer entre plusieurs feuilles par de simples clics.
On peut, par exemple, faire une page de garde pour un fichier assez volumineux et naviguer à partir de là entre les onglets du classeur.
Et si on le faisait ?
On peut par exemple aller voir les graphiques liés aux tableaux.
Pour cela, cliquez sur le menu
Outils → Macro → Nouvelle Macro….
Nommez celle-ci
Graphs.
Cliquez ensuite sur l'onglet
Feuil2 en bas d'Excel, à gauche.
Arrêtez l'enregistrement.
Cliquez maintenant sur le menu
Outils → Macro → Nouvelle Macro… et nommez cette dernière
Accueil.
Cliquez sur l'onglet
Feuil1 et arrêtez l'enregistrement.
Récupérez cette image et placez-la sur la feuille 1 de votre classeur.
Affectez-lui la macro
Graphs.
Cliquez ensuite dessus et sur le bouton que j'ai déjà placé, et affectez-lui la macro
Accueil.
Sur la première page, vous devez avoir 2 boutons (« Effacer » et « Graphs ») et sur la feuille 2, vous devez avoir 1 bouton « retour » permettant de revenir très vite au premier onglet.