XL 2016 Erreur execution macro VBA

[saimone]

Bonjour,
Je dispose d'un csv comprennant une cellule avec un grand nombre d'information.

Je souhaite:

1-Convertir cette cellule
2-la mettre en forme.

Lorsque je le fais directement avec les fonction Excel, tout fonctionne parfaitement

Lorsque j'enregistre une macro et que je souhaite l'éxécuter, j'ai un message d'erreur: ''Trop de caractères de continuité de ligne".

Auriez vous une idée pour contourner cette erreur?

En PJ je vous ai mis une illustration de l'erreur.
Feuille1: les données
Feuille2: résultat de la conversion
Feuille3: la mise en forme
Feuille4: le résultat de la macro.

D'avance merci

 

[job75]

Bonjour saimone,

Laissez tomber votre Macro7 et utilisez :

Sub Convertir()
With Sheets("2-convertir")
    .Rows(1).ClearContents
    .Cells(1) = Trim(Sheets("1-données").Cells(1))
    .Cells(1).TextToColumns .Cells(1), xlDelimited, Space:=True
End With
End Sub

A+

 

[job75]

Si dans la foulée on veut transposer :

Sub Convertir_Transposer()
With Sheets("2-convertir")
    .Rows(1).ClearContents 'RAZ
    .Cells(1) = Trim(Sheets("1-données").Cells(1))
    .Cells(1).TextToColumns .Cells(1), xlDelimited, Space:=True
    Sheets("3-mis en forme").Columns(1).ClearContents 'RAZ
    With .UsedRange.Rows(1)
        Sheets("3-mis en forme").Cells(1).Resize(.Columns.Count) = Application.Transpose(.Value)
    End With
End With
End Sub