Comment créer un classeur et renommer des tables
Vous souhaitez créer des classeurs contenant douze feuilles de calcul afin de pouvoir collecter des données pour chaque mois de l'année ? Laissez une macro le faire pour vous automatiquement.
La macro suivante crée un nouveau classeur vide avec douze feuilles de calcul et nomme les feuilles individuelles sous la forme abrégée des noms de mois, c'est-à-dire « janvier », « février », etc. Voici la macro appropriée :
Sous-tables CreateMonth ()
Numéro de l'onglet Dim en tant qu'entier
Dim Nouveau en tant que classeur
Dim noms en tant que variante
Noms = tableau ("Jan", "Fév", "Mar", "Avr", "Mai", "Jun", _
"juil", "août", "sept", "oct", "nov", "déc")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Définir Nouveau = Classeurs.Ajouter
Application.SheetsInNewWorkbook = TabNumber
Pour TabNumber = 1 à 12
New.Worksheets (TabNumber) .Name = Noms (TabNumber - 1)
Numéro de l'onglet suivant
Fin du sous-marin
Après avoir commencé, vous recevrez un classeur avec douze feuilles de calcul. La figure suivante montre à quoi ressemble le résultat :
Si vous souhaitez utiliser d'autres noms au lieu des noms de mois, adaptez les noms dans l'affectation de valeur à la variable "Noms".
Astuce : Si vous souhaitez savoir comment saisir et démarrer des macros dans Excel, vous trouverez une brève description ici : http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros-in-excel-ein.html
