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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Septembre 2023

• #2

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

 

Dernière édition: 6 Septembre 2023

Vote positif 0 Vote négatif

R

Richard30

XLDnaute Nouveau

• 6 Septembre 2023

• #3

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))

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2023

• #4

Bonsoir à tous,

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

VB:

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+

 

Pièces jointes

• Classeur(1).xlsm

  14.9 KB · Affichages: 2

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Septembre 2023

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Septembre 2023

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

B

Bichette001

XLDnaute Junior

• 22 Septembre 2023

• #7

merci pour toutes vos réponses bonne journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2023

• #8

Bonjour le fil

[juste en passant itou]

patricktoulon à dit:

à valider en matriciel en dessous 2019 ou 365

Cliquez pour agrandir...

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

[/juste en passant itou]

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Septembre 2023

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2023

• #10

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))

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Septembre 2023

• #11

re

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2023

• #12

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Septembre 2023

• #13

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

 

Vote positif 0 Vote négatif