Concatener des cellules colonnes par colonnes
L
Bonjour à tous !
J'aimerais que cette fonction qui concatene en ligne concatène en colonne ! Vous me sauveriez la vie si vous pouviez me dire quoi changer
Attention, certaines de mes cellules entre chaque colonne sont vides !
La dite fonction :
Function ConcatPlage(plage As Range, séparateur As String, Optional contenant As String) As String
Dim rep As String, c As Range
For Each c In plage
If InStr(c.Value, contenant) > 0 Then
rep = rep & c.Value & séparateur
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function
Bien à vous
A
Bonjour
J'aimerais que cette fonction qui concatene en ligne concatène en colonneTa question est pour le moins imprécise.
La concaténation s'effectue dans une seule cellule et le résultat est en ligne.
A moins de faire comme dans ce fichier
Cordialement