Easy-Micro


ESPACEMEMBRE Projet VBA
12 Feuilles

Création de 12 feuilles

Procédure pour la création, dans un classeur Excel, de 12 feuilles automatiquement renommées avec le nom des mois de l'année
Sub proc_ajoute_12_nouvelles_feuilles()

'Ajoute 12 feuilles en les renommant avec le nom des mois
For i = 12 To 1 Step -1 'Boucle "à l'envers" pour classer les mois
Sheets.Add 'Ajoute
ActiveSheet.Name = MonthName(i) 'Renomme
Next i

End Sub

Procédure de mise en forme de chaque feuilles mensuelle :
Sub proc_tableau_mensuel()

'Titres
Range("A1").Value = "Date"
Range("B1").Value = "Motif"
Range("C1").Value = "Montant"

'Largeur de colonnes
Columns("A:C").ColumnWidth = 20

'Bordures
Range("A1:C19").Select
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous

'Fonction somme
Range("C20").Formula = "=sum(C2:C19)"

End Sub

Modif à rajouter dans procédure proc_nouvelle_feuille() :
'A rajouter dans la boucle:
proc_tableau_mensuel 'Appel de procédure distante

'Puis avant la boucle FOR Next
Application.ScreenUpdating = False 'Gèle de l'écran

'Et après la boucle :
Application.ScreenUpdating = True 'Dégèle de l'écran


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Vendredi 22 novembre 2019 - Semaine 47 - Sainte Cécile (Demain: Saint Clément)
Aujourd'hui, c'est l'anniversaire de Stéphane Freiss (1960-59 ans), acteur français.
Haut de page Easy-Micro