Discussion :

[alicemv]

Bonjour à tous,
J'ai un tableau excel avec 5 colonnes. (exp_depart.xlsx)
Dans la colonne "PHOTO" j'ai des immatriculations séparés par un ";"

J'ai besoin de générer autant de lignes que d'immatriculations en recopiant les champs de la ligne d'origine dans chaque ligne générée et avec une seule immatriculation (exp_reultats.xlsx)
Est-ce que quelqu'un pourrait m'aider pour la formule ?
Merci d'avance
Alice

exp_gener_lignes.xlsx

[Franc]

Bonsoir, n'étant pas un grand connaisseur des formules, voici une solution vba:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub SplitNoms()
    Dim depart As Worksheet
    Dim resultat As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim noms() As String
 
    Set depart = ThisWorkbook.Sheets("exp_depart")
    Set resultat = ThisWorkbook.Sheets("exp_resultats")
 
    lastRow = depart.Cells(Rows.Count, 1).End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    For i = 2 To lastRow
        noms = Split(depart.Cells(i, 5).Value, " ; ")
        For j = LBound(noms) To UBound(noms)
            resultat.Cells(resultat.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, 4).Value = depart.Cells(i, 1).Resize(1, 4).Value
            resultat.Cells(resultat.Cells(Rows.Count, 1).End(xlUp).Row, 5).Value = noms(j)
        Next j
    Next i
End Sub

[78chris]

Bonjour
En quelques clics via PowerQuery

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"REF", type text}, {"COM", type text}, {"COPY", type text}, {"TICO", type text}, {"PHOTO", type text}}),
    #"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(#"Type modifié", {{"PHOTO", Splitter.SplitTextByDelimiter("; ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "PHOTO"),
    #"Lignes triées" = Table.Sort(#"Fractionner la colonne par délimiteur",{{"REF", Order.Ascending}})
in
    #"Lignes triées"

[alicemv]

Merci beaucoup à vous deux, ça fonctionne impec! :-)