Recopier dans une cellule avec un séparateur

[mouve59]

Bonjour,

J'aurais besoin de recopier tous les numéros des blocs dans une cellule avec un séparateur virgule, sans aucun espace.

Est-ce possible ?
Si oui, comment ?

Je vous met en PJ un exemple de ce que je souhaites faire.

Merci.

 

[Staple1600]

Re : Recopier dans une cellule avec un séparateur

Bonjour à tous

Une solution par formule

=A2&","&A3&","&A4&","&A5&","&A6

Une solution par macro

Sub a()
Dim t
t = Range("A2:A6").Value
Range("C7").Value = Join(Application.Transpose(t), ",")
End Sub

 

[mapomme]

Re : Recopier dans une cellule avec un séparateur

Bonjour mouve59, Staple1600,

Juste pour saluer Staple1600 , un autre essai avec une fonction : concat(maPlage) où maPlage est la zone à concaténer (on ne concatène que la première colonne de la zone).

Function concat(maPlage As Range)
Dim tablo, res()
  tablo = maPlage.Columns(1).Value
  ReDim res(1 To UBound(tablo))
  res = tablo
  concat = Join(Application.Transpose(res), ",")
End Function

 

[Staple1600]

Re : Recopier dans une cellule avec un séparateur

Bonjour à tous

Juste pour saluer Staple1600

Juste pour transposer le salut du gars qui salue Staple en Staple salue mapomme

NB: Oui, je sais je parle de moi à la troisième personne. Mais je me soigne