XL 2013 Extraire des mots uniques d'une colonne à une liste avec le compte en nombre

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Août 2015

• #2

Re : Extraire des mots uniques d'une colonne à une liste avec le compte en nombre

Bonjour,

cf PJ

Calcule la fréquence de mots

-Sélectionner C228
=FrequenceMots(A2:A28;"|")
-valider avec maj+ctrl+entrée

-La fonction est dans un module (Alt+F11)

Code:

Option Compare Text
Function FrequenceMots(champ As Range, sep)
  Set d1 = CreateObject("Scripting.Dictionary")
  d1.CompareMode = vbTextCompare
  temp = champ
  For Each c In temp
    If c <> "" Then
     a = Split(c, sep)
     For Each m In a
       If m <> "" Then d1(m) = d1(m) + 1
     Next m
    End If
  Next c
  Dim b()
  ReDim b(1 To Application.Max(Application.Caller.Rows.Count, d1.Count), 1 To 2)
  i = 1
  For Each c In d1.keys
    b(i, 1) = c: b(i, 2) = d1(c)
    i = i + 1
  Next
  Call tri(b, 1, d1.Count)
  FrequenceMots = b
End Function

JB

 

Pièces jointes

• FonctionFrequenceMots.xls

  55 KB · Affichages: 59
• Sans titre.jpg

  22.9 KB · Affichages: 49

Dernière édition: 21 Août 2015

Vote positif 0 Vote négatif

H

Henri K.

XLDnaute Nouveau

• 21 Août 2015

• #3

Re : Extraire des mots uniques d'une colonne à une liste avec le compte en nombre

Merci JB pour la réponse rapide, je n'aurai pas pu (encore) trouver la réponse tout seul...

2 questions très bêtes :

* Si la colonne de source est dans une feuille et je veux que le résultat de recherche s'affiche dans une autre, il n'y a pas de problème ?

* Comment puis-je implémenter ta fonction dans mon fichier Excel ? (J'ai essayé de faire "View Code" dans l'onglet mais il n'y a rien. Je n'ai pas dû chercher dans le bon endroit ?)

Merci.

Henri K.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Août 2015

• #4

Re : Extraire des mots uniques d'une colonne à une liste avec le compte en nombre

>* Si la colonne de source est dans une feuille et je veux que le résultat de recherche s'affiche dans une autre, il n'y a pas de problème ?

La fonction est dans un module, donc utilisable dans tout le classeur.

>* Comment puis-je implémenter ta fonction dans mon fichier Excel ? (J'ai essayé de faire "View Code" dans l'onglet mais il n'y a rien. Je n'ai pas dû chercher dans le bon endroit ?)

-Alt+f11
-Insertion module

JB

 

Dernière édition: 21 Août 2015

Vote positif 0 Vote négatif

H

Henri K.

XLDnaute Nouveau

• 21 Août 2015

• #5

Re : Extraire des mots uniques d'une colonne à une liste avec le compte en nombre

Merci.

Henri K.

 

Vote positif 0 Vote négatif

E

erolland

XLDnaute Nouveau

• 16 Mars 2020

• #6

En fait je ne vois pas dans la macro où le séparateur "|" est pris en compte car ce symbole n'apparaît nul part

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2020

• #7

Bonsoir,


>En fait je ne vois pas dans la macro où le séparateur "|" est pris en compte car ce symbole n'apparaît nul part

Il apparaît dans l'appel de la fonction et dans la fonction , il s'appelle sep:

-Sélectionner C228
=FrequenceMots(A2:A28;"|")
-valider avec maj+ctrl+entrée

Boisgontier

 

Vote positif 0 Vote négatif