Série de nombres en ligne

[sonskriverez]

Bonjour le forum

J'ai une liste de nombres dans une colonne A1 que voudrais mettre par groupe de 5 séparateur "," dans la colonne E1, E2...
Sachant que la liste dans A1 peut être aléatoire

Une petite macro serait la bienvenue

Merci de votre aide

 

[Pyrof]

Re : Série de nombres en ligne

Bonjour,

Sub dudule()
l = 2
ligne_resultat = 1
cp = cpt = 0
While Cells(l, 1) <> ""
cpt = cpt + 1
Select Case cpt
Case 1
cumul = "'" & Trim(Cells(l, 1))
Case 5
ligne_resultat = ligne_resultat + 1
Cells(ligne_resultat, 6) = cumul
cumul = ""
cpt = 0
Case Else
cumul = cumul & "," & Trim(Cells(l, 1))
End Select
l = l + 1
Wend
End Sub

 

[sonskriverez]

Re : Série de nombres en ligne

Sper c'est good, merci