Fonction nombre SI VBA

bonjour
ceci va peut etre te mettre la puce a l'oreille
testé sur ton fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
    Dim dico As Object,f as worksheet,i as long,elem
    Set f = Sheets(1)
    Set dico = CreateObject("scripting.dictionary")
    For i = f.Cells(Rows.Count, "D").End(xlUp).Row - 1 To 4 Step -1
        If Not dico.exists(f.Cells(i, "D").Value) Then
            dico(f.Cells(i, "D").Value) = i & ":"
        Else
        dico(f.Cells(i, "D").Value) = Split(dico(f.Cells(i, "D").Value), ":")(0) & ":" & Val(Split(dico(f.Cells(i, "D").Value), ":")(0)) - i
 
        End If
 
    Next
    MsgBox f.Cells(4, "D").Value
    For Each elem In dico
        Debug.Print elem & "  derniere ligne =" & Split(dico(elem), ":")(0) & " il y a  " & Split(dico(elem), ":")(1) & " occurences"
    Next
End Sub

resultat

Pièce jointe 486804

pose toi la question "pourquoi instruit il le dico a l'envers et boucle t il a l'endroit ";)
si la tu sais pas un autre bon samaritain va peut etre te le dire ;)