Compter valeur unique sous conditions

Bonjour,

Je travaille sur un fichier dans lequel je dois compter le nombre d'OF (ordre de fabrication) unique par mois et par ligne de production.

J'ai environ 80 000 lignes donc il me faut un calcul automatique qui ne compte qu'un fois chaque OF par mois et par ligne de prod.

Je mets en PJ un petit exemple avec les valeur qu'il faut trouver.

Merci

Nathan

Bonjour,

Une solution TCD (modèle de données) à adapter.

Cdlt.

Bonjour,

Une proposition par fonction personnalisée (je crains qu'une formule matricielle ne ralentisse trop).

On peut aussi tout calculer en une seule fois pour plus de rapidité.

Function nbOF(ligne As Range, mois As Range, tableau As Range)
Dim Data, dico As Object
    Data = tableau.Value
    Set dico = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(Data)
        If Data(i, 1) = mois.Value And Data(i, 2) = ligne.Value Then dico(Data(i, 3)) = ""
    Next
    nbOF = dico.Count
End Function

edit :

2- Hé bien merci, je ne connaissais pas total distinct !

Merci à vous deux pour vos réponses rapide,

les deux fonctionnent mais je vais pour le moment éviter des maccros dans mon fichier.

Merci encore

CDLT

NATHAN

Tu as doublement raison !

D'abord parce que le calcul se fera en une seule fois par actualisation du TCD

Ensuite, quand on peut éviter VBA il faut le faire et utiliser les outils standards des feuilles excel