Discussion :

[pilpoil]

Bonjour,

J'ai une feuille excel avec une liste de produits. Un même produit peut apparaître sur plusieurs lignes.

Je souhaite compter le nombre de produits différents. Est-ce possible de faire quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SOMME SI (A1:A200 est unique; + 1 sinon rien

Merci pour votre aide.

[flo_flo]

Bonjour

Tu peux passer par un filtre élaboré pour éliminer les doublons, (Données, Filtre, Filtre amélioré) pour récupérer dans une plage de cellules la liste de tes items sans doublons. Une formule avec NB.SI te donne ensuite le nombre d'items

Mais il doit y avoir plus rapide avec une seule formule

[jfontaine]

Une solution en 2 parties

1. Dans une colonne mettre la formule suivante qui donnera un rang a chaque valeur (ici mon tableau s'arrete en ligne 3 et la valeur a compter est en colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI($A1:$A$3;A1)

2. on compte le nombre de 1 de cette nouvelle colonne se qui nous donne le nombre de valeur unique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(B1:B3;1)

[random]

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function ndiffer(ParamArray x() As Variant) As Long
Dim princ As Variant
Dim sec As Variant
Dim macoll As New Collection
Dim total As Integer
For Each princ In x
On Error Resume Next
If VarType(princ) > 8192 Then
    For Each sec In princ
    macoll.Add Item:=1, key:=sec
    Next sec
Else
macoll.Add Item:=1, key:=princ
End If
Next princ
On Error GoTo 0
ndiffer = macoll.Count
End Function

[ullan]

Bonjour,

Par formule :

S'il n'y a pas de cellules vides :
=SOMMEPROD(1/NB.SI(A1:A10;A1:A10))

S'il y a des cellules vides :
=SOMMEPROD(SI(A1:A10<>"";1/NB.SI(A1:A10;A1:A10)))
formule matricielle à valider par Ctrl+Maj+Enter

Dans les deux cas, la plage A1:A10 est à adapter suivant besoins.

[pilpoil]

Devant cette profusion de solution qui ne nuit à rien, je me demande si je ne vais pas attendre encore un peu.

En tout cas merci, on m'a conseillé de venir sur ce forum, je ne le regrette pas.
Rapidité, clarté.
Mon problème est résolu.

Je commence par cette solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD(SI(A1:A10<>"";1/NB.SI(A1:A10;A1:A10)))

Ne connaissant pas les fonctions, je vais tester celle-ci aussi pour en comprendre le fonctionnement.

Merci à tous