Sélectionner/copier cellules et concatener dans une cellule

Bonjour,

j'aimerais permettre à l'utilisateur qui utilise ce fichier excel ci joint de:

- sélectionner les éléments dans du tableau de la colonne B après avoir utilisé le filtre equipment à droite

- copier les éléments sélectionnés du tableau de la colonne B

- Coller dans la cellule D4 de manière à concaténer les éléments avec une virgule (,) comme séparateur.

Ce qui serait top, ça serait:

- utiliser le filtre à droite

- Cliquer/sélectionner un Equipment ou faire une sélection multiple

- puis les éléments filtrés du tableau de la colonne B seront directement copiés collés dans la cellule D4 avec une virgule comme séparateur (,)

Merci

je vous serai très reconnaissant

Bonjour,

Une approche via VBA, le code ci-dessous et le fichier modifié ci-joint.

Vous noterez que la liste sort de la cellule. Si cela vous gene 2 solutions :

1. mettre la cellule en auto-fit, mais elle ne coupera pas forcément à chaque virgule

2. ajouter " & vbCrLf " à la fin de la boucle sur outputStr

Sub concatenateSelection()
  Feuil1.Activate

  Dim rngSelection As Range
  On Error Resume Next
  Set rngSelection = Application.InputBox("Select tags to concatenate", "Selection", Type:=8)
  On Error GoTo 0

  If rngSelection Is Nothing Then Exit Sub

  Dim outputStr As String
  Dim cell As Variant
  For Each cell In rngSelection
    outputStr = outputStr & "," & cell.Value2
  Next cell

  outputStr = VBA.Right$(outputStr, Len(outputStr) - 1)
  Feuil1.Range("D4").Value2 = outputStr

End Sub

Parfait

un grand merci. tout fonctionne bien