Magic_Doctor
XLDnaute Barbatruc
J'imagine qu'on peut faire plus simple.
VB:
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