XL 2016 split d'une colonne en 2 colonnes

Staple1600

XLDnaute Barbatruc

• 10 Février 2021

• #2

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.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 10 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Février 2021

• #4

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.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 10 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Février 2021

• #6

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.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 10 Février 2021

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Février 2021

• #8

Re

Donc ceci fonctionne sur le fichier exemple

VB:

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 )

 

Vote positif 0 Vote négatif