XL 2016 CSV en vrac, reconstitution

[rapsch]

Hello,
Nous avons récupéré un Excel ne CSV avec les données affichés ainsi

Titre A	Titre B
Je soutiens
Excel	Downloads
Je soutiens
Excel
Downloads

Voilà !!
L'idée est de reconstituer dans deux cellules la phrase Je soutiens Excel Downloads l'une sous l'autre.
Merci pour votre aide.

 

[Cousinhub]

Bonjour,
Un peu plus de précisions, stp...
En gros, dès qu'il y a une valeur en colonne B, la mettre sous la cellule de la colonne A de la même ligne?
Uniquement 2 colonnes, ou plus?

 

[Orson83]

Bonjour rapsh, bhbh, le forum,
Dans un premier temps, ne serait-il pas possible que ton fichier csv ou txt soit formaté avec des tabulations ?
Voir l'exemple en PJ (fichier en .txt à ouvrir avec Excel ou à renommer en .csv).

 

[dysorthographie]

Bonjour,
j'imagine que ton CSV provient à l'origine d'une source contenant des retour ligne dans les cellule!
vue que personne chez Microsoft n'a pensé faire le distinguo entre Retour chariot VbCr et retour à la ligne VbCrLf Qui n'est autre qu'un Retour Chariot VbCr + un fin de ligne VbLf!

dans ce cas tu es obligé de traiter ton CSV par Macro!

Sub ImporCsv()
Const Separateur = ";"
dim Fichier as string:Fichier =Environ("Temp") & "\test.csv"
PressePapier = Replace(Replace(Replace(Replace(LireTxt(Fichier ), vbCrLf, "®"), vbCr, "©"), "®", vbCrLf), Separateur, vbTab)
Sheets("Feuil1").Range("A1").PasteSpecial xlAll
Sheets("Feuil1").Cells.Replace What:="©", Replacement:=Chr(10), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Public Function LireTxt(Fichier As String) As String
With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(Fichier)
        LireTxt = .ReadAll
        .Close
    End With
End With
End Function

Public Sub ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With

End Sub
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
 
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

 

[Cousinhub]

Bonsoir,

dans ce cas tu es obligé de traiter ton CSV par Macro!

Au delà d'une attente de réponse de la part du demandeur à mes questions, je te trouve bien "affirmatif"...
On ne connaît pas la structure de son fichier CSV...
Le VBA n'est plus "THE Solution" (n'en déplaisent à certains...)
Il existe maintenant d'autres alternatives.
Wait...

 

[patricktoulon]

bonsoir
un exemple un peu plus complet du csv serait le bien venu
en l’état il serait facile de te donner un code ou une méthode powerquery
mais il faudrait savoir si c'est comme ça dans tout le csv

 

[dysorthographie]

Oui c'est vrai obligé est un mot malheur !

Comme je n'es pas accès à Power Query je n'y pense pas !