en vba répartir dates et chiffres contenus ds une cellule vers différentes celluless

[alol.ita]

Bonjour,
J'ai dans une seule cellule A1 des dates suivies de 6 chiffres sur plusieurs lignes (dans cette même cellule)
J'aimerais en vba copier ces dates et chiffres pour les répartir sur des cellules différentes en ligne
sur B2 j'aurais la date, en C2 le premier chiffre, en D2 le second chiffre etc...
Merci pour votre aide
Je joins un fichier avec en feuill1 la cellule A1 avevc les données et en feuil2 la répartition que j'aimerais obtenir

 

[bqtr]

Re : en vba répartir dates et chiffres contenus ds une cellule vers différentes cellu

Bonsoir alol.ita,

Un exemple :

Sub ExploseCel()
Dim Tablo, k As Integer, y As Integer, m As Integer, p As Integer
Tablo = Split(Range("A1"))
p = 2
For k = 0 To UBound(Tablo)
  Tablo(k) = Replace(Tablo(k), Chr(13), "")
  Tablo(k) = Replace(Tablo(k), Chr(10), "")
Next
   
With Sheets("Feuil2")
  For y = 0 To UBound(Tablo)
    If IsDate(Tablo(y)) Then
       p = p + 2
       m = 3
       .Cells(p, m) = CDate(Tablo(y))
    Else
       .Cells(p, m) = Tablo(y)
    End If
    m = m + 1
  Next
End With
End Sub

A+

 

[alol.ita]

Re : en vba répartir dates et chiffres contenus ds une cellule vers différentes cellu

Merci beaucoup bqtr...c'est exactement ce que je voulais!
J'aurais eu du mal à trouver ce code!