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...
Partager