XL 2013 Macro de concaténation

Yvan1

XLDnaute Occasionnel
Bonjour,

J'utilise la macro suivante pour concaténer des données :
Option Explicit

Dim ln, concat

Sub Concatener()

concat = ""
For ln = 7 To Range("T" & Rows.Count).End(xlUp).Row
concat = concat & Range("T" & ln) & " / "
Next ln
Range("D9") = Left(concat, Len(concat) - 1)

End Sub

Mais j'ai un message d'erreur : "Projet ou bibliothèque introuvable", relatif à la fonction LEFT.

Quelqu'un peut-il me dire d'où vient le problème ?

Merci d'avance,
 

patricktoulon

XLDnaute Barbatruc
bonjour juste en passant ;)
et si on avait pas a ce soucier de ou mettre les séparateur hein???
c'est pas compliqué
VB:
Option Explicit
Sub Concatener()
    Dim concat$
    concat = Join(Application.Transpose(Range("T7", Cells(Rows.Count, "T").End(xlUp))), "/")
    Range("D9") = concat
End Sub
 

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo