Code pour date M-1: 1er et dernier jour

[WITER]

bonjour à tous je cherche 2 codes .
Un pour afficher en A1 le premier jour du mois précédent
et un autre pour afficher en A2 le dernier jour du mois précédent

Exemple : aujourd'hui 01/04/08

A1 A2
01/03/08 31/03/08

merci d'avance pour votre aide

 

[ftho]

Re : Code pour date M-1: 1er et dernier jour

Bonjour,

Ci-dessous une possibilité

Sub test_date()
[COLOR="SeaGreen"]'premier jour du mois en cours[/COLOR]
M = CDate("01/" & Month(Date) & "/" & Year(Date))

[COLOR="seagreen"]'premier jour du mois précédent le mois en cours[/COLOR]
Deb = CDate("01/" & Month(Date) - 1 & "/" & Year(Date))

[COLOR="seagreen"]'dernier jour du mois précédent le mois en cours[/COLOR]
Fin = DateAdd("d", -1, M)

[A1] = Deb
[A2] = Fin
End Sub

 

[WITER]

Re : Code pour date M-1: 1er et dernier jour

Merci ftho je teste ton code, mais juste pour info, sait tu si il existe l'équivalent du code en formule excel

 

[ftho]

Re : Code pour date M-1: 1er et dernier jour

Merci ftho je teste ton code, mais juste pour info, sait tu si il existe l'équivalent du code en formule excel

euuh oui mais il me semblait que tu demandais 2 codes

En A1

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;1)

En A2

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());0)

Si tu veux appliquer cela par rapport à une date (26/05/2012) introduite dans une cellule, par exemple en E2, tu remplaces AUJOURDHUI() par E2