Regrouper données de x lignes dans une cellule avec séparation par ;

[Chot51]

Bonjour,

J'ai une colonne avec des valeurs de la ligne 2 à 50 (c'est un exemple), cela correspond à 49 références que je voudrais regrouper dans une seule cellule en les séparant d'un point-virgule.
Je sais faire l'inverse avec la fonction convertir mais pour mon cas je cale. Pouvez vous m'aider?

Merci

 

[kjin]

Re : Regrouper données de x lignes dans une cellule avec séparation par ;

Bonjour,

Sub d()
T = Application.Transpose(Range("A1:A50").Value)
Range("B1") = Join(T, ";")
End Sub

A+
kjin

 

[Chot51]

Re : Regrouper données de x lignes dans une cellule avec séparation par ;

Merci nickel