Bonsoir à tous,
A priori la solution de @papyg ne permet pas de dépasser 0,90.
il faudrait =NB.SI(B:B;0,1*LIGNE(C2))
ce qui est plus simple que la macro ci jointe puisqu'elle est faite:
Sub GJC()
Dim T, i As Double, Dico, MonTab, Cel as Range
With Worksheets(" 2019") ' il y a un espace devant "2019"
Set Dico = CreateObject("Scripting.Dictionary")
For i = 0.2 To 20.2 Step 0.1
Dico(CStr(Round(i, 1))) = 0
Next
T = .Range("B3:B" & .Range("A" & Rows.Count).End(xlUp).Row)
For i = LBound(T) To UBound(T)
Dico(CStr(T(i, 1))) = Dico(CStr(T(i, 1))) + 1
Next
MonTab = Application.Transpose(Array(Dico.keys, Dico.Items))
.Range("D3").Resize(UBound(MonTab, 1), UBound(MonTab, 2)) = MonTab
For Each cel In .Range("D3:D" & 3 + Dico.Count)
cel.Value = CDbl(cel.Value)
Next
End With
End Sub
A+