a = Split([A1], Chr(10)) Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal wrote:
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
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 wrote:
Bonsoir,
a = Split([A1], Chr(10)) Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal wrote:
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 -
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 <boisgont...@hotmail.com> wrote:
Bonsoir,
a = Split([A1], Chr(10))
Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal <pascal...@free.fr> wrote:
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 -
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 wrote:
Bonsoir,
a = Split([A1], Chr(10)) Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal wrote:
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
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 wrote:
Bonsoir,
a = Split([A1], Chr(10)) Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal wrote:
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 -
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 <boisgont...@hotmail.com> wrote:
Bonsoir,
a = Split([A1], Chr(10))
Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal <pascal...@free.fr> wrote:
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 -
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 wrote:
Bonsoir,
a = Split([A1], Chr(10)) Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
JB
On 13 mar, 19:00, Pascal wrote:
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 -