Concatener selon une condition de regroupement

Bonjour à Tous,

je viens ici car je suis bloqué, et je souhaite et je suis sur que j'y trouverai un bon coup de main.

En faite sur excel et en VBA, je souhaite à partir de mes données en liste dans ma Colonne A,

pouvoir concatener les valeurs de "X" cellules, en 1 cellule avec la valeur des "X" Cellules.

Mais la valeur "X" est variables elle dépend de la saisie de l'utilisateur dans MSGBOX.

Veuillez trouver ci-joint un exemple afin que cela soit plus compréhensible.

Merci beaucoup de votre aide.

Salut,

Voici un essai :

Option Explicit

Sub aa()
Dim Valeur_regroupement As Integer, Regroupement As String, i As Integer

Application.ScreenUpdating = False

Valeur_regroupement = InputBox("Quelle est la valeur de regroupement désirée ?")
Range("E2") = Valeur_regroupement

Range("C2:C1048576").ClearContents

Range("A2").Activate

Retour:
For i = 1 To Valeur_regroupement
    If Regroupement = "" Then
        Regroupement = ActiveCell
    Else
        Regroupement = Regroupement & " - " & ActiveCell
    End If
    ActiveCell.Offset(1, 0).Activate
Next

Range("C" & Range("C1048576").End(xlUp).Row + 1) = Regroupement
Regroupement = ""
ActiveWindow.ScrollRow = 1
If ActiveCell = "" Then Exit Sub
GoTo Retour

End Sub

Cordialement

Je viens de voir le fichier, MAGNIFIQUE, c'est exactement ce qu'il me fallait.

Mille Merci je ne sais comment te remercier plus.

Merci encore.

On pourrait notamment perfectionner la chose en ne laissant pas apparaitre de tirets après les dernières références regroupées à certaines conditions.

Si d'autres choses te gênent à la longue, reviens à la charge

Amicalement.