Sujet Précédent Sujet Suivant

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

Résolu/Fermé
wuhrlinanthony Messages postés 52 Date d'inscription mercredi 29 juillet 2015 Statut Membre Dernière intervention 5 juillet 2017 - 29 juil. 2015 à 14:31
wuhrlinanthony Messages postés 52 Date d'inscription mercredi 29 juillet 2015 Statut Membre Dernière intervention 5 juillet 2017 - 29 juil. 2015 à 16:04
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.
A voir également:

4 réponses

Réponse 1 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
29 juil. 2015 à 15:02
Bonjour

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

Cdlmnt
0
Réponse 2 / 4
wuhrlinanthony Messages postés 52 Date d'inscription mercredi 29 juillet 2015 Statut Membre Dernière intervention 5 juillet 2017
29 juil. 2015 à 15:13
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
Réponse 3 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 29/07/2015 à 15:55
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
Réponse 4 / 4
wuhrlinanthony Messages postés 52 Date d'inscription mercredi 29 juillet 2015 Statut Membre Dernière intervention 5 juillet 2017
29 juil. 2015 à 16:04
Super merci beaucoup, je comprend un peu mieux ton code.
0

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses