Conversion plusieurs lignes dans une cellule en plusieurs cellules

Marsh Posté le 19-12-2019 à 00:31:53

:hello: à tous,

Je sollicite votre aide à tous car je souhaiterais me servir d'une macro Excel d'exporter plusieurs lignes d'une même cellule dans des cellules différentes.

Un petit schéma simple de ce que je souhaiterais obtenir:

Passer de la cellule D5 aux colonnes E5 F5 et G5.

Merci pour votre aide

---------------
Ancien feedback http://forum.hardware.fr/hfr/Achat [...] 6098_1.htm

Reply

Marsh Posté le 19-12-2019 à 00:31:53

Reply

Marsh Posté le 21-12-2019 à 09:05:00

Bonjour,

Essaies comme ça :
Option Explicit

Code :

Sub Test()
Dim source As Range
Dim cible As Range
Dim table As Variant
Set source = Worksheets("Feuil1" ).Range("D5" )
Set cible = Worksheets("Feuil1" ).Range("E5" )
table = Split(source.Value, vbLf)
cible.Resize(1, UBound(table) + 1).Value = table
End Sub

Tu peux aussi faire la même chose sans macro
1) copier la source (D5) vers la cible (E5)
2) Données / Convertir / Délimité / Suivant / Décocher tous les séparateurs et cocher Autre avec pour valeur Alt+0010 / Terminer

Message cité 1 fois

---------------
Cordialement, Patrice

Reply

Marsh Posté le 21-12-2019 à 12:07:52

patrice33740 a écrit :

Bonjour,

Essaies comme ça :
Option Explicit

Code :

Sub Test()
Dim source As Range
Dim cible As Range
Dim table As Variant
Set source = Worksheets("Feuil1" ).Range("D5" )
Set cible = Worksheets("Feuil1" ).Range("E5" )
table = Split(source.Value, vbLf)
cible.Resize(1, UBound(table) + 1).Value = table
End Sub

Tu peux aussi faire la même chose sans macro
1) copier la source (D5) vers la cible (E5)
2) Données / Convertir / Délimité / Suivant / Décocher tous les séparateurs et cocher Autre avec pour valeur Alt+0010 / Terminer

Merci beaucoup pour ton aide et d'avoir pris le temps de me donner la solution
C'est parfait !

Message édité par ap75 le 21-12-2019 à 12:08:14

---------------
Ancien feedback http://forum.hardware.fr/hfr/Achat [...] 6098_1.htm

Reply

Conversion plusieurs lignes dans une cellule en plusieurs cellules

Sujets relatifs:

Leave a Replay