Microsoft Excel : exemple de Macro

Microsoft Excel

Exemple de macro Excel

Modifier la cellule sélectionnée

Si, au cours de l'enregistrement d'une macro, vous avez sélectionné une cellule, votre macro contient une commande du type Range("A3").Select. Vous voudrez sans doute supprimer cette ligne, sinon, chaque fois que la macro s'exécutera, cette ligne entraînera la sélection de la cellule spécifiée dans l'objet Range. Si vous voulez effectivement que cette cellule soit sélectionnée systématiquement avant toute opération, alors laissez cette ligne dans la macro. Sinon, il faut utiliser la commande With

Sub CouleurJaune()
'
'
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Modifier les en-têtes et pieds de page de feuille de calcul Excel

La macro suivante ajoute le chemin d'accès et le nom de fichier au pied de page gauche de la feuille de calcul active. Le classeur doit être enregistré avant d'ajouter au pied de page des informations relatives au chemin.

Sub EnTetePiedPage()
` Pour ajouter un logo (ici en haut à gauche)
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"E:\Professionnel\Xl Consultant\Communication\Logo-3-Mini.bmp"
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Gras""&G"
.CenterHeader = "&""Arial,Gras""&16Perfectionnement EXCEL"
.RightHeader = "&""Arial,Gras""&10Date: " & Format(Date, "d mmm yyyy")
`ajoute le chemin d'accès et le nom de fichier
.LeftFooter = ActiveWorkbook.FullName & vbCrLf &
& "&""Verdana,Gras""www.lienart.net "
.CenterFooter = "&""Arial,Gras""&16Macro par l'exemple"
.RightFooter = "&""Arial,Gras""&10" & "Page " & "&P" & " sur " &
"&N"
End Sub

_ : Permet de passer à la ligne tout en continuant la commande en cours
vbCrLf : C'est une constante d'excel permettant de passer à la ligne suivante...

Pour ajouter le chemin d'accès et le nom de fichier à la section centrale ou la section droite du pied de page, modifiez LeftFooter en CenterFooter ou RightFooter dans le code. Pour ajouter des informations à l'en-tête, utilisez LeftHeader, CenterHeader ou RightHeader.

- Word - PowerPoint -