Bonjour à tous,
Je cherche une façon de concaténer une série de valeurs
Voir l'exemple ci dessous
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
Merci de votre coup de main
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
Merci de votre coup de main