L'evenement OnClick de ce bouton me fera ce qui suit :
- Selection de la feuille du mois en cours
- Cr=E9er des ent=EAtes de tableaux au nombre de quatre par feuille (les
4 semaine du mois) selon la semaine en cours ainsi que les noms des
colonnes
j'ai ce petit code pour le mois de mars, mais j'aimerais le voir
fonctionner pour tout les mois de l'ann=E9e :
Sub Macro1()
Sheets(Month(Date)).Select
Range("A1").Select
ActiveCell.FormulaR1C1 =3D "Semaine (01) du 01/03/06 au 07/03/06"
Range("A2").Select
ActiveCell.FormulaR1C1 =3D "Date"
Range("B2").Select
ActiveCell.FormulaR1C1 =3D "valeur"
Range("A12").Select
ActiveCell.FormulaR1C1 =3D "Semaine (02) du 08/03/06 au 15/03/06"
Range("A13").Select
ActiveCell.FormulaR1C1 =3D "Date"
Range("B13").Select
ActiveCell.FormulaR1C1 =3D "valeur"
Range("A23").Select
ActiveCell.FormulaR1C1 =3D "Semaine (03) du 16/03/06 au 23/03/06"
Range("A24").Select
ActiveCell.FormulaR1C1 =3D "Date"
Range("B24").Select
ActiveCell.FormulaR1C1 =3D "Valeur"
Range("A34").Select
ActiveCell.FormulaR1C1 =3D "Semaine (04) du 24/03/09 au 31/03/09"
Range("A35").Select
ActiveCell.FormulaR1C1 =3D "Date"
Range("B35").Select
ActiveCell.FormulaR1C1 =3D "Valeur"
Range("B42").Select
End Sub
