compter nombre de mots identiques dans même cellule

[viveledoliprane!]

Bonjour,
j'ai une cellule qui contient une liste de "mots" séparés tous par un espace, et j'aimerais les compter, est-ce possible ?

ex:
dans la cellule "A1":

Jean Jean Pierre Pierre René


Résultat souhaité dans un tableau:
nom nb
Jean 2
Pierre 2
René 1

 

[BOISGONTIER]

Re : compter nombre de mots identiques dans même cellule

Bonsoir,

Sub essai()
  Set mondico = CreateObject("Scripting.Dictionary")
  a = Split([A1], " ")
  For Each c In a: mondico(c) = mondico(c) + 1: Next
  [c2].Resize(mondico.Count) = Application.Transpose(mondico.keys)
  [d2].Resize(mondico.Count) = Application.Transpose(mondico.items)
End Sub

JB

 

[CBernardT]

Re : compter nombre de mots identiques dans même cellule

Bonsoir viveledoliprane!,

Salut bas à M BOIGONTIER,

Une solution par fonction Separer (x; y) exploitant la même fonction VBA Split.

 

[viveledoliprane!]

Re : compter nombre de mots identiques dans même cellule

ouah ! en plus j'ai le droit à 2 des boss de ce forum
merci à tous les deux!
2 solutions parfaites!

et en plus l'OL a gagné, quelle belle soirée !
merci
A+

 

[viveledoliprane!]

Re : compter nombre de mots identiques dans même cellule

......... ^^