Compter nombre de mots différents sur une page de cellules

Bonjour,

Je suis à la recherche d'une formule qui me permettrais de compter le nombre de valeurs texte différentes sur plusieurs colonnes à la fois.

Je ne sais pas si c'est un code VBA serait le plus approprié mais je ne trouve aucune formule excel pour compter le nombre d'occurences différentes sur plusieurs plage de cellules ..

Je vous joins un fichier pour vous expliquer ce que je veux

Un grand merci pour votre aide !!

Bonjour,

comme ceci, mais pour le premier je trouve 5 puisque la formule compte aussi NA (qu'il faudrait donc supprimer de la matrice pour ne pas compliquer la formule !!

Tulipe pourrait facilement trouver une formule matricielle unique !!

Bonjour,

et en J5, ceci irait ?

=SOMMEPROD((ESTTEXTE(B5:I14)*1))

P.

Patrick,

pour ma part j'ai cherché le nombre de textes différents !!

attendons le verdict du client !

bonjour

la voici ;la voila ;enfin..... normalement

=SOMME(SIERREUR(1/(NB.SI(B5:I14;B5:I14)*SIERREUR(ESTTEXTE(B5:I14);"")*1);""))

qui fait bien 5

matricielle tridactyle

cordialement

ou alors plus fialbe

=SOMME(SIERREUR(1/SI(NB.SI(B5:I14;B5:I14)*SIERREUR(ESTTEXTE(B5:I14);"")>0;NB.SI(B5:I14;B5:I14)*SIERREUR(ESTTEXTE(B5:I14);"")*1);""))

Ah ben voilà une formule lyrique. Au moins cette fois-ci, pas de possibilité de TCD. C'est encore le carbu de la voiture ancienne et pas l'injecteur de la voiture moderne, mais j'aime cela !

Une question, pourquoi faire appel à ESTTEXTE ? dans mon exploration détaillée je n'en avais pas eu besoin !

re

bah;; comme il ya des chiffres dans la plage ........ pour etre sur des les escamoter ;

cordialement

les tdc :c'est pour les gosses mais avec l'adjonction d'une colonne "moulinante" peu etre que ......

Bonjour

en VBA avec une fonction aussi

=NbUnik(B5:I14)

P.

Option Explicit
Function NbUnik(Rng As Range)
Dim D1
Dim C As Range
With Rng
   Set D1 = CreateObject("Scripting.Dictionary")
   For Each C In Rng
      If Application.WorksheetFunction.IsText(C.Value) Then 
         If Not D1.exists(C.Value) Then
            D1(C.Value) = D1(C.Value) + 1
         End If
      End If
   Next C
End With
NbUnik = D1.Count
End Function

salut patrick

chouette;mais

il eut tété pertinant d'indiquer comment installer la tente (alt f11>>>insersion module .......) et de dire que ça ne marche pas partout

cordialement

wouaa merci beaucoup pour vos réponses !

Merci tulipe_4, ta formule marche à la perfection, exactement ce que je voulais

Et merci Patrick pour le code VBA ça marche aussi très bien !

Je suis vraiment imprésionnée par la rapidité et la qualité de vos réponses

Merci encore

merci

classic mais chic

cordialement

patrick1957 a écrit :

Bonjour

en VBA avec une fonction aussi

=NbUnik(B5:I14)

P.

...
         If Not D1.exists(C.Value) Then
            D1(C.Value) = D1(C.Value) + 1
         End If...

Patrick,

je ne suis pas encore très familier avec les dico

Pourquoi D1(C.Value) = D1(C.Value) + 1 et pas simplement D1(C.Value) = 1

Patrick,

je ne suis pas encore très familier avec les dico

Pourquoi D1(C.Value) = D1(C.Value) + 1 et pas simplement D1(C.Value) = 1

Je rame énormément avec les dico ....

Mais d'après mes exemples ici, et on le voit au résultat, pour une clé précise ça compte le nombre d'éléments de celle-ci..

Voir le très bon site de J. Boisgontier

Rechercher des sujets similaires à "compter nombre mots differents page"