Concatener dans une cellule un nombre variable de noms avec Saut de page
Bonjour à tous,
Je suis nouvellement inscrit sur le forum, mais ça fait très longtemps que je viens sur ce forum pour m'instruire.
Voici ma question:
Je souhaite concatener une liste de nom dans une même cellule pour ensuite l'envoyer dans une forme. Je connais la fonction &car(10)&, mais étant donné que ma liste peut être variable, j'aimerais avoir une fonction vba automatique pour faire.
J'ai trouvé cet fonction il y a quelques temps et ça fonctionnait très bien.
Function Concat (c As Range)
Dim T, i%, j%, texte$
T = c. value
For i = UBound (T) to LBound(T) Step -1
If Not IsEmpty(T(i, 1)) Then
texte = T(i, 1)
For j = i -1 To LBound(T) Step -1
If Not IsEmpty(T(j,1)) Then
texte = T(j, 1) & Chr(10) & texte
End If
Exit For
End if
Next
Concat = texte
End function
Mais, j'ai fait du ménage dans mes modules et j'ai effacé quelques choses qui devait le faire fonctionner comme il faut, car depuis aussitôt que j'entre un nouveau nom ça m'indique #NOM?
Je joint un exemple de fichier sur ce que je veux faire.
Est-ce que quelqu'un peut m'aider?
Merci
Merci i20100
Ça fonctionne très bien.