Pb concatenation

[CelluleVide]

Bonjour a tous,

J'ai modifier un petit code de l'excellent PierreJean pour concatener des codes avec un separateur choisi par l'utilisateur.
Seulement lors de la boucle, Il met un separateur au début qui est en trop pour moi. Peux-t-on empecher cela?

Ex: Avec les codes: 25G 24R et 42TR j'obtient:

|25G|24R|42TR au lieu de 25G|24R|42TR

Voici le code VBA:
Sub Frm_concat_codeArt()
Dim Separateur As String
Range("A1").ClearContents
Separateur = InputBox("Entrez le separateur de code:", "SEPARATEUR", "|")
For Each Cel In Selection
Range("A1") = Range("A1") & Separateur & Cel.Value
Next Cel
End Sub

A+

 

[PascalXLD]

Re : Pb concatenation

Bonjour

une possibilité est de le retirer une fois tout fait

Range("A1") = Right(Range("A1"), Len(Range("A1")) - 1)

à rajouter avant le end sub

 

[PascalXLD]

Re : Pb concatenation

re

autre possibilité

Sub Frm_concat_codeArt()
Dim Separateur As String
Range("A1").ClearContents
Separateur = InputBox("Entrez le separateur de code:", "SEPARATEUR", "|")
For Each Cel In Selection
Range("A1") = IIf(Range("A1") = "", Cel.Value, Range("A1") & Separateur & Cel.Value)
Next Cel
End Sub

 

[pierrejean]

Re : Pb concatenation

bonjour CelluleVide

Merci pour l'appreciation !!

A tester:

....
Next Cel
Range("A1")=Right(Range("A1"),len(Range("A1"))-1)
End Sub

edit Salut Pascal

 

[CelluleVide]

Re : Pb concatenation

C'est parfait, Merci a vous deux pour votre aide