Bonjour à tous et à toutes,

je souhaite créer une procédure qui me permettrai de recupérer le contenu de plusieurs cellules ayant le meme nom d'usager dans une feuille et les recopier dans une seule cellule d'une autre feuille separe par une virgule par exemple.

Voici ce que j'ai comme exemple, je souhaiterai avec ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
USAGER   |   TRANSIT
Alain       |    re1111
Alain       |    re112245
Julie        |    tr1111
Pierre      |    tr13456
Pierre      |    s01145657
avoir ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
USAGER   |   TRANSIT
Alain       |    re1111,re112245
Julie        |    tr1111
Pierre      |    tr13456,s01145657
J'ai trouvé cette fonction qui me crée bien ma cellule fusionné des autres cellules :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
Dim Cpteur As Integer
Dim Chaine As String
Chaine = ""
 
For Cpteur = 1 To Feuil1.Range("a1").End(xlDown).Row
   Chaine = Chaine + CStr(Feuil1.Range("a" & Cpteur).Value) + ","
Next Cpteur
   Range("b2").Value = Chaine
End Sub
mais je n'arrive pas l'adapter parfaitement a ce que je vuex meme apres plusieurs tests. Je souhaiterai faire cette fusion lorsque USAGER est le même et copier le tout sur une nouvelle feuille.

Je vous remercie d'avance pour vos aides et propositions.