Comment générer plusieurs enr. à partir de renvoie de lign

Bonjour,

Je dois modifier en masse des information et une des premières étapes est de pouvoir générer autant d'enregistrement à partir d'une cellule contenant plusieurs renvoies de ligne.

merci par avance de votre aide.

Bonsoir le forum, JPI30

Tes données à partir de A1 avec une ligne d'en-têtes.

Sub test()
Dim a, b(), i As Long, n As Long, e
    With Sheets("Feuil1").Range("a1").CurrentRegion
        a = .Value
        'attention à la 1ère dimension
        ReDim b(1 To 100, 1 To UBound(a, 2))
        For i = 1 To UBound(a, 1)
            For Each e In Split(a(i, 3), Chr(10))
                If Trim(e) <> "" Then
                    n = n + 1
                    b(n, 1) = a(i, 1)
                    b(n, 2) = a(i, 2)
                    b(n, 3) = Trim(e)
                End If
            Next
        Next
        With .Offset(, .Columns.Count + 1)
            .CurrentRegion.ClearContents
            .Resize(n, UBound(a, 2)).Value = b
        End With
    End With
End Sub

klin89

Merci beaucoup dés demain je teste