tri puis concatenation

jonleboss · 3 Mars 2008

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 · 3 Mars 2008

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 · 3 Mars 2008

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 · 3 Mars 2008

Re : tri puis concatenation

Personne pour l'aider? :'(

ninbihan · 3 Mars 2008

Re : tri puis concatenation

Bonsoir Jon le Boss,

Un essai avec une fct personnalisée

Bonne soirée,

Ninbihan

Edit: Salut BHBH

Cousinhub · 3 Mars 2008

Re : tri puis concatenation

Bonsoir,
essaie ce code (à adapter) :

Code:

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 :

Code:

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

tri puis concatenation

jonleboss

Guest

Pièces jointes

Roland_M

XLDnaute Barbatruc

jonleboss

Guest

jonleboss

Guest

ninbihan

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires

tri puis concatenation

jonleboss

Guest

Pièces jointes

Roland_M

XLDnaute Barbatruc

jonleboss

Guest

jonleboss

Guest

ninbihan

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency