Concaténer en VBA avec espaces et tirets

Bonjour à tous,

Je cherche à concaténer les valeurs d'une liste variable située en colonne A (de la ligne 2 à la ligne x) en introduisant entre chaque valeur du résultat, un espace, puis un tiret, puis de nouveau un espace (" - ") .

Le résultat est déposé en J10, mais actuellement toutes les valeurs de la liste sont empilées en J10 et on ne voit que la dernière valeur de la colonne, je voudrais obtenir en J10 une ligne telle que : valeur 1 - valeur 2 - valeur 3 - valeur 4 , etc.

Le fichier est en PJ, merci pour votre aide.

Dul

Bonjour,

teste avec ce code

Sub Bouton1_QuandClic()
 x = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
 Cells(10, 10).Value = ""
  For I = 2 To x
    If Cells(10, 10).Value = "" Then
      Cells(10, 10).Value = Range("A" & I).Value
    Else
      Cells(10, 10).Value = Cells(10, 10).Value & " - " & Range("A" & I).Value
    End If
  Next I
End Sub

Bonjour,

je te laisse remplacer ta macro par celle ci

Sub Bouton1_QuandClic()
x = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
var_stock = ""

For I = 2 To x
    var_stock = var_stock + Range("A" & I).Value & " - " '
Next

Worksheets("Feuil1").Cells(10, "J").Value = var_stock
End Sub

Edit : Bjr M12,

Bonsoir Mus54, bonsoir M12,

Je vous remercie pour vos propositions, elles fonctionnent parfaitement et ont résolu ma recherche.

Bonne soirée.

Dul