Recherche & référence NbChiffresDansIntervalle

[Magic_Doctor]

J'imagine qu'on peut faire plus simple.

Function NbChiffresDansIntervalle%(plage As Range, ValInf#, ValSup#, Limites As Byte)
'*************************************************
'Renvoie le nombre de chiffres dans un intervalle
'*************************************************
'- plage : la plage de cellules qui contient les chiffres
'- ValInf : borne inférieure de l'intervalle
'- ValInf : borne supérieure de l'intervalle
'- Limites : 1 --> [ ]
'            2 --> [ [
'            3 --> ] ]
'            4 --> ] [

Dim valeur As Range, x#, cpt#

    For Each valeur In plage
        x = valeur.Value
        If Limites = 1 Then
            If x >= ValInf And x <= ValSup Then cpt = cpt + 1
        ElseIf Limites = 2 Then
            If x >= ValInf And x < ValSup Then cpt = cpt + 1
        ElseIf Limites = 3 Then
            If x > ValInf And x <= ValSup Then cpt = cpt + 1
        ElseIf Limites = 4 Then
            If x > ValInf And x < ValSup Then cpt = cpt + 1
        End If
    Next
    
    NbChiffresDansIntervalle = cpt

End Function