valeur d'une colonne dans une case

Roblochon à dit:

Bonjour,

Avec une petite fonction personnalisée.
Application dans fichier joint.

VB:

Function SuperConcatener(Plage As Range) As Variant
    Dim valeurs As Variant
    '
    ' Vérification de la plage
    If Plage.Rows.Count >= Plage.Columns.Count Then
        valeurs = Application.Transpose(Plage.Columns(1).Value)
    Else
        valeurs = Plage.Rows(1).Value
    End If
    SuperConcatener = Join(valeurs, ";")
End Function

A bientôt

Edit: à utiliser avec modération et parcimonie.

Cliquez pour agrandir...