XL 2016 split d'une colonne en 2 colonnes

[stephanie94]

bonjour,
j'ai un tableau avec dans une colonne des données de date et de journal , si vous aviez une formule ou une macro qui me permette de spliter les données dates et journal dans 2 colonnes
je vous joint le fichier
merci d'avance

 

[Staple1600]

Bonsoir le fil,

=>stephanie94
Pour les citations
=GAUCHE(C2;CHERCHE(".";C2)-1)
Pour les "dates"
=STXT(C2;CHERCHE(".";C2)+2;12)

NB: fonctionne sur l'échantillon de données
Mais sans doute des effets de bord avec le vrai fichier.

 

[JM27]

bonsoir
en utilisant données / convertir
ca peut peut être le faire( pas sur)

 

[Staple1600]

Bonsoir JM27

C'était mon premier choix
Mais comme j'ai voulu respecter l'ordre des colonnes
dates en premier , les "citations" en second
Je suis parti sur une option: formules.

 

[JM27]

bonsoir Stapple
J'ai bien vu que l'ordre des colonnes était inversé , mais j'ai pensé que cela n'était pas grave
il suffit après coup de les inverser manuellement

 

[Staple1600]

Re

Le souci avec données/Convertir, c'est si il y a N points dans le string.

Il faudra faire le ménage ensuite.

 

[JM27]

Oui , il faut supprimer les colonnes inutiles pour les données ou il y a plusieurs points

 

[Staple1600]

Re

Donc ceci fonctionne sur le fichier exemple

Sub SplitDatas()
Dim vArr
vArr = Array(Array(1, 1), Array(2, 1))
Columns(3).TextToColumns Destination:=Range("C1"), _
            DataType:=xlDelimited, _
            Other:=True, OtherChar:=".", _
            FieldInfo:=vArr
Columns(5).Resize(, Columns.Count - 4).Delete Shift:=xlToLeft
End Sub

Mais je crains que dans la vraie vie, il y ait une nouille dans le potage
(enfin avec le vrai fichier voulais-je dire )