Excel
: les macros- (instructions)
comment faire (1/2) ? |
||
Exercices
EXCEL, corrections & plus... |
Jean-Marc
Stoeffler
© maj : janvier 2007 |
|
remarques : si vos macros ne peuvent être activées, cliquez ici...
exo 1) faire disparaître ou apparaître le quadrillage des cellules d'une feuille :
en vidéo ici !
Pour masquer le quadrillage des cellules d'une feuille, il faut lancer la commande (5 secondes minimum pour les non-virtuoses) :
Outils
Option
Affichage
décocher QuadrillagePour enregistrer cette commande il faut déjà s'assurer que le mode Quadrillage est actif au départ (sinon la macro n'enregistrera rien car il n'y aurait rien à masquer !)
1) lancer l'enregistreur de macro |
|
2) indiquer que la macro doit être enregistrée dans le classeur 3) lui donner le nom "QuadrillageMasque" cliquer [OK] |
|
3') noter la boîte qui permet d'arrêter l'enregistrement (ne pas y toucher pour l'instant) |
si elle n'apparaît plus :
|
4) après s'être assuré que le quadrillage est bien présent,
lancer la commande : [OK] |
|
5) arrêter la macro en cliquant le carré bleu (entouré ici en rouge ->) | surtout, ne pas cliquer la croix car l'outil disparaitrait les fois suivantes-> |
l'enregistrement est terminé |
(on peut s'essuyer le front...) |
on fait la même opération pour enregistrer la deuxième macro | 1) Outil Macro Nouvelle macro 2) dans ce classeur 3) nom = "QuadrillageAffiche" 4) on coche "Quadrillage" + OK 5) on stoppe - les deux macros "sont dans la boîte" |
6) on lance la macro... |
|
7) Choisir QuadrillageMasque (et "MacrosDans: Ce classeur" si d'autres macros apparaissent...) puis [Exécuter] |
Pour lancer Visual Basic il faut faire apparaitre la barre d'outil Visal Basic et cliquer sur l'icône
Visual Basic Editor...
On découvre alors le code (simple) de ces deux macros :
____________________________________________
Sub QuadrillageMasque() 'début de l'instruction Masque ' ' QuadrillageMasque Macro ' Macro enregistrée le 09/02/99 par JMS ' ActiveWindow.DisplayGridlines = False End Sub 'fin de l'instruction ____________________________________________
Sub QuadrillageAffiche() 'début de l'instruction Affiche ' ' QuadrillageAffiche Macro ' Macro enregistrée le 09/02/99 par JMS ' ActiveWindow.DisplayGridlines = True End Sub 'fin de l'instruction Affiche ____________________________________________