Colonne en chaine

Bonjour,

J'ai créer une macro qui permet de transformer une colonne en chaine, la chaine s'affiche dans un Userform (Textbox). Cependant j'ai un problème avec l'Userform. Il ne s'initialise pas à vide. La sélection précédente reste toujours dans la Textbox et s'ajoute à la nouvelle chaine. Je ne vois pas d'où viens le problème. Je vous laisse le code de ma Macro.

Quelqu'un pourrait-il m'aider ?

Cela doit être un détail tout bête.

Code Macro :

Public chaine

Sub CreerChaine()

Set donnees = Application.InputBox("A l'aide de la souris, selectionnez la plage de valeurs (sans les entêtes de colonnes).", Type:=8)

Point = ";"

For Each c In donnees
    chaine = chaine & c & ";" & Point
Next

chaine = Left(chaine, Len(chaine) - 1)

UserForm1.Show

End Sub

Bonjour,

à tester,

Sub CreerChaine()
chaine = ""           'ajout

Set donnees = Application.InputBox("A l'aide de la souris, selectionnez la plage de valeurs (sans les entêtes de colonnes).", Type:=8)

Point = ";"

For Each c In donnees
    chaine = chaine & c & ";" & Point
Next

chaine = Left(chaine, Len(chaine) - 1)

UserForm1.Show

End Sub

Merci, cela fonctionne à merveille.

J'en étais sur que c'était un détail tout bête.