Compter sans doublons avec condition

Bonjour, s'il vous plait j'aimerais votre aide concernant ce qui suit:

Je veux compter le nombre de codes à qui correspond la valeur "complet". C'est à dire pour toute cellule contenant la valeur "complet", compter le nombre de codes correspondant mais sans doublons.

Dans mon fichier j'ai :

et j'aimerais que ça me retourne 2, car on a un code ayant comme état "complet" qui se répète deux fois pour le code 1234.

Bonjour,

Un exemple à adapter.

Cdlt.

Salut,

Je t'ai testé un truc, en espérant que ça corresponde à ce que tu voulais.

bonne soirée,

Girodo

Bonjour, merci de votre aide.

Or jusqu'à présent j'arrive pas à avoir le résultat escompté. Je crois que je me suis mal expliqué.

En effet, j'ai une liste dynamique de codes (dont je récupère la longueur depuis VBA), dans une autre colonne les états, j'aimerais que ça me retourne le nombre de codes sans prendre en compte la présence de doublon de code ayant pour état "complet".

Voilà j'ai fait une tentative sur VBA mais ça ne marche pas ça me retourne 0:

voici le code:

Sub compter_uniques()

Dim unique As New Collection
Dim lastrow As Integer
Dim BIL As Worksheet
Dim D As Worksheet
Dim ArticleHB As String

On Error Resume Next

Set D = Worksheets("DATA")
Set BIL = Worksheets("Bilancache")

ArticleHB = "complet"

lastrow = D.Range("F3").End(xlDown).Row

For Each cel In D.Range("F3:F" & lastrow)
'For i = 4 To lastrow
    If D.Cells(cel.Row, 7).Value = ArticleHB Then
    unique.Add cel.Value, CStr(cel.Value)
    End If
'Next i
Next cel

BIL.Cells(13, 6).Value = unique.Count

End Sub

help svp !

Bonjour,

Un nouvel essai.

Cdlt.

C'est bon ça marche à merveilles merci !