Tableau to String concat

Bonjour Chers tous,

Je suis un utilisateur occasionnel d'Excel.
Dans le cadre d'une analyse de gros fichier Excel, j'aimerai pouvoir faire une petite manip. Grace au forum j'ai découvert INDEX/EQUIV + CONCATENATE mais après tests je n'y arrive pas tout à fait!

J'ai un tableau contenant en Col 1 des articles et en col 2 leurs fournisseurs.
Un article pouvant avoir plusieurs fournisseurs, dans la colonne 1 on peut avoir plusieurs lignes qui représentent le meme article mais avec des fournisseurs différents.

J'aimerai obtenir dans un autre sheet, sur une ligne, une concaténation de tous les fournisseurs pour un article.
Je pense que mon fichier Excel sera plus clair!

Si quelqu'un pourrait me venir en aide, ce serait super sympa.

Ciao

Salut,

Comme ça je ne vois pas de solution simple à base de formule Excel.
En créant la fonction personnalisée CONCATENER_SI ci-jointe, l'écriture de la formule dans Excel sera simple.
Par exemple, dans ton fichier exemple, tu pourras écrire en cellule J18 =CONCATENER_SI(I18;$B$3:$B$10;$C$3:$C$10;0).
Puis copier cette cellule vers le bas.

La fonction =CONCATENER_SI prend pour paramètre :
- valeurAComparer : la cellule contenant la valeur à comparer à une plage de cellules.
- plageATester : la plage de cellule à tester par rapport à valeurAComparer
- plageAConcatener : la plage de cellule à concatener lorsque la condition est remplie
- condition : un entier codant le type de test à effectuer entre valeurAComparer et plageATester .

 ...0 : =
 ...1 : <
 ...2 : <=
 ...3 : >=
 ...4 : >

Pour créer cette fonction personnalisée, utilise les touches <ALT> + <F11>, puis Menu Insertion -> Module

Et colle le code ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

Option Explicit   Enum CONDITION_ENUM COND_EQUAL = 0 COND_INF = 1 COND_INF_OR_EQUAL = 2 COND_SUP_OR_EQUAL = 3 COND_SUP = 4 End Enum   Public Function CONCATENER_SI(valeurAComparer As String, plageATester As Range, plageAConcatener As Range, Optional condition As CONDITION_ENUM = COND_EQUAL) As String Dim l As Long, c As Long   If condition = COND_EQUAL Then For c = 1 To plageATester.Cells.Columns.Count For l = 1 To plageATester.Cells.Rows.Count If plageATester.Cells(l, c).Value = valeurAComparer Then CONCATENER_SI = CONCATENER_SI & CStr(plageAConcatener.Cells(l, c)) & "," End If Next l Next c ElseIf condition = COND_INF Then For c = 1 To plageATester.Cells.Columns.Count For l = 1 To plageATester.Cells.Rows.Count If plageATester.Cells(l, c).Value < valeurAComparer Then CONCATENER_SI = CONCATENER_SI & plageAConcatener.Cells(l, c) & "," End If Next l Next c ElseIf condition = COND_INF_OR_EQUAL Then For c = 1 To plageATester.Cells.Columns.Count For l = 1 To plageATester.Cells.Rows.Count If plageATester.Cells(l, c).Value <= valeurAComparer Then CONCATENER_SI = CONCATENER_SI & plageAConcatener.Cells(l, c) & "," End If Next l Next c ElseIf condition = COND_SUP Then For c = 1 To plageATester.Cells.Columns.Count For l = 1 To plageATester.Cells.Rows.Count If plageATester.Cells(l, c).Value > valeurAComparer Then CONCATENER_SI = CONCATENER_SI & plageAConcatener.Cells(l, c) & "," End If Next l Next c ElseIf condition = COND_SUP_OR_EQUAL Then For c = 1 To plageATester.Cells.Columns.Count For l = 1 To plageATester.Cells.Rows.Count If plageATester.Cells(l, c).Value >= valeurAComparer Then CONCATENER_SI = CONCATENER_SI & plageAConcatener.Cells(l, c) & "," End If Next l Next c End If   If Right(CONCATENER_SI, 1) = "," Then CONCATENER_SI = Left(CONCATENER_SI, Len(CONCATENER_SI) - 1) End If End Function

---

Si les données sont triées sur la colonne B comme sur le fichier et si on peut utiliser une colonne supplémentaire (sur ton fichier la colonne D).

En D3

Code:

---

=SI($B3=$B2;$D2&","&CAR(10)&$C3;$C3)

---

On tire vers le bas.

Et enfin pour remplir ton tableau.

En I18

Code:

---

=INDEX($D$3:$D$10;EQUIV($H18;$B$3:$B$10;0)+NB.SI($B$3:$B$10;$H18)-1)

---

On tire vers le bas.

Bonsoir,

Effectivement la solution de Mercatog fonctionne bien.
Et le tri préalable (si ce n'est pas déjà fait) par type d'article est un moindre mal. :ccool:

Pour coller à la position de la colonne résultat du fichier exemple,
si tu veux le résultat en J18, la formule de Mercatog s'adaptera en

Code:

---

=INDEX($D$3:$D$10;EQUIV($I18;$B$3:$B$10;0)+NB.SI($B$3:$B$10;$I18)-1)

---

A+

Waouh!
Je suis impressionné par votre réactivité.
Je suis tout de suite convaincu que je vais en apprendre beaucoup dans ce forum.

Je vous remercie! Je teste ça ce soir et vous reviens assez rapidement.
Une belle journée ;-)

Parfait!
Ca marche comme je souhaitais.
Je vous remercie pour votre aide précieuse!