Transposer des dates depuis une variable tableau

Exemple :
dateTranspose

Sub dateFormat()

'reset l'affichage
Columns("E:Z").ClearContents

'variable aa dans laquelle on enregistre les valeurs du tableau
Dim aa As Variant
aa = Range("A1").CurrentRegion

'transposition des valeurs de la variable sur la feuille Excel à partir de la
'cellule E1 - les 12 premières dates sont inversées par rapport aux valeurs
'initiales de la colonne A
[E1].Resize(UBound(aa), UBound(aa, 2)) = Application.Transpose(Application.Transpose(aa))

'boucle affichant correctement les dates contenues dans la variable aa
'sans passer par la commande de transposition : le problème de changement
'de date est dû à la commande de transposition (Application.Transpose) et non à 
'l'enregistrement des valeurs dans la variable aa
For i = LBound(aa) To UBound(aa)
   Cells(i, 9) = aa(i, 1)
Next i

'changement du type de Date à Long (CLng) - la valeur date devient un numéro de
'série - il suffira juste de reformater correctement la colonne de date pour que
'la transposition soit correcte
For i = LBound(aa) To UBound(aa)
   aa(i, 1) = CLng(aa(i, 1))
Next i
[K1].Resize(UBound(aa), UBound(aa, 2)) = Application.Transpose(Application.Transpose(aa))

End Sub

Fichier d’exemple au formar xls :
 dateTranspose

Votre commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l’aide de votre compte WordPress.com. Déconnexion /  Changer )

Photo Google

Vous commentez à l’aide de votre compte Google. Déconnexion /  Changer )

Image Twitter

Vous commentez à l’aide de votre compte Twitter. Déconnexion /  Changer )

Photo Facebook

Vous commentez à l’aide de votre compte Facebook. Déconnexion /  Changer )

Connexion à %s