recherche d'occurence dans un tableau (par couple)

[roadbuster]

Bonjour,

J'ai un tableau qui comprend une colonne avec des noms, et associé à côté, une valeur.
Il y a des doublons au niveau du nom et je souhaite récupérer l'ensemble des valeurs associées :
[table="width: 50, class: grid"]
[tr]
[td]toto[/td]
[td]5[/td]
[/tr]
[tr]
[td]tata[/td]
[td]6[/td]
[/tr]
[tr]
[td]tutu[/td]
[td]2[/td]
[/tr]
[tr]
[td]titi[/td]
[td]2[/td]
[/tr]
[tr]
[td]tata[/td]
[td]8[/td]
[/tr]
[tr]
[td]tyty[/td]
[td]7[/td]
[/tr]
[tr]
[td]tata[/td]
[td]9[/td]
[/tr]
[tr]
[td]toto[/td]
[td]0[/td]
[/tr]
[/table]

je souhaite donc rechercher pour la chaine de caractère "tata", les valeurs qui lui sont associées donc 6, 8, 9 qui arriveraient dans une cellule.

Est-ce possible via une formule et concaténation des occurrences, ou une macro est-elle indispensable..?

Merci,
FreD.

 

[tototiti2008]

Re : recherche d'occurence dans un tableau (par couple)

Bonjour roadbuster,

Comme on ignore le nombre d'occurrences de chaque cas, je pencherais plutôt pour la macro (en plus les formules ont du mal avec la concaténation matricielle)

 

[BOISGONTIER]

Re : recherche d'occurence dans un tableau (par couple)

Bonjour,

Sub ListeSansDoublons()
   Set d = CreateObject("Scripting.Dictionary")
   For Each c In Range("a1:a" & [a65000].End(xlUp).Row)
     d(c.Value) = d(c.Value) & c.Offset(, 1).Value & " "
  Next c
  [d2].Resize(d.Count, 1) = Application.Transpose(d.keys)
  [e2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

JB

 

[roadbuster]

Re : recherche d'occurence dans un tableau (par couple)

Merci à tous les 2, cela fonctionne parfaitement par rapport à ce que je voulais faire.