XL 2013 Macro de concaténation

Phil69970

XLDnaute Barbatruc

• 18 Septembre 2021

• #2

Bonjour @Yvan1

Remplace ceci :

VB:

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

Par cela :

VB:

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

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

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 18 Septembre 2021

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 18 Septembre 2021

• #4

Re

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

@Phil69970

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 18 Septembre 2021

• #5

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

Merci pour ton aide.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Septembre 2021

• #6

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

 

Vote positif 0 Vote négatif