Compter mots identiques

[jeanphi]

Bonjour à tous

Dans le fichier joint, je souhaiterais pouvoir compter les mots identiques de la colonne E et avoir un récapitulatif dans une autre feuille du classeur (ex CACTUS = 7 occurrences)
Quelqu'un peut t'il m'aider? Faut t'il faire une macro, une fonction? 😕

 

[job75]

Re : Compter mots identiques

Bonjour jeanphi,

La formule pour rechercher toutes les occurences de "CACTUS" :

=NB.SI(Sheet1!E:E;"*CACTUS*") & " occurrence(s)"

ou si le mot recherché est en cellule A1 :

=NB.SI(Sheet1!E:E;"*"&A1&"*") & " occurrence(s)"

A+

 

[jeanphi]

Re : Compter mots identiques

bonjour job

excellent, c'est parfait!
merci et bon week end 🙂

 

[jeanphi]

Re : Compter mots identiques

rebonjour

je voudrais aller encore plus loin et savoir s'il est possible via une macro de connaitre directement le nombre de chaque occurrence en remontant le nom de l'occurrence (ex: 8 toto, 2 tata, 15 titi....)
est ce possible??? 🙄

 

[CISCO]

Re : Compter mots identiques

Bonjour

Est-ce qu'il te faut chaque mot séparément, ex ALPES, ou chaque groupe de mots, ex ALPES NYMPHEA total, séparément ?

Combien de lignes comporte ton fichier réel ?

@ plus

 

[klin89]

Re : Compter mots identiques

Bonsoir le forum 🙂
Bonsoir jeanphi, job75, CISCO

Dans ce fil, vois les différentes fonctions personnalisées de pierrejean, soenda et ROGER2327.

Dans ton cas, une occurence peut figurer plusieurs fois dans une même cellule.

https://www.excel-downloads.com/threads/vba-compter-1-occurence-dans-une-plage-dynamique.133061/

Klin89

PS : A mes yeux, la fonction personnalisée de pierrejean est la plus adaptée, vu la disposition dans tes cellules.

 

[CISCO]

Re : Compter mots identiques

Bonjour à tous

Une solution en pièce jointe, uniquement avec des formules, avec quelques colonnes intermédiaires, à vérifier et à adapter au fichier réel.

@ plus

 

[BOISGONTIER]

Re : Compter mots identiques

Bonjour,

Voir PJ

Sub Essai()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("e9", [e65000].End(xlUp))
    a = Split(c.Value, " ")
    For k = LBound(a) To UBound(a)
      If a(k) <> "" Then mondico.Item(a(k)) = mondico.Item(a(k)) + 1
    Next k
  Next c
  [h2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [i2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
  Range("H2:I200").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess
End Sub

JB

 

[jeanphi]

Re : Compter mots identiques

bonjour à tous

et merci pour votre aide!!
merci jacques c'est parfait!!
🙂

 

[Hildar]

Re : Compter mots identiques

Bonjour à tous

J'ai un fichier avec des noms de participants a mes activités pour chaque mois, je suis en train de faire un fichier de synthèse de ce tableau, pour un rapport d'activité.

Hors j'ai des noms qui reviennent sur plusieurs mois, mais je voudrais calculer le nombre de personnes qui viennent à mes activités. Seulement, d'un mois à l'autre il y a des noms qui reviennent.

J'ai donc penser calculer le nombre de personnes total (avec les reptitions) et lui soustraire les occurrences. Hors je ne sais pas comment faire pour que excel calcule automatiquement les mots répétés ?

Une idée ?

D'avance merci, car je galère sur ce rapport et je ne me vois pas compter à la main.

 

[CISCO]

Re : Compter mots identiques

Bonsoir

Le début du travail en pièce jointe. A généraliser à plus de listes...

Si ce n'est pas ce dont tu as besoin, détailles davantage ta demande et mets un fichier simplifié en pièce jointe, STP.

@ plus

 

[Hildar]

Re : Compter mots identiques

En fait j'avoue être un novice. Et je n'y comprends pas grand chose mais voici mon tableau en partie.

J'aimerais compter le nombre d'adhérent sur tous les tableaux en evitant les répétitions de noms.

D'avance merci.

 

[job75]

Re : Compter mots identiques

Bonjour Hildar, CISCO, le fil,

Eh bien dites donc 🙂

Formule matricielle en B138 :

=SOMME(SI(ESTTEXTE(A5:A133)*ESTERR(DATEVAL(1&A5:A133))*(A5:A133<>"Nom  Prénom")*(A5:A133<>"Nbre d'adhérent");1/NB.SI(A5:A133;A5:A133)))

A valider par Ctrl+Maj+Entrée

Fichier joint.

A+

 

[Hildar]

Re : Compter mots identiques

merci beaucoup, je n'ai pas trop compris la formule mais comment se fait il qu'elle ne prenne pas en compte les cellules ou il est inscrit nom prénom ?

 

[job75]

Re : Compter mots identiques

Re,

A méditer : (A5:A133<>"Nom Prénom")

A+