Bonjour,

Je consulte ce site depuis plusieurs mois et j'y trouve généralement des solutions, mais la je bloque (depuis 3 jours).
Voici donc mon 1er message...

Ce petit code m'affiche le bon format de date jusqu'au 30/09/2015. Ensuite, ça devient 10/01/2015, 10/02/2015... 10/12/2015 et à partir du 13, le format redevient correct.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim tabl()
 
ReDim tabl(1 To 21)
I = 1
 
For dat = CDate("25/09/2015") To CDate("15/10/2015")
    tabl(I) = (dat)
    I = I + 1
Next
 
Range("A1").Resize(UBound(tabl)) = Application.Transpose(tabl)
 
End Sub



Merci d'avance pour vos réponses...