Easy-Micro


ESPACEMEMBRE Projet VBA
Feuille récape

Création d'une feuille de récapitulatif annuel

VBA
La feuille "Récapitulatif Annuel"

Procédure pour la création d'une feuille de récapitulatif annuel :
Sub proc_recapitulatif_annuel()

'Titres
Range("B2").Value = "Total des frais" Range("A1").Value = "Frais " & _
frm_nouveau_classeur_de_frais.txt_annee.Value 'Valeur du champ txt_annee
ActiveCell.Font.Bold = True
ActiveCell.Font.Size = 28

'Poignée de recopie
Range("A3").Select
Selection.Value = "janvier"
Selection.AutoFill Range("A3:A14")

'Somme des frais
Range("B15").Formula = "=SUM(B3:B14)"

'Format monétaire
Range("B3:B14").NumberFormat = "#,##0.00 €"

'Bordures
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous

'Renomme la première feuille
Sheets(1).Name = "Récapitulatif Annuel"
Range("B3").Select

End Sub

Procédure qui collationne les sommes des différents mois dans le feuille "Récapitulatif Annuel".
Objectif : avoir "=janvier!C20" dans toutes les cellules de la plage B3:B14. Il faut donc incrémenter le 3 de B3.

Sub proc_formule_recape()
Sheets("Récapitulatif Annuel").Select 'Sélection
For i = 1 To 12 Step 1
' Soit Range("B3").Formula = "=Janvier!C20"
Range("B" & i + 2).Formula = "=" & MonthName(i) & "!C20"
Next i
End Sub


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Jeudi 24 janvier 2019 - Semaine 04 - Saint François de Sales (Demain: Saint Manuel)
Aujourd'hui, c'est l'anniversaire de Daniel Auteuil (1950-69 ans), acteur français, de Nastassja Kinski (1961), actrice et mannequin allemande et de Muriel Moreno (1963), chanteuse française (du groupe Niagara). Autre 24 janvier: 2009 - Tempête Klaus sur le sud-ouest de la France (60% des forêts sont dévastées).
Haut de page Easy-Micro