Macro pour concatener une sélection

[sesame]

Bonjour,

Mes connaissances étant très basique en vba, je viens demander un peu d'aide pour une petite macro.

Je souhaiterais concatener une sélection dans un cellule avec un séparateur.

ex:

1
2
3
4

Je sélectionne 1,2 et 3 avec la souris et je lance la macro qui concatene tous ça dans la cellule A1 avec un séparateur &, ce qui donne dans A1:

1&2&3

Merci pour votre aide

 

[JNP]

Re : Macro pour concatener une sélection

Bonsoir Sésame ,

Sub ConcaténationCellules()
For Each Cellule In Selection
Contenu = Contenu & Cellule
Next
Cells(1, 1) = Contenu
End Sub

devrait faire ton bonheur.
Bonne soirée

 

[sesame]

Re : Macro pour concatener une sélection

Merci beaucoup JNP !

Et en plus j'ai compris le code