Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

word : trouver le mot le plus utilisé d'un texte

 

LOGICIELS : mus2000 et 24 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

word : trouver le mot le plus utilisé d'un texte

Prévenir les modérateurs en cas d'abus 
mdoudou
qui cherche trouve
mdoudou
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 06/06/2007 à 13:22:22  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à tous

 J'ai désespérement besoin de vos lumières !

 J'ai un document Word standard, avec juste du texte écrit.
 Je voudrais que Word me dise quel est le mot le plus souvent utilisé et combien de fois il apparaît.

 J'imagine qu'il va falloir une macro, car jusqu'à présent je n'ai trouvé que des moyens où on lui indique le mot à chercher et il nous dit combien de fois il apparaît mais ce n'est pas ce que je veux

 Merci de votre aide

pat-garett
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 11/06/2007 à 12:59:29  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut,

 La solution ne me paraît pas très simple.Je pense avoir un début de piste.Il faut tout d'abord utiliser une macro sur ton texte word:
 Sub Decomposermot()
 For i = 1 To 150
  Selection.MoveRight Unit:=wdWord, Count:=1
  Selection.TypeParagraph
  Next i
 End Sub

 Le but de cette macro est de décomposer ton texte en une liste. Exemple:
 Le
 but
 de
 cette
 ....
 Exemple

 Le problème est que je ne sais pas comment dire à ma macro de cherche la fin du texte.J'ai mis 150 à titre d'exemple. En fait le code est:
 For i To fin du texte mais je ne connais pas l'instruction VBA correspondante.
 Ensuite, il faut convertir le texte en tableau:Sélectionner le texte/Tableau/Convertir le texte en tableau.
 Il faut copier le tableau et le coller sur Excel. Tu ajoutes une colonne.Tu donnes un titre bidon à chacune des colonnes.Utiliser ensuite la macro suivante:
 Sub Compteur()
 For i = 2 To 150 (s'il y a 150 lignes dans le tableau)
 For j = 1 To 1
 If Cells(i, j) = Cells(i + 1, j) Then
 Cells(i + 1, j + 1) = Cells(i, j + 1) + 1
 'Si la ligne est égale à la ligne précédente, autrement dit, si le mot est le même, incrémenter le compteur de 1
 Else
 Cells(i + 1, j + 1) = 1
 'Sinon, donner 1 comme valeur
 End If
 Next j
 Next i
 End Sub

 Exemple:
 Mot(colonne A)  Compteur(colonne B)
 barre 1
 barre 2
 barre 3
 carte 1
 craie 1
 dard 1
 dard 2
 dard 3
 dard 4
 .....

 Il faut enfin trier le tableau par ordre décroissant en se basant sur la 2nde colone (compteur).
 dard 4
 dard 3
 barre 3
 ....
 4 étant le plus grand chiffre, le mot qui apparaît le plus souvent est donc dard

(Publicité)
qui cherche trouve
mdoudou
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 12/06/2007 à 06:51:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour

 Effectivement cela me paraît bien compliqué. Comme je ne maîtrise pas le VBA, je crains de ne pas y arriver. De plus j'ai beaucoup de documents qui m'arrivent et sur lesquels je vais devoir faire cette manip...

 En tout cas merci pour l'aide

pat-garett
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 12/06/2007 à 07:04:04  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut,

 Le seconde macro est inutile en fait. Une fois que tu as ton tableau sur excel, tu fais un tableau croisé dynamique: c'est plus joli et c'est beaucoup plus clair et surtout beaucoup plus simple.Par contre, je pense que la 1ère macro est nécessaire.Un forumer pourra peut-être trouver la solution: il suffit juste de transcrire Fin du texte en une instruction VBA.Le but d'une macro est justement de te permettre de travailer sur tous tes documents.

pat-garett
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 12/06/2007 à 11:53:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re,

 Cette fois-ci, je pense avoir trouvé une méthode plus simple sans macro mais qui demande une attention particulière.
 Tu vas repmlacer tout les espaces, les virgules, les signes de ponctuation...par une marque de paragraphe avec Ctrl+H.
 Exemple:
 Cette
 fois-ci
 ,

 je
 pense
 avoir
 trouvé
 une
 méthode
 ...
 Ctrl
 +
 H
 Le but étant toujours de créer une liste verticale de chacun des mots.Tu n'as plus qu'à sélectionner et copier la liste.Tu la colles sur excel et tu fais ton tableau croisé dynamique.NB Mot  
 Mot Somme
 , 3
 attention 1
 avec 1
 avoir 1
 Cette 1
 Ctrl+H 1
 de 2
 demande 1
 espaces 1
 fois-ci 1
 je 1
 les 3
 macro 1
 mais 1
 marque 1
 méthode 1
 paragraphe 1
 particulière. 1
 pense 1
 plus 1
 ponctuation...par 1
 qui 1
 remplacer 1
 sans 1
 signes 1
 simple 1
 tout 1
 trouvé 1
 Tu 1
 une 3
 vas 1
 virgules 1
 (vide)  
 Total 39

 Tu as simplement deux exigences.
 1/Faire la liste de tous les signes de ponctuation (et encore pas vraiment):,?!..etc
 2/Tu n'as pas précisé s'il y a des graphiques ou des particularités dans tes documents.

(Publicité)
pat-garett
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 13/07/2007 à 13:13:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut

 Ce logiciel va pouvoir répondre à ta question:
 http://www.bragelonne.fr/forum [...] php?t=4827

procole
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 14/07/2007 à 08:05:47  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

Pat Garett a écrit :

Salut

 Ce logiciel va pouvoir répondre à ta question:
 http://www.bragelonne.fr/forum [...] php?t=4827
 



 bonjour
 cette application aussi (non testée)
 http://perso.orange.fr/hypopolo/occur/document.htm


---------------
En dernier recours il reste toujours le marteau !
 Page :
1

Aller à :
 

Sujets relatifs
Transformer un texte word en image Word Insertion d'un objet représentant un ciseau
pb transfert de code postal d'excel a word Comment fusionner un document Word avec Excel ?
Police par défaut dans Word??? Où trouver un CD WIN XP OEM?
Plus de sujets relatifs à : word : trouver le mot le plus utilisé d'un texte

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
EXCEL[ Variation avec zeros] 1
Ouvrir des fichiers ods et odt [Résolu] 9
Word - récupérer un fichier de opens office 3
comment utiliser une liste d'excel dans word 4
j2se runtime environment 2