Macro détection de mots-clés - copie et comptage

Résolu
wuhrlinanthony Messages postés 57 Statut Membre -  
wuhrlinanthony Messages postés 57 Statut Membre -
Bonjour,

J'ai récemment commencer à apprendre le code VBA et j'ai déjà pu créer différentes macro plus ou moins grande selon les cas, mais là je tombe sur un gros problème car je ne sais pas par quoi commencer.

En clair, je cherche a créer une macro qui peut me détecter le Top 3 des mots les plus répandue dans un texte qui est écrit auparavant dans une cellule.

Et que cette macro puisse me copier ces trois mots dans une autre cellule et quelle me donne le nombre de fois chaque mots est répéter.

Merci d'avance.

4 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Un exemple
    http://www.cjoint.com/c/EGDncxLsygR

    Cdlmnt
    0
  2. wuhrlinanthony Messages postés 57 Statut Membre
     
    Merci beaucoup ccm81 ! C'est exactement ce que je cherchais.

    Sans te mentir je ne comprend pas beaucoup ton code, c'est encore trop évolué pour mon petit niveau de débutant.

    J'ai encore une question : Si par exemple je veux ajouter un mot en plus , passer du top 3 au top 4 des mots les plus répandus, ou dois-je modifier ton code ?

    Merci d'avance.
    0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Le même presque* où tu peux modifier le nombre de tops et avec quelques explications
    http://www.cjoint.com/c/EGDn0SPG5zR

    -* il y avait une erreur ici 
      If dico.exists(cle) Then
        dico(cle) = dico(cle) + 1
      Else
        dico.Add cle, 1
      End If

    Cdlmnt
    0
  4. wuhrlinanthony Messages postés 57 Statut Membre
     
    Super merci beaucoup, je comprend un peu mieux ton code.
    0