Compter le nombre de valeur différentes

K

kjin

XLDnaute Barbatruc

• 27 Février 2011

• #2

Re : Compter le nombre de valeur différentes

Bonsoir,
Edit : Anerie !
kjin

 

Dernière édition: 27 Février 2011

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Février 2011

• #3

Re : Compter le nombre de valeur différentes

Bonjour à tous

Une fonction personnalisée :

VB:

Function valdif&(r As Range)
Dim oCell As Range, oColl As Scripting.Dictionary
  Application.Volatile
  Set oColl = CreateObject("Scripting.Dictionary")
  For Each oCell In r.Cells
    If IsNumeric(oCell) Then If oCell.Value <> 0 And Not oColl.Exists(CStr(oCell.Value)) Then oColl.Add CStr(oCell.Value), oCell.Value
  Next
  valdif = oColl.Count
End Function

​

ROGER2327
#4993

Jeudi 5 Pédale 138 (Saint Ouducul, trouvère, SQ)
9 Ventôse An CCXIX
2011-W08-7T03:29:38Z

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 27 Février 2011

• #4

Re : Compter le nombre de valeur différentes

Bonjour,

Un essai avec une formule matricielle :

Code:

=SOMME(SI(B1:B10<>0;(1/NB.SI(B1:B10;B1:B10))))

Formule matricielle à valider par CTRL + MAJ + ENTREE

@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Février 2011

• #5

Re : Compter le nombre de valeur différentes

Bonjour,

-Si nombres
-Cellules vides acceptées

=NB(1/FREQUENCE(B2:B10;B2:B10))
Valider avec maj+ctrl+entrée

Nombre occurences différentes

JB

 

Dernière édition: 27 Février 2011

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 27 Février 2011

• #6

Re : Compter le nombre de valeur différentes

Bonjour, salut les aitres,

Autre approche matricielle, à valider par Entrée :

Code:

=SOMMEPROD((B2:B10<>0)/NB.SI(B2:B10;B2:B10))

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 27 Février 2011

• #7

Re : Compter le nombre de valeur différentes

Bonjour à tous,

Code:

=SOMME(N(FREQUENCE(SI(B2:B10<>0;B2:B10);B2:B10)>0))

Validation matricielle.
A+

 

Vote positif 0 Vote négatif

Z

zourite

Guest

• 27 Février 2011

• #8

Re : Compter le nombre de valeur différentes

Bonjour david84, BOISGONTIER, Tibo, ROGER2327,hoerwind, kjin !

Merci à tous vos réponses, je suis en phase de test, je garderai la plus rapide des méthodes !!
A priori le code de Roger semble le plus rapide.

Je vous tiendrai au courant quand j'aurai fait mon choix final 🙂

encore merci et bonne journée !!

 

Dernière modification par un modérateur: 28 Février 2011

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Février 2011

• #9

Re : Compter le nombre de valeur différentes

Bonjour,

zourite à dit:

...trouver le nombre de valeurs différentes

Cliquez pour agrandir...

C'est ce qui fait la difference...de fait, je supprime mon message #2
A+
kjin

 

Dernière édition: 27 Février 2011

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Février 2011

• #10

Re : Compter le nombre de valeur différentes

Bonsoir à tous

Une petite modification pour ne pas tenir compte d'éventuels zéros devant les nombres :

VB:

Function valdif2&(r As Range)
Dim oCell As Range, oColl As Scripting.Dictionary
  Application.Volatile
  Set oColl = CreateObject("Scripting.Dictionary")
  For Each oCell In r.Cells
    If IsNumeric(oCell) Then If oCell.Value <> 0 And Not oColl.Exists(CStr(0 + oCell.Value)) Then oColl.Add CStr(0 + oCell.Value), oCell.Value
  Next
  valdif2 = oColl.Count
End Function

Comparaison des différentes solutions dans le classeur joint.​

ROGER2327
#4994

Jeudi 5 Pédale 138 (Saint Ouducul, trouvère, SQ)
9 Ventôse An CCXIX
2011-W08-7T17:38:03Z

 

Pièces jointes

• Compter le nombre de valeur différentes_158942.xls

  37.5 KB · Affichages: 232

Vote positif 0 Vote négatif

Z

zourite

Guest

• 27 Février 2011

• #11

Re : Compter le nombre de valeur différentes

Re ,

Quel travail :O je te remercie, je vais maintenant inévitablement choisir ta deuxième solution qui, répond à tous les cas possibles !
Mille fois merci !

 

Vote positif 0 Vote négatif

Z

zourite

Guest

• 27 Février 2011

• #12

Re : Compter le nombre de valeur différentes

ah,

J'utilise une fonction max :

=MAX(SI((L101:L65536>0)*($K$101:$K$65536="Immobilisation");L101:L65536))

J'aimerai à la place du max utiliser le valdif2, mais ca ne marche pas =/
Aurais tu une idée?

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 27 Février 2011

• #13

Re : Compter le nombre de valeur différentes

Re
suite au fichier de comparaison de Roger 🙄 :

Code:

=SOMME(N(FREQUENCE(SI(SI(ESTERREUR(SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));0;SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));EQUIV(SUBSTITUE(C2:C21;".";",")*1;SUBSTITUE(C2:C21;".";",")*1;0));LIGNE(INDIRECT("1:"&LIGNES(C2:C21))))>0))

Validation matricielle.
A+

Edit : légèrement plus court :

Code:

=SOMME(N(FREQUENCE(SI(SI(ESTERREUR(SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));0;SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));EQUIV(SUBSTITUE(C2:C21;".";",")*1;SUBSTITUE(C2:C21;".";",")*1;0));LIGNE(C1:C21))>0))

ou bien avec NB :

Code:

=NB(1/(FREQUENCE(SI(SI(ESTERREUR(SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));0;SI(C2:C21<>0;SUBSTITUE(C2:C21;".";",")*1));EQUIV(SUBSTITUE(C2:C21;".";",")*1;SUBSTITUE(C2:C21;".";",")*1;0));LIGNE(C1:C21))))

 

Dernière édition: 27 Février 2011

Vote positif 0 Vote négatif

Z

zourite

Guest

• 28 Février 2011

• #14

Re : Compter le nombre de valeur différentes

Salut David84,

De ce que j'ai pu tester, ca marche bien ! Je vais multiplier mes tests et vous tenir au courent !!

Merci !!

A plus tard !!

 

Vote positif 0 Vote négatif

Z

zourite

Guest

• 1 Mars 2011

• #15

Re : Compter le nombre de valeur différentes

Hey !

Etant toujours entrain d'adapter ces solutions à mon cas, j'ai deux question:


@: ROGER2327 : Est-ce que la fonction =valdif2() fonctionne en matricielle? car je n'arrive pas à la faire marcher... j'ai joint un petit fichier ou j'ai mis mon essaie en bleu mais qui me donne une #VALEUR

Code:

=valdif(SI((B3:B22="Bien")*1;L3:L22))

@: David : Est-ce normal qu'à la fin de tes deux dernières formules il y ai :
LIGNE(C1:C21))))

alors que la plage utilisée pour tout le reste de tes formules est (C2:C21)


merci pour vos conseils !

 

Vote positif 0 Vote négatif