Problème Fonction DateAdd

Bonjour,

Pour créer des listes incrémentant des dates "jj/mm/aa hh:mm" suivant le pas de temps désiré, j'ai utilisé le code ci après.
Mais à l'exécution d'un exemple (date début 01/01/2011, nombre de minutes : 15, date de fin 03/01/2011) un bug apparait :
tout va bien jusqu'au changement de jour : ca donne
01/01/2011 23:45
01/01/2011 00:00
02/01/2011 00:15

Je n'arrive pas à régler ce pb. Que faire ? Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim FirstDate As Date Dim NextDate As Date Dim EndDate As Date   Dim IntervalType As String Dim Number As Integer Dim Msg IntervalType = "n"   FirstDate = InputBox("Entrez une date de début") ActiveCell.Value = FirstDate   Number = InputBox("Entrez le nombre de minutes à ajouter") NextDate = DateAdd(IntervalType, Number, FirstDate)   EndDate = InputBox("Entrez une date de fin")   Do While NextDate <= EndDate ActiveCell.Offset(1, 0).Activate ActiveCell.Value = NextDate NextDate = DateAdd(IntervalType, Number, NextDate) Loop End Sub

---

Salut

Essai en utilisant Value2 plutôt que value

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub teste() Dim FirstDate As Date Dim NextDate As Date Dim EndDate As Date   Dim IntervalType As String Dim Number As Integer Dim Number10 As Double Dim TheCell As Range Dim Msg IntervalType = "n"   'On pointe la cellule sur laquelle on travail Set TheCell = ActiveCell   FirstDate = InputBox("Entrez une date de début") TheCell.Value2 = FirstDate   Number = InputBox("Entrez le nombre de minutes à ajouter")     NextDate = DateAdd(IntervalType, Number, FirstDate)   EndDate = InputBox("Entrez une date de fin")     Do While NextDate <= EndDate 'On pointe la cellule suivante Set TheCell = TheCell.Offset(1, 0) 'ActiveCell.Offset(1, 0).Activate TheCell.Value2 = NextDate NextDate = DateAdd(IntervalType, Number, NextDate) 'TheCell.NumberFormat = "[hh]:mm" Loop End Sub

---

++
Qwaz