valeur d'une colonne dans une case

[PETIT YANNICK]

Bonjour,

Je cherche a mettre les valeurs d'une colonnes regroupé dans une case.
J'ai fait une concatenation cela fonctionne par contre c'est long a taper ? J'ai plusde 5000
est t'il possible de concaténer une colonne complétè
Dans mon exemple la colonne C sont les variables et dans la case E1 le résultat

merci d'avance pour vos retours

Yannick

 

[Hasco]

Bonjour,

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

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.

 

[job75]

Bonjour PETIT YANNICK, Roblochon,

Conserver dans la feuille uniquement les valeurs de la colonne A.

Entrer en B1 la formule =A1&REPT(";"&A2;(A2<>""))&REPT(";"&A3;(A3<>""))

Copier B1, touche F5 pour sélectionner la plage voulue en colonne B et coller.

A+

 

[PETIT YANNICK]

Bonjour,

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

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.

Merci pour votre script, il fonctionne parfaitement. Ca m'enlève une bonne épine du pied