VBA - Variables tableau

Bonjour,

j'ai une requête msquery qui renvoi des données dont une date au format aaammjj, je voudrai, via une variable tableau que cette date soit décomposée comme ceci, colonne C année, colonne D mois, colonne E jour.

Je galère depuis un moment sur cette fonction.

Merci de votre aide

Bonjour

Si j'ai compris

Formule en C2

=GAUCHE(B2;4)*1

Formule en D2

=STXT(B2;5;2)*1

Formule en E2

=DROITE(B2;2)*1

Le *1 c'est pour transformer la chaîne de caractère en nombre

Bonjour

Une version en adaptant ta macro

Option Explicit

Sub Avec_Variables_Tableau()
Dim MonTableau As Variant
Dim Cmpt1 As Long

  MonTableau = Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
  ReDim Preserve MonTableau(1 To UBound(MonTableau), 1 To 4)

  For Cmpt1 = LBound(MonTableau, 1) To UBound(MonTableau, 1)
    MonTableau(Cmpt1, 2) = Left(MonTableau(Cmpt1, 1), 4) * 1
    MonTableau(Cmpt1, 3) = Mid(MonTableau(Cmpt1, 1), 5, 2) * 1
    MonTableau(Cmpt1, 4) = Right(MonTableau(Cmpt1, 1), 2) * 1
  Next Cmpt1
  Range("B2").Resize(UBound(MonTableau), UBound(MonTableau, 2)) = MonTableau
End Sub

Super, merci

Par contre la colonne B est recopiée dans la C, comment n'avoir que les colonnes "Année", "Mois","Jour" ?

Bonsoir

Alex2 a écrit :

Par contre la colonne B est recopiée dans la C

?????

Banzai64 a écrit :

Bonsoir

Alex2 a écrit :

Par contre la colonne B est recopiée dans la C

?????

Ca y est j'ai compris

Merci encore