Mot(s) qui sort(ent) le plus souvent

Version imprimable

26/04/2019, 10h39
DevJunior59

Mot(s) qui sort(ent) le plus souvent

bonjour le Forum,

Je cherche depuis quelques temps sans trouver ...
Est-ce possible en VBA de parcourir une feuille est de trouver les mots qui se répètent le plus souvent ?

Car je trouve des solutions avec la fonction FREQUENCE cependant, il faut déjà connaitre le mot ... hors, moi c'est ce mot que je veux connaitre et savoir combien de fois il ressort .

J'ai l'impression que celà n'est pas possible mais j'aimerai vos avis sur le sujet .

merci à vous !:D
26/04/2019, 10h43
Menhir

Quand tu parles de "mot", est-ce que tu parles du contenu entier d'une cellule ou d'un élément de cellule pouvant en contenir plusieurs ?
26/04/2019, 10h49
DevJunior59

je parle par exemple si il y a 3 fois " formation" en cellulle G1 et 1 fois en G9 ,

je veux obtenir que le mot le plus fréquent est " formation" à raison de 4 dans la feuille ..

Me comprend-tu ? car pour moi c'est clair mais peut-être pas pour tous
26/04/2019, 11h04
unparia

Bonjour
Je sens que l'on va une fois de plus parler du distinguo important à faire entre "mots" et "chaînes de caractères" et (une fois de plus également) en arriver aux mêmes conclusions ;)
26/04/2019, 11h05
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

Fonction perso

-Sélectionner G2:I32
=frequencetexte(C2:E10)
-Valider avec maj+ctrl+entrée

Boisgontier
26/04/2019, 11h09
DevJunior59

Citation:

Envoyé par boisgontierjacques

Bonjour,

Fonction perso

-Sélectionner G2:I32
=frequencetexte(C2:E10)
-Valider avec maj+ctrl+entrée

Boisgontier

bonjour,

j'ai aperçu votre fonction sur une autre discussion sans vraiment réussir à l'appliquer à mon propre document
26/04/2019, 11h13
Menhir

Citation:

Envoyé par DevJunior59

je parle par exemple si il y a 3 fois " formation" en cellulle G1 et 1 fois en G9 ,

je veux obtenir que le mot le plus fréquent est " formation" à raison de 4 dans la feuille ..

Me comprend-tu ? car pour moi c'est clair mais peut-être pas pour tous

Ton truc risque d'être très compliqué.
Lancer une boucle scrutant toutes tes cellules.
Pour chacune, la décomposer en utilisant une fonction Split() avec un espace comme séparateur (s'il faut aussi tenir compte des apostrophes, tu es mal) pour séparer les mots et utiliser un dictionnaire pour gérer les occurrences de chacun.
26/04/2019, 11h18
DevJunior59

Citation:

Envoyé par Menhir

Ton truc risque d'être très compliqué.
Lancer une boucle scrutant toutes tes cellules.
Pour chacune, la décomposer en utilisant une fonction Split() avec un espace comme séparateur (s'il faut aussi tenir compte des apostrophes, tu es mal) pour séparer les mots et utiliser un dictionnaire pour gérer les occurrences de chacun.

c'est bien ce qu'il me semblait, extrêmement compliqué...
Je vous remercie
26/04/2019, 11h19
unparia

Bonjour Menhir
:plusser:
Surtout des apostrophes, en effet (car c'est mission impossible compte tenu des particularités de la langue française), mais également des signes de ponctuation, des parenthèses, des guillemets (cas par exemple des citations) etc ...
26/04/2019, 11h36
Menhir

Je développe rarement sous Word mais je me demande (sans certitude) si ça ne serait pas plus simple de tout transformer en docx pour le traiter.
Word possède déjà en standard la décomposition en mots si je ne me trompe pas.
26/04/2019, 11h46
DevJunior59

je vais creuser ;)
26/04/2019, 13h25
boisgontierjacques

>j'ai aperçu votre fonction sur une autre discussion sans vraiment réussir à l'appliquer à mon propre document

Postez votre document

Boisgontier
26/04/2019, 14h16
DevJunior59

1 pièce(s) jointe(s)

Citation:

Envoyé par boisgontierjacques

>j'ai aperçu votre fonction sur une autre discussion sans vraiment réussir à l'appliquer à mon propre document

Postez votre document

Boisgontier

Il s'agit de données confidentielles donc j'ai bien evidemment mis des données factices.
Ce serait top si vous pouviez m'expliquer ;)
26/04/2019, 15h27
Bemirdor

Bonjour, je ne vais pas te proposer une solution via des macros, mon niveau actuel ne me le permet pas, mais si ça ne te dérange le logiciel RStudio propose certaines fonctions permettant de trouver le mot revenant le + de fois dans un texte.
26/04/2019, 15h50
boisgontierjacques

1 pièce(s) jointe(s)

cf PJ

Boisgontier
26/04/2019, 16h02
DevJunior59

Je regarde un peu tout ça ! :)

1 pièce(s) jointe(s)

Autre version

-Sélectionner H2:I28
=FrequenceMots(A2:F1000;" ")
-valider avec maj+ctrl+entrée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

Boisgontier

26/04/2019, 20h58
unparia

Bonjour boisgontierjacques
Cet échange de classeurs (que je n'ouvre pas) ne m'apporte pas grand chose.

J'aimerais bien voir ton code et analyser comment il est construit pour notamment faire face à ceci (pour mémoire) :

Citation:

je parle par exemple si il y a 3 fois " formation" en cellulle G1 et 1 fois en G9 ,