Fragmenter et concatener des données

Bonjour à tous,

J'aimerais qu'on m'aide à concevoir deux macros pour fragmenter et concatener des données. Je joins à ma requête le fichier "Concatener.xlsm".

La première macro devra fragmenter les données (nombre variable) contenues dans les cellules D2 et D3 et les copier dans les colonnes S et T (voir résultat : Feuil2).

La deuxième macro devra exécuter le processus inverse soit concatener tous les données (Feuil3) en S2:S... et T2:T...(nombre de lignes variable), séparer les données par une virgule et copier le résultat dans les cellules D6 et D7 (voir résultat : Feuil4).

Merci à l'avance pour votre précieuse collaboration.

Salutations,

Renaud D.

Bonjour,

Function ConcatPlage(plage As Range) As String
    ConcatPlage = Join(Application.Transpose(plage), ",")
End Function

Sub explose()
    Dim tmp, i As Long
    For i = 0 To 1
        tmp = Split([D2].Offset(i), ",")
        [S2].Offset(, i).Resize(UBound(tmp) + 1) = Application.Transpose(tmp)
    Next i
End Sub

J'ai mis la 2nde en Sub. En Function elle aurait été peut-être un peu ch... à l'utilisation du fait du nombre de lignes variables. Mais on peut si tu y tiens

eric

Bonsoir eriiic,

Votre fonction et votre macro fonctionnent très bien.

Merci beaucoup pour votre aide.

Sincères salutations,

Renaud D.