valeur d'une colonne dans une case

PETIT YANNICK · 29 Avril 2019

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 · 29 Avril 2019

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.

job75 · 29 Avril 2019

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 · 29 Avril 2019

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.

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

valeur d'une colonne dans une case

PETIT YANNICK

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

PETIT YANNICK

XLDnaute Occasionnel

Discussions similaires