Recopier dans une cellule avec un séparateur

Racinecarrée · 14 Décembre 2014

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 · 14 Décembre 2014

Re : Recopier dans une cellule avec un séparateur

Bonjour à tous

Une solution par formule

Code:

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

Une solution par macro

Code:

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

mapomme · 14 Décembre 2014

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).

VB:

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 · 14 Décembre 2014

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 😉

Recopier dans une cellule avec un séparateur

Racinecarrée

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires

Recopier dans une cellule avec un séparateur

Racinecarrée

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency