macro de concatenation

[bathyscaphe]

Bonjour,


Selon le fichier joint, je souhaiterai avoir une macro qui me permette d'obtenir le résultat apparaissant en B4.


Dans mon exemple, j'ai repris les éléments de A1 à A6 mais ce pourrait être les éléments de A1 à A50 ou A1 à A2.


Merci d'avance et bon WE !

 

[ROGER2327]

Re : macro de concatenation

Bonjour bathyscaphe

Essayez ceci :

[COLOR="DarkSlateGray"][B]Function concat(plg As Range) As String
Application.Volatile
Dim i As Long
   For i = 1 To plg.Cells.Count
      concat = concat & CStr(plg.Item(i))
   Next i
End Function[/B][/COLOR]

Syntaxe :
=concat(A1:A6) ou tout autre plage qu'il vous plaira de traiter.​

ROGER2327
#2697

 

[jp14]

Re : macro de concatenation

Bonjour

Une fonction personnalisée

Function concatener_cellule(zone_a_concatener As Range)
Dim data1 As String
Dim cellule As Range
For Each cellule In zone_a_concatener
  data1 = data1 & cellule
Next cellule
concatener_cellule = data1
End Function

A tester

JP