sonskriverez
XLDnaute Occasionnel
Bonjour le forum,
Dans une colonne j'ai des chiffres que je voudrais mettre dans une cellule avec un séparateur ";" et par groupe de 5.
J'avais bien cette macro que m'avais passé Pyrof, mais cela ne fonctionne pas sur une liste filtrée.
QUe dois-je faire pour que cela fonctionne sur une liste filtrée
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
Merci de votre aide
Dans une colonne j'ai des chiffres que je voudrais mettre dans une cellule avec un séparateur ";" et par groupe de 5.
J'avais bien cette macro que m'avais passé Pyrof, mais cela ne fonctionne pas sur une liste filtrée.
QUe dois-je faire pour que cela fonctionne sur une liste filtrée
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
Merci de votre aide