Je cherche une façon de concaténer une série de valeurs
Voir l'exemple ci dessous
Limailles
Copeaux
Taille
Particules
Couleur
Taille2
Oui
2
2mm
Non
2
3mm
1
bleu
1mm
Je cherche à obtenir dans une cellule : " Limailles ; 2 copeaux 2mm" pour la 1ere ligne
et " 2 copeaux 3mm ; 1 particule bleu 1mm " pour la 2e ligne
j'utilise déjà la fonction ci dessous mais comment inserer les entêtes de colonne ?
Function Concatener1(Plage As Range) As String
Dim C As Range
Dim Texte As String
For Each C In Plage
If C <> "" Then
Texte = Texte & C.Value & "; "
End If
Next C
If Len(Texte) > 0 Then Concatener1 = Left(Texte, Len(Texte) - 2)
End Function