Nombre de cellules distinctes par categorie

Bonjour a tous,

J'ai effectué pas mal de recherches sur ce forum et impossible de trouver la réponse.

J'ai mis en pièce jointe ma bdd (très très simplifiée):

le tableau contient les numéros de commandes traités par une personne, les numéros de commande se répètent car il y a plusieurs références dans une commande.

Je voudrai savoir combien de numéros de commande différents la personne "a" a traité, et que ça me l'indique en colonne C (sur toutes les lignes qui ont les commandes de la personne "a"). Et ainsi de suite, pour la personne "b"...

Je ne sais pas si je suis très claire...

Merci d'avance pour votre réponse,

Marguerite

Bonjour,

insère ce bout de code dans le module de ta feuille 1

et depuis la fenêtre VBA, sélectionne :

Outils, Références et coche Microsoft Scripting Runtime

Sub try()

Dim aa As Variant, nn As Variant
Dim myRange As Range
Dim Dico As Object
Dim a As Long, b As Long, c As Long

Application.ScreenUpdating = False
Set Dico = CreateObject("scripting.dictionary")

If Not IsEmpty(Range("B2")) Then
    Set myRange = Range(Range("A2"), Range("B2").End(xlDown))
    myRange.Offset(, 2).Resize(myRange.Rows.Count, 1).ClearContents
    aa = myRange

    For a = LBound(aa) To UBound(aa)
        Dico(aa(a, 1)) = (aa(a, 2))
    Next a

    nn = Dico.Items
    a = 2
    Do Until IsEmpty(Cells(a, 2))
        For b = 0 To Dico.Count - 1
            If nn(b) = Cells(a, 2).Value Then c = c + 1
        Next b
        Cells(a, 3) = c
        c = 0
        a = a + 1
    Loop
End If
Set Dico = Nothing
Application.ScreenUpdating = True
End Sub

Bonjour @ tous,

Salut Game Over,

en C2,

=SOMMEPROD((B$2:B$15=B2)/NB.SI(A$2:A$15;A$2:A$15))

@ tirer vers le bas

@ + +

Merci beaucoup a tous les deux, les 2 solutions marchent!