Comptabiliser des valeurs textes puis donner leur fréquence

djidji59430

XLDnaute Barbatruc

• 19 Février 2015

• #2

Re : Comptabiliser des valeurs textes puis donner leur fréquence

lateralus18 à dit:

Bonjour,

Je suis prêt à vous donner tous les renseignements techniques qu'il faudra.
Merci par avance !
Anthony

Cliquez pour agrandir...

Bonjour,

Dans ce cas la, joindre un fichier test (aller en mode avancé==>Gérer les PJ)

 

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #3

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Bonjour,
pourquoi ne pas créé un tableau croisé dynamique qui te donnerait très rapidement et simplement la réponse.
ou alors il y a toujours cette bonne vieille formule : =NB.SI(CHAMP;"mot")

 

Vote positif 0 Vote négatif

L

lateralus18

Guest

• 19 Février 2015

• #4

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Alors j'ai fais une feuille avec quelques entrées de films et les trois colonnes de comédiens.
Je n'ai pas réussi avec le tableau croisé dynamique, peut-être je ne sais pas exactement comment procéder ?

Cette formule m'oblige à entrer à chaque fois le nom du comédien. Or au final il y en aura au moins 300, d'où l'intérêt d'automatiser la chose.

 

Pièces jointes

• essaibasededonnées.xlsx

  45.4 KB · Affichages: 38
• essaibasededonnées.xlsx

  45.4 KB · Affichages: 47
• essaibasededonnées.xlsx

  45.4 KB · Affichages: 55

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #5

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Le fichier de départ est mal bati j'ai repris ton fichier et regarde ce que sa peut donner et dit moi si cela correspond à tes attentes?

 

Pièces jointes

• essaibasededonnées.xlsx

  19.5 KB · Affichages: 39
• essaibasededonnées.xlsx

  19.5 KB · Affichages: 46
• essaibasededonnées.xlsx

  19.5 KB · Affichages: 57

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Février 2015

• #6

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Bonjour,

Voir PJ

Sélectionner G2:H32
=frequencetexte(A210)
Valider avec maj+ctrl+entrée

Fonction perso à placer dans un module: Alt+F11 puis Insertion/Module

Code:

Option Compare Text
Function FrequenceTexte(champ As Range)
  Set d1 = CreateObject("Scripting.Dictionary")
  d1.CompareMode = vbTextCompare
  temp = champ
  For Each c In temp
    If c <> "" Then d1(c) = d1(c) + 1
  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)
  FrequenceTexte = b
End Function

JB
Formation Excel VBA JB

 

Pièces jointes

• essaibasededonnées-1.xls

  47 KB · Affichages: 41

Dernière édition: 19 Février 2015

Vote positif 0 Vote négatif

L

lateralus18

Guest

• 19 Février 2015

• #7

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Merci pour votre aide.
Tibo62 : c'est une solution efficace mais la base de données fait déjà 300 titres, elles devraient arriver à 1500 ! Je ne peux pas créer encore plus de lignes par film.
Boisgontier : je n'ai pas compris ! Que dois-je faire ?

Je me rends compte que je dois transformer mon "simple" tableau en vrai base de données excel. Peut-être cela pourrait m'aider ?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Février 2015

• #8

Re : Comptabiliser des valeurs textes puis donner leur fréquence

Bonsoir,

>Boisgontier : je n'ai pas compris ! Que dois-je faire ?

Ecrire la formule peut être?

Sélectionner G2:H32
=frequencetexte(B2😀10)
Valider avec maj+ctrl+entrée

Il n'y a pas besoin de BD

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionFrequenceDico2.xls


JB

 

Dernière édition: 19 Février 2015

Vote positif 0 Vote négatif