tri puis concatenation

[jonleboss]

Bonjour à tous,

je fais appel à votre aide car je cherche depuis des heures à tri une liste de clients qui achètent des produits puis à recopier la liste de clients pour un produits defini dans une seule cellule....De façon à faire un récapitulatif...Je vous ai mis mon fichier de test en PJ!

Merci d'avance pour votre talent

 

[Roland_M]

Re : tri puis concatenation

bonsoir

tout ceci est faisable mais comment afficher tous les clients dans une seule cellule ?
ou alors tu veux simplement le nombre !?
Roland

 

[jonleboss]

Re : tri puis concatenation

Bonsoir Roland,

En fait je veux reprendre le nom des différents clients qui achèteraient le produit 1 (par exemple) dans une cellule récapitulative du type : nom 1, nom 3, nom 6, nom 7

J'espère être assez clair...?

Bye

 

[jonleboss]

Re : tri puis concatenation

Personne pour l'aider? :'(

 

[ninbihan]

Re : tri puis concatenation

Bonsoir Jon le Boss,


Un essai avec une fct personnalisée


Bonne soirée,

Ninbihan

Edit: Salut BHBH

 

[Cousinhub]

Re : tri puis concatenation

Bonsoir,
essaie ce code (à adapter) :

Sub tri_et_conca()
Range("F6,F8,F10").ClearContents
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
    If cel.Value = Right([E6], 1) Then [F6] = [F6] & ", " & cel.Offset(0, 1).Value
    If cel.Value = Right([E8], 1) Then [F8] = [F8] & ", " & cel.Offset(0, 1).Value
    If cel.Value = Right([E10], 1) Then [F10] = [F10] & ", " & cel.Offset(0, 1).Value
Next cel
For Each cel In Range("F6,F8,F10")
    cel.Value = Right(cel.Value, Len(cel) - 2)
Next cel
End Sub

Je dis à adapter, car je prends en référence le A de produits A dans ta cellule E6 (par exemple, ou E8, ou E10)
Maintenant, si tu mets tout le produit dans la cellule E6 (tomate, pomme de terre.....) et rien que le produit, ainsi que dans les cellules A2... (attention à l'orthographe, VBA est très pointilleux), tu peux remplacer par :

Sub tri_et_conca()
Range("F6,F8,F10").ClearContents
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
    If cel.Value = [E6] Then [F6] = [F6] & ", " & cel.Offset(0, 1).Value
    If cel.Value = [E8] Then [F8] = [F8] & ", " & cel.Offset(0, 1).Value
    If cel.Value = [E10] Then [F10] = [F10] & ", " & cel.Offset(0, 1).Value
Next cel
For Each cel In Range("F6,F8,F10")
    cel.Value = Right(cel.Value, Len(cel) - 2)
Next cel
End Sub

Edit, oupss, collision, bonsoir ninbihan