incrementation de date avec VBA

Bonjour,

J'essaie d’incrémenter une date sous forme dd.mm.yyyy mais que les dernières journée du mois, ce qui donne 31/01/1990 par exemple et 28/02/2003.

Le problème c'est que avec le mois de février et les années bissextiles, je n'arrive pas a passer a au 29 fevrier et après repasser au 31 mars.

Voici le code que j'ai actuellement :

Code:

---

1 2 3 4 5

For i = 2 To periode wsTMP.Cells(i, 4) = Format(endDate, "dd.mm.yyyy") endDate = DateAdd("m", 1, endDate) Next

---

Merci.

Est-ce que tu as essayé de mettre dans DateEnd la date de début de mois (le 01) et de mettre dans ta fonction Format DateEnd+1 ?

Autre solution :
Est-ce que tu as essayé d'utiliser la fonction EoMonth() ? C'est une fonction qui donne la date de fin de mois en fonction d'une date données
Donc, l'incrément de ta variable devient
DateEnd = EoMonth(DateEnd+1)

Bien sûr, pour que l'une ou l'autre de ces solutions marche, il faut que ta variable DateEnd soit réellement une date (nombre de jour) avec l'année incluse.

Pour Eomonth, il faut installer des des modules complémentaires ( vu que la fonction n'est pas reconnu dans la version que j'ai), et vu que je suis pas l'utilisateur final, je préféré ne pas mettre en place une solution pareil.

pour l'utilisation de

Citation:

---

wsTMP.Cells(i, 4) = Format(endDate +1 , "dd.mm.yyyy"

---

voici le résultat que j'ai pour les premiere ligne ( la fin des mois de toute l'année 1992) :

01.02.1992
01.03.1992
30.03.1992
30.04.1992
30.05.1992
30.06.1992
30.07.1992
30.08.1992
30.09.1992
30.10.1992
30.11.1992
30.12.1992

Salut à tous,
@Info0009, voici excatement ce que Menhir veut dire que je traduis à travers ce exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ajouter() Dim EndDate As Date For i = 1 To 5 EndDate = Cells(i, 1).Value 'principe : ajouter un jour,pour aller au 1er jour du mois m+1 'ajoute ensuite 1 mois pour aller au premier jour du mois m+2 'Et retrancher 1 jour pour venir au dernier jour du mois m+1 EndDate = DateAdd("d", 1, EndDate) EndDate = DateAdd("m", 1, EndDate) EndDate = DateAdd("d", -1, EndDate) Cells(i, 2).Value = EndDate Next End Sub

---

@ Menhir, est ce qu'il y a des références à activer pour pouvoir utiliser EoMonth? c'est plus simple et ça fait gagner quelques lignes de code.

Citation:

---

Envoyé par kkm90

Salut à tous,
@Info0009, voici excatement ce que Menhir veut dire que je traduis à travers ce exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ajouter() Dim EndDate As Date For i = 1 To 5 EndDate = Cells(i, 1).Value 'principe : ajouter un jour,pour aller au 1er jour du mois m+1 'ajoute ensuite 1 mois pour aller au premier jour du mois m+2 'Et retrancher 1 jour pour venir au dernier jour du mois m+1 EndDate = DateAdd("d", 1, EndDate) EndDate = DateAdd("m", 1, EndDate) EndDate = DateAdd("d", -1, EndDate) Cells(i, 2).Value = EndDate Next End Sub

---

@ Menhir, est ce qu'il y a des références à activer pour pouvoir utiliser EoMonth? c'est plus simple et ça fait gagner quelques lignes de code.

---

Merci, j'ai pu le faire après tes explications.

Citation:

---

Envoyé par info009

Pour Eomonth, il faut installer des des modules complémentaires ( vu que la fonction n'est pas reconnu dans la version que j'ai),

---

Si tu avais pris la peine de signaler la version dans ton titre, on aurait pu le savoir.:roll:

Citation:

---

pour l'utilisation de

voici le résultat que j'ai pour les premiere ligne ( la fin des mois de toute l'année 1992) :

---

Ma réponse était en deux partie. C'est sûr que si tu n'en fait que la moitié, ça ne peut pas marcher.
Le principe est d'atteindre la date de début de mois (ce qui est plus facile vu que c'est toujours le 1) et de reculer d'un jour.

Citation:

---

Envoyé par kkm90

@ Menhir, est ce qu'il y a des références à activer pour pouvoir utiliser EoMonth?

---

Dans mon 2007, il y a une fonction "FIN.MOIS()".
Son équivalent anglais, EoMonth" fait partie de la liste des fonctions Excel utilisables en VBA (je suppose qu'elle se trouve dans la bibliothèque Microsoft Excel Object Library).