Afficher données variable tableau

Bonjour,

j'ai une feuille excel dans laquelle j'ai en colonne B une date au format aaaammjj, via une variable tableau a 4 colonnes j'obtiens dans la colonne 1 : la date au format aaaammjj (20120614), dans la colonne 2 : l'année (2012), dans la colonne 3 : le mois (6), dans la colonne 4, le jour (14), jusque là tout va bien.

Maintenant je voudrai que

• dans la colonne G, il y ai l'année (2012)
• dans la colonne H, il y ai le mois (6)
• dans la colonne I, il y ai le jour (14)

Mon soucis vient du fait que je n'arrive pas à ressortir ces données de la variable tableau.

Merci de votre aide

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
 End Sub

Bonjour

1 solution (mais pas la seule possible)

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

  NbLg = Range("B" & Rows.Count).End(xlUp).Row
  ReDim MonTableau(1 To NbLg - 1, 1 To 3)
  For Cmpt1 = 2 To NbLg
    MonTableau(Cmpt1 - 1, 1) = Left(Range("B" & Cmpt1), 4) * 1
    MonTableau(Cmpt1 - 1, 2) = Mid(Range("B" & Cmpt1), 5, 2) * 1
    MonTableau(Cmpt1 - 1, 3) = Right(Range("B" & Cmpt1), 2) * 1
  Next Cmpt1
  Range("G2").Resize(UBound(MonTableau), UBound(MonTableau, 2)) = MonTableau
End Sub