Hulk
XLDnaute Barbatruc
Hello Forum
J'ai en colonne A2:Ax une liste comme ceci :
Pomme
Poire
Pêche
Nectarine
Banane
Ananas
Je souhaiterais la transposer sur une seule cellule (par ex. D1) comme ceci :
Pomme-Poire-Pêche-Nectarine-Banane-Ananas-
Pour l'instant je fais ceci..
Mais il n'affiche que la dernière valeur de la liste -> Ananas-
Quelqu'un pour un p'tit coup de main ?
Merci d'avance pour vos propositions !
Bonne fin de journée à tous
J'ai en colonne A2:Ax une liste comme ceci :
Pomme
Poire
Pêche
Nectarine
Banane
Ananas
Je souhaiterais la transposer sur une seule cellule (par ex. D1) comme ceci :
Pomme-Poire-Pêche-Nectarine-Banane-Ananas-
Pour l'instant je fais ceci..
Code:
Private Sub CommandButton1_Click()
Dim lign As Range
For Each lign In Range([A2], [A65000].End(xlUp))
If Range("A" & lign.Row).Value <> "" Then
Range("D1").Value = Range("A" & lign.Row).Value & "-"
End If
Next lign
End Sub
Quelqu'un pour un p'tit coup de main ?
Merci d'avance pour vos propositions !
Bonne fin de journée à tous