=DCount("*";"[R_EVA1]";"[MOY1]>" & NumberUS([MOY1]))+1
private Function DecimalSep() As String DecimalSep = Mid$(1 / 2, 2, 1) End Function Function NumberUS(ByVal varValue As Variant) As String NumberUS = Replace(Str(varValue), DecimalSep(), ".") End Function
=DCount("*";"[R_EVA1]";"round(1000*[MOY1],0)> " & Round(1000*[MOY1];0))+1