Discussion :

[info009]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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.

[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), 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

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

[Michael Guilloux]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[info009]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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.

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.

@ 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).