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

  • Initiateur de la discussion Initiateur de la discussion WITER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

WITER

XLDnaute Occasionnel
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
 
Re : Code pour date M-1: 1er et dernier jour

Bonjour,

Ci-dessous une possibilité
Code:
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
 
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
Code:
=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;1)
En A2
Code:
=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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
270
Retour