Microsoft 365 Copier des retours chariots d'une celulle dans des celulles séparément

[Bichette001]

bonjour !
dans une celulle j'ai ceci :

jhff
jfkjf
hjgkjhg

comment copier ce contenu sur 3 celulles les unes en dessous des autres svp ?
merci

 

[mapomme]

Bonsoir @Bichette001 ,
Avec Excel 365, utiliser la formule suivante : =FRACTIONNER.TEXTE(A1;;CAR(10))

 

[Richard30]

Bonjour
Dans la première cellule (E2 est la cellule qui contient votre texte d'origine)
en E5 : =GAUCHE(E2;CHERCHE(CAR(10);E2))
CAR(10) est le retour chariot.
Dans la cellule du dessous (E6) : =GAUCHE(DROITE(E2;NBCAR(E2)-CHERCHE(CAR(10);E2));CHERCHE(CAR(10);DROITE(E2;NBCAR(E2)-CHERCHE(CAR(10);E2))))
et la dernière des 3 (E7) : =DROITE(E2;NBCAR(E2)-NBCAR(E5)-NBCAR(E6))

 

[job75]

Bonsoir à tous,

Voyez le fichier joint et cette macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode <> 1 Then Exit Sub
Dim s
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = 0
s = Split(ActiveCell, vbLf)
If UBound(s) >= 0 Then ActiveCell.Resize(UBound(s) + 1) = Application.Transpose(s)
End Sub

Copiez C3 puis sélectionnez une cellule quelconque.

A+

 

[patricktoulon]

bonsoir
juste en passant pour ceux qui ne l'ont pas

Function Fractionner_Texte(ByVal v$, ByVal AsCchar&)
    If Application.Caller.Rows.Count > 1 Then
        Fractionner_Texte = Application.Transpose(Split(v, Chr(AsCchar)))
    Else
        Fractionner_Texte = Split(v, Chr(AsCchar))
    End If
End Function

à valider en matriciel en dessous 2019 ou 365

 

[patricktoulon]

re
juste pour eviter les "N/a
petit ajout au cas ou la formule aurait été étendue sur une plage de cellules plus grande que le nombre de ligne du texte

Function Fractionner_Texte(ByVal v$, ByVal AsCchar&)
    If Application.Caller.Rows.Count > 1 Then
        Fractionner_Texte = Application.Transpose(Split(v & String(Application.Caller.Rows.Count, Chr(AsCchar)), Chr(AsCchar)))
    Else
        Fractionner_Texte = Split(v & String(Application.Caller.Columns.Count, Chr(AsCchar)), Chr(AsCchar))
    End If
End Function

 

[Bichette001]

merci pour toutes vos réponses bonne journée

 

[Staple1600]

Bonjour le fil

[juste en passant itou]

à valider en matriciel en dessous 2019 ou 365

Les ceusses qui ont O365 auront la présence d'esprit de simplement faire comme @mapomme, non?
(cf message#2)

[/juste en passant itou]

 

[patricktoulon]

re
Bonjour @Staple1600
est ce que la fonction originale prévoit la transposition aussi ?

 

[Staple1600]

Re

@patricktoulon
A ton avis?
Tu crois que je me serai fendu d'un post un samedi matin au sortir de ma douche, les cheveux encore humides, si ce n'était pas le cas ?

De plus pas besoin de sélectionner le nombre de cellules idoines
O365 fait la propagation tout seul comme un grand

Et si tu veux de l'horizontal, c'est prévu aussi
=FRACTIONNER.TEXTE(A1;CAR(10))

 

[patricktoulon]

re

De plus pas besoin de sélectionner le nombre de cellules idoines

ben c'est exactement ce que fait ma fonction

bon ben 365 l'a c'est bien , moi 2013 je ne l'ai pas ,heu.. si maintenant

 

[Usine à gaz]

re

ben c'est exactement ce que fait ma fonction

bon ben 365 l'a c'est bien , moi 2013 je ne l'ai pas ,heu.. si maintenant

Bjr Patrick, le fil
@patrick : Tu aurais pour Excel 2021 ?

 

[patricktoulon]

bonjour lionel
il me semble que tu l' a la fonction sur 2021
et combien même si tu ne l'avais pas c'est la même(post#6) pour 2003 à 2021 /365