Comptage Valeur distinctes

slap33

XLDnaute Nouveau
Bonjour,


je cherche à faire un truc tout bête. J'ai pas mal chercher sur les diff forums sans succès.

Rien de tel qu'un exemple : répartition du nb d'inscrits par sexe (H/F), couleur de cheveux et caractère.

18/12/2006 H Brun Sympa 3
18/12/2006 H Blond Con 5
18/12/2006 F Chauve Sympa 1
18/12/2006 H Chauve Sympa 7
19/12/2006 H Blond Sympa 6
19/12/2006 H Chauve Con 2
19/12/2006 F Blond Con 4
19/12/2006 F Chauve Sympa 6
19/12/2006 F Chauve Con 5
19/12/2006 H Blond Con 7
19/12/2006 F Blond Sympa 1
19/12/2006 H Chauve Sympa 9

Je cherche une formule qui me donne le nombre moyen d'inscrits par jour.

Il me faut donc le somme de la dernière colonne. Jusqu'ici je gère.
Mais il me faut ensuite une formule qui me dise quand dans ma première colonne, j'ai "2" valeurs distinctes : 56 que divise 2 = 28 inscrits/jour.

N.B. je sais qu'on peut avoir ça très facilement via TCD, mais hélas, le TCD ne permet pas de répondre au format de report qui m'est demandé...

Merci d'avance

re PS : la fonction VB suivante a été proposé dans un post mais elle ne fonctionne pas chez moi :-(

Function NbValUnique(laPlage As Range)
Dim ValeursUnique As New Collection

On Error Resume Next
For Each cell In laPlage
If cell.EntireRow.Hidden = False Then
ValeursUnique.Add cell.Value, CStr(cell.Value)
End If
Next cell
On Error GoTo 0

NbValUnique = ValeursUnique.Count

End Function
 

JCA06

XLDnaute Occasionnel
Re : Comptage Valeur distinctes

Bonjour le Forum, bonjour slapp33,

Tu dis que tu sais qu'on peut obtenir cela avec un TCD mais que cela te pose un problème de présentation.
Tu peux alors simplement utiliser un TCD pour synthétiser les données, puis placer les formules dans ton document de report qui vont chercher l'information dans le TCD.
Il existe pour cela la fonction suivante :
LIREDONNEESTABCROISDYNAMIQUE(tableau_croisé_dyn;nom)

Donne plus de détail sur ce que tu dois reporter pour t'expliquer davantage.

A plus.
 

slap33

XLDnaute Nouveau
Re : Comptage Valeur distinctes

Oui j'ai aussi pensé au TCD servant de support au report mais je trouve la solution Formule plus "limpide". :-/

Mon fichier en pièce jointe et grand merci pour le coup d'main.

Cf dans mon fichier la cellule Report!.C5 dans laquelle j'ai mis un petit commentaire.
 

slap33

XLDnaute Nouveau
Re : Comptage Valeur distinctes

ayé j'viens de piger ta manip :)


c'est de la (belle) bidouille mais ça me donne le résultat attendu donc c'est cool.

C'est quand même étonnant qu'il n'existe pas une formule permettant de déterminer le nb de valeurs distinctes, mais bon... :)