Compter les dossiers complets

Bonjour le forum !

Je me creuse la tête depuis des heures sur un truc tout bête !!

J'ai un tableau dans lequel je note la réception de pièce justificative pour une demande X.

Chaque personne peut formuler plusieurs demandes. Chaque personne correspond donc à un unique dossier.

Si une personne fait 3 trois demandes, et qu'il manque une pièce justificative dans l'une des trois, son dossier n'est pas complet.

Comment pourrais-je donc calculer uniquement les dossiers complets ?

Voici mon code pour le moment

Sub COMPTER()

Dim i, k As Integer

k = 0

 For i = 2 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 5).Value <> "" And Cells(i, 1).Value <> Cells(i + 1, 1).Value Then
        k = k + 1
    Else
        k = k
    End If
 Next i

 MsgBox k

End Sub

Je voudrais absolument utiliser VBA.

Merci par avance !!

Salut,

Voici une possibilité.

Amicalement.

Bonjour,

Salut Yvouille

Les explications sont un peu sommaires, pour être certain d'avoir compris D'ailleurs Yvouille et moi obtenons des résultats différents

Un dossier est identifié par le n° en colonne A ?? Ou ce n° identifie une personne ?

Pour déterminer si un dossier est complet, on se base sur la mention en colonne E ?

Si la réponse est oui aux 2 questions, teste:

Sub COMPTER()

Dim i As Long, x As Long, k As Integer, cpt As Integer

tablo = Feuil1.Range("A2:E" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(tablo)
    k = 0
    For x = i To UBound(tablo)
        If tablo(i, 1) = tablo(x, 1) And tablo(x, 5) = "COMPLET" Then k = k + 1
    Next x
    If k = Application.CountIf(Feuil1.Range("A2:A" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row), tablo(i, 1)) Then cpt = cpt + 1
Next i

MsgBox cpt & " dossier(s) complet(s)"

End Sub

Salut U. Milité,

U. Milité a écrit :

D'ailleurs Yvouille et moi obtenons des résultats différents

Non, en fait je n'en sais rien. Mais bon, le membre voudrait trouver le résultat de 1 dossier et je trouve 1 dossier avec mon code.

Chaleureusement.

Bonjour à vous deux,

Un grand merci pour vos propositions.

Le numéro correspond au dossier d'une personne. Une personne est un dossier en gros

C'est résolu, merci encore !