Corriger mon petit bout de code de découpage par virgule

hello,

j'ai ce code qui me permet de séparer les valeurs de différentes cellules en colonne A, sur une seul ligne en B1 séparé par des virgules.

Sub virgule()

Dim dl As Long

Dim i As Integer

dl = Range("a" & Rows.Count).End(xlUp).Row

For i = 1 To dl

Range("b1") = Range("b1") & "," & Range("a" & i)

Next

End Sub

le problème est ce code me rajoute une virgule au tout début de la ligne et cela me pose des soucis;

Merci de votre aide à tous

Salut nono,

à tester

Sub virgule()
Dim dl As Long
Dim i As Integer
dl = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To dl
If Range("b1") = "" Then
Range("b1") = Range("a" & i)
Else
Range("b1") = Range("b1") & "," & Range("a" & i)
End If
Next
End Sub

@++

hello,

merci pour ton aide c'est vraiment cool, j'ai un autre soucis avec le code que tu me donens, dans le résultat il me sort en b1 la concaténation de la case 1 et 2 et ajoute E+17

exemple en colonne A

121212121

484984984

454654

212132132

87654484

résultat en B1 ==> 1.21212121484984E+17,454654,212132132,87654484

Merci pour votre aide

Re,

à tester

Sub virgule()
Dim dl As Long
Dim i As Integer
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To dl
If Range("B1") = "" Then
Range("B1") = Range("A" & i)
Range("B1").NumberFormat = "@"
Else
Range("B1") = Range("B1") & "," & Range("A" & i)
End If
Next
End Sub

Bonne journée

super merci, ça fonctionne!!!!!

mille merci