Dupliquer des données sous forme de liste en rajout de ligne

Bonjour,

J ai un tablo avec des cellules qui contiennent une liste de données ...Je dois faire une rechercheV avec un autre tablo sur ces cellules afin d y rapatrier les données en relation av ces cellules Colonne D

Colonne a -> N0654768, N0654345, ...

Pour moi la solution est que ces listes de données se "recopient" sur les lignes du dessous ...mais je ne sais pas comment faire ..

Merci pour votre aide

Isa

Avec un extrait du fichier

Bonsoir isa6276, le forum

A tester :

Option Explicit

Sub test()
Dim a, b, i As Long, j As Long, x, n As Long
    With Range("a1").CurrentRegion
        a = .Value
        'attention à la 1ère dimension
        ReDim b(1 To UBound(a, 1) * 100, 1 To UBound(a, 2))
        For i = 1 To UBound(a, 1)
            x = Split(a(i, 1), ",")
            For j = 0 To UBound(x)
                n = n + 1
                b(n, 1) = x(j): b(n, 2) = a(i, 2)
                b(n, 3) = a(i, 3): b(n, 4) = a(i, 4)
                b(n, 5) = a(i, 5)
            Next
        Next
        With .Offset(, .Columns.Count + 1)
            .CurrentRegion.Cells.Clear
            .Resize(n).Value = b
        End With
    End With
End Sub

klin89

Bonjour ,

Je ne sis pas faire de programmation....Je voulais trouver une fonction ds Excel ...

Y a t il une possibilité ds ce sens ??

Merci

Isa