Fractionner Cellule en ligne

Bonjour,

Je souhaiterai fractionner une cellule et le contenu des données qui suit en plusieurs ligne.

Exemple

Ce que j'ai aujourd'hui :

Ce que je souhaite :

Avez-vous une technique pour effectuer cela sur des centaines de lignes ?

Merci et bonne journée à tous :)

Bonjour,

Confirmez vous votre version Excel ? ou en avez vous une plus récente ?

bonjour,

une solution via une macro

Sub aargh()
    Set ws = Sheets.Add
    With Sheets("feuil6")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 4 To dl
            t = Split(.Cells(i, 1).Value, Chr(10))
            For j = LBound(t) To UBound(t)
                lig = lig + 1
                .Cells(i, 1).Resize(1, 9).Copy ws.Cells(lig, 1).Resize(1, 9)
                ws.Cells(lig, 1) = t(j)
            Next j
        Next i
    End With
End Sub

@Valentin85 je suis passé sur excel 2016.
Le profil est à jour :)

Re,

Dans ce cas, une solution via power query ;)

@h2so4 Merci de ton retour, mais la macro ne m'ouvre qu'une nouvelle feuille sans aucune données ...

@valentin85 Top c'est ce que je recherche.
Peux-tu m'en dire plus sur la méthode à utiliser dans Power Query ?

Re,

Pour voir les requêtes que j'ai utilisés, il suffit de faire : onglet "données" => "Requêtes et connexion" Les requêtes d'afficheront à droite. Double clicker dessus pour voir les étapes.

Pour mettre à jour le tableau, il vous suffit de coller vos nouvelles données à la suite du tableau source et de faire : onglet "données" => " Actualiser tout"

Bonjour à tous,

@Valentin85 : Ne surtout pas oublier les "options avancées" :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(Source, {{"A", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "A")
in
    #"Fractionner la colonne par délimiteur"

L'option "Lignes" vous évite des étapes ultérieures inutiles.

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(Source, {{"A", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "A")
in
    #"Fractionner la colonne par délimiteur"

L-lolo-O a écrit :

@h2so4 Merci de ton retour, mais la macro ne m'ouvre qu'une nouvelle feuille sans aucune données ...

la macro dans ton fichier exemple, si tu en as encore besoin...

Bonjour JFL

@Valentin85 : Ne surtout pas oublier les "options avancées" :

Décidément je ne suis pas prêts de commencer à vieillir ! Bien vue JFL.

Valentin85 a écrit :

Décidément je ne suis pas prêts de commencer à vieillir !

"Le monde est vaste et on a qu'une vie" (Selon Fabienne Sintes.....)

un grand merci à tout les 3 !

2 solutions à ma question c'est parfait !
Sujet résolu