XL 2013 Macro de concaténation

[Yvan1]

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,

 

[Phil69970]

Bonjour @Yvan1

Remplace ceci :

Range("D9") = Left(concat, Len(concat) - 1)

Par cela :

Range("D9") = "=Left(concat, Len(concat) - 1)"

Cela devrait déjà aller mieux....

*Merci de ton retour

@Phil69970

 

[Yvan1]

Non, toujours pas. Là, j'ai un message #NOM?

 

[Phil69970]

Re

Avec un fichier c'est plus parlant...et des explications sur ce que tu veux faire.

@Phil69970

 

[Yvan1]

J'ai trouvé... Il faut supprimer la coche devant la ligne MANQUANT dans OUTILS / REFERENCE.

Merci pour ton aide.

 

[patricktoulon]

bonjour juste en passant
et si on avait pas a ce soucier de ou mettre les séparateur hein???
c'est pas compliqué

Option Explicit
Sub Concatener()
    Dim concat$
    concat = Join(Application.Transpose(Range("T7", Cells(Rows.Count, "T").End(xlUp))), "/")
    Range("D9") = concat
End Sub