Séparer 2 lignes d'une même cellule en deux

[pat01200]

Bonjour le forum,

Finies les vacances et déjà les premières difficultés : je voudrais savoir s'il est possible avec Excel de séparer le contenu d'une cellule dont le texte est sur 2 lignes en deux cellules qui contiendraient l'une le texte de la première ligne de la cellule inititiale et l'autre la 2e ligne ?

Si quelqu'un a un truc...

Bonne rentrée à tous!

 

[Pierrot93]

Re : Séparer 2 lignes d'une même cellule en deux

Bonjour pat

en attendant les formulistes, regarde le code ci-dessous, ta valeur en A1 renvoyée vers les cellules de la colonne B :

Sub test()
Dim s As Variant, i As Byte
s = Split(Range("A1"), vbLf)
For i = 0 To UBound(s)
    Cells(i + 1, 2).Value = s(i)
Next i
End Sub

bon après midi
@+

 

[mth]

Re : Séparer 2 lignes d'une même cellule en deux

Bonjour,

A priori le passage à la ligne est signalé dans la cellule par un code caractère spécifique (que tu peux voir avec les fonctions CAR() CODE())
J'imagine qu'il s'agit de CAR(10) ???

A partir de là, dans une cellule tu mets ce qui est à gauche de CAR(10), et le reste dans une autre cellule.
Bref, regarde de ton coté avec ces fonctions, si non joins quelques lignes dans un fichier sur le forum pour que l'on puisse t'aider concrètement.

Bien à toi,

Edit:
ARF 🙂 🙂 Hello Pierrot 🙂 trop rapide !!! 🙂 🙂 🙂
@ +

mth

Edit2: Bonjour tbft
et bonjour Job75 🙂 contente de te croiser 🙂
M

 

[job75]

Re : Séparer 2 lignes d'une même cellule en deux

Bonjour pat01200, salut Pierrot, Mireille,

Si le texte à étudier est en A1, entrer ces formules en B1 et C1 :

=GAUCHE(A1;TROUVE(CAR(10);A1)-1)

=DROITE(A1;NBCAR(A1)-TROUVE(CAR(10);A1))

A+

 

[pat01200]

Re : Séparer 2 lignes d'une même cellule en deux

Merci Pierrot pour ce début de piste, la macro fonctionne mais...
le résultat s'affiche en A1 et B1 où j'ai une autre cellule à diviser en deux. En fait j'en ai des centaines comme ça. Quelle modification faut-il apporter au script pour que la 1ère ligne de ma cellule A1 se retrouve par exemple en B5 et la 2e en B6 ?

 

[tbft]

Re : Séparer 2 lignes d'une même cellule en deux

Bonjour tout le monde

Sub test()
Dim s As Variant, i As Byte
s = Split(Range("A1"), vbLf)
For i = 0 To UBound(s)
    Cells(i + 5, 2).Value = s(i)
Next i
End Sub

en remplaçant le +1 par +5 on décale la ligne 5 et 6

 

[job75]

Re : Séparer 2 lignes d'une même cellule en deux

Re,

Les formules n'ont pas l'air de vous intéresser - VBA c'est si beau 🙂 - mais je continue quand même.

Si le caractère de code 10 peut ne pas exister, utiliser ces formules plus générales :

=SI(ESTNUM(TROUVE(CAR(10);A1));GAUCHE(A1;TROUVE(CAR(10);A1)-1);A1)

=DROITE(A1;SI(ESTNUM(TROUVE(CAR(10);A1));NBCAR(A1)-TROUVE(CAR(10);A1)))

Edit : salut tbft

A+

 

[tbft]

Re : Séparer 2 lignes d'une même cellule en deux

Re Bonjour

on peut aussi transformer la macro en fonction

Option Base 1

Public Function decoupe(entree As String)
Dim s As Variant, i As Integer, nb As Integer
Dim res() As String
s = Split(entree, vbLf)
nb = UBound(s) + 1
ReDim res(nb, 1)
For i = 1 To nb
  res(i, 1) = s(i - 1)
Next i
decoupe = res
End Function

Attention fonction matriciel... désolé

 

[pat01200]

Re : Séparer 2 lignes d'une même cellule en deux

Après plusieurs essais, j'ai gardé les formules de job75 qui m'ont donné toute satisfaction, mais je garde en réserve les macros qui me serviront sûrement dans un autre contexte...

MERCI A TOUS !!!