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 ]
Vendredi 22 mars 2019 - Semaine 12 - Sainte Léa (Demain: Saint Victorien)
Aujourd'hui, c'est l'anniversaire de George Benson (1943-76 ans), guitariste et chanteur de jazz américain (1980: Give Me the Night...) de Fanny Ardant (1949), actrice française et de William Shatner (1931), acteur américain (le capitaine Kirk dans StarTrek). Autre 22 mars: 2016 : attentats terroristes à Bruxelles, faisant 32 morts et 340 blessés.
Haut de page Easy-Micro