Comment obtenir la date de fin de mois dans Excel ?
Peut-être que trouver la date de fin d'un mois est facile pour vous, mais s'il y a plusieurs données de dates dans Excel, comment pouvez-vous rapidement obtenir toutes les dates de fin de chaque mois en une seule fois ? Maintenant, je vais vous présenter quelques astuces rapides pour résoudre ce problème dans Excel.
Obtenir la date de fin de mois avec des formules dans Excel
Obtenir la date de fin de mois avec VBA dans Excel
Obtenir la date de fin de mois avec des formules dans Excel
Utiliser une formule pour trouver la date de fin de chaque mois peut être très simple pour chaque utilisateur d'Excel.
Sélectionnez une cellule à côté des données de date, puis tapez cette formule =DATE(ANNEE(A2),MOIS(A2)+1,0) (A2 est la cellule dont vous souhaitez obtenir la date de fin de mois), puis appuyez sur la touche Entrée du clavier, et faites ensuite glisser la poignée de recopie automatique vers la plage où vous souhaitez appliquer cette formule. Maintenant, la date de fin de chaque mois est affichée dans les cellules. Voir les captures d'écran :
 |
 |
 |
De plus, vous pouvez utiliser cette formule =FIN.MOIS(A2,0) pour obtenir la date de fin du mois. (Vous devez formater les cellules de résultat au format Date avant d'entrer cette formule.)
Astuce : Dans Excel 2003 ou version antérieure, si vous souhaitez utiliser la formule =FIN.MOIS(A2,0), vous devez d'abord installer l'Utilitaire d'analyse en cliquant sur Outils > Macros complémentaires. Voir les captures d'écran :
 |  |  |
Obtenir la date de fin de mois avec une fonction définie dans Excel
Si vous êtes familiarisé avec VBA, vous pouvez utiliser le code VBA ci-dessous pour trouver la date de fin du mois.
1. Appuyez simultanément sur les touches F11 + Alt du clavier pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez ensuite sur Insertion > Module pour insérer une nouvelle fenêtre de module. Copiez ensuite le code VBA suivant dans la fenêtre.
VBA : Obtenir la date de fin de mois.
Function LastDayInMonth(Optional pDate As Date = 0) As Date
'Updateby20140723
If pDate = 0 Then pDate = VBA.Date
LastDayInMonth = VBA.DateSerial(VBA.Year(pDate), VBA.Month(pDate) + 1, 0)
End Function
3. Enregistrez et fermez la fenêtre. Sélectionnez ensuite une cellule et tapez cette formule =DernierJourDuMois(A2) (A2 contient la date dont vous souhaitez obtenir la date de fin de mois), puis appuyez sur la touche Entrée et vous obtiendrez la date de fin du mois.
Remarque : Ce VBA nécessite également que vous formatiez les cellules de résultat au format Date avant d'entrer cette formule =DernierJourDuMois(A2).
Articles connexes :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels