compter nombre de mots identiques dans même cellule

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Mars 2010

• #2

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

Bonsoir,

Code:

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

 

Pièces jointes

• Mondico99.xls

  24.5 KB · Affichages: 184

Dernière édition: 10 Mars 2010

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 10 Mars 2010

• #3

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.

 

Pièces jointes

• SéparationMotsCellule.xls

  29 KB · Affichages: 238

Dernière édition: 10 Mars 2010

Vote positif 0 Vote négatif

V

viveledoliprane!

Guest

• 10 Mars 2010

• #4

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+

 

Vote positif 0 Vote négatif

V

viveledoliprane!

Guest

• 10 Mars 2010

• #5

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

......... ^^

 

Vote positif 0 Vote négatif