Plusieurs lignes de texte dans une cellule

Le
Pascal
Bonsoir,

J'ai un petit problème pour quelques 10000 lignes dans une colonne excel
à transformer.

Je m'explique :



Cellule A1 =

Le texte que voici
saisi sur plusieurs
lignes dans cette cellule



Comment le faire devenir ainsi :

A1 = Le texte que voici

A2 = saisi sur plusieurs

A3 = lignes dans cette cellule


Merci d'avance de votre aide

Pascal
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5230431
Bonsoir,

a = Split([A1], Chr(10))
Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)

JB

On 13 mar, 19:00, Pascal
Bonsoir,

J'ai un petit problème pour quelques 10000 lignes dans une colonne excel
à transformer.

Je m'explique :

------------------------------

Cellule A1 =

Le texte que voici
saisi sur plusieurs
lignes dans cette cellule

------------------------------

Comment le faire devenir ainsi :

A1 = Le texte que voici

A2 = saisi sur plusieurs

A3 = lignes dans cette cellule

Merci d'avance de votre aide

Pascal


JB
Le #5230421
Pour plusieurs lignes:

ligne = 1
For Each c In Range("A1", [A65000].End(xlUp))
a = Split(c, Chr(10))
Cells(ligne, 2).Resize(UBound(a) + 1) = Application.Transpose(a)
ligne = ligne + UBound(a) + 1
Next c

JB


On 13 mar, 19:06, JB
Bonsoir,

  a = Split([A1], Chr(10))
  Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)

JB

On 13 mar, 19:00, Pascal


Bonsoir,

J'ai un petit problème pour quelques 10000 lignes dans une colonne exc el
à transformer.

Je m'explique :

------------------------------

Cellule A1 =

Le texte que voici
saisi sur plusieurs
lignes dans cette cellule

------------------------------

Comment le faire devenir ainsi :

A1 = Le texte que voici

A2 = saisi sur plusieurs

A3 = lignes dans cette cellule

Merci d'avance de votre aide

Pascal- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Pascal
Le #5230401
Une seule chose à dire !

M.E.R.C.I.

Cordialement,
Pascal
========================
Pour plusieurs lignes:

ligne = 1
For Each c In Range("A1", [A65000].End(xlUp))
a = Split(c, Chr(10))
Cells(ligne, 2).Resize(UBound(a) + 1) = Application.Transpose(a)
ligne = ligne + UBound(a) + 1
Next c

JB


On 13 mar, 19:06, JB
Bonsoir,

a = Split([A1], Chr(10))
Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)

JB

On 13 mar, 19:00, Pascal


Bonsoir,
J'ai un petit problème pour quelques 10000 lignes dans une colonne excel
à transformer.
Je m'explique :
------------------------------
Cellule A1 >>> Le texte que voici
saisi sur plusieurs
lignes dans cette cellule
------------------------------
Comment le faire devenir ainsi :
A1 = Le texte que voici
A2 = saisi sur plusieurs
A3 = lignes dans cette cellule
Merci d'avance de votre aide
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -







Publicité
Poster une réponse
Anonyme