D
DomLyon
Guest
Bonjour,
J'ai vu dans le forum quelques questions concernant le calcul entre deux valeurs, voici un code VBA qui fonctionne:
cette fonction renvoie le nombre de cellule de la plage Zn dont la valeur est supérieure ou égale à nb1 ou égale à nb2
cette fonction nécesite trois paramètres:
zn: référence à une zone donnée
nb1: limite inférieure
nb2: limite supérieure
Function NBENTRE(zn,nb1, nb2)
'calcul le nombre de valeurs comprises entre nb1 et nb2
Dim NbCellules As Integer
Dim Cellule As Range
Set zn= Intersect(zn.Parent.UseRange. zn)
NbCellules = 0
For Each cellule In zn
If cellule.value>= nb1 And cellule.value <= nb2 Then NbCellules= NbCellules + 1
Next cellule
NBENTRE = nbCellules
End Function
Voilà et bon Noël
DB
J'ai vu dans le forum quelques questions concernant le calcul entre deux valeurs, voici un code VBA qui fonctionne:
cette fonction renvoie le nombre de cellule de la plage Zn dont la valeur est supérieure ou égale à nb1 ou égale à nb2
cette fonction nécesite trois paramètres:
zn: référence à une zone donnée
nb1: limite inférieure
nb2: limite supérieure
Function NBENTRE(zn,nb1, nb2)
'calcul le nombre de valeurs comprises entre nb1 et nb2
Dim NbCellules As Integer
Dim Cellule As Range
Set zn= Intersect(zn.Parent.UseRange. zn)
NbCellules = 0
For Each cellule In zn
If cellule.value>= nb1 And cellule.value <= nb2 Then NbCellules= NbCellules + 1
Next cellule
NBENTRE = nbCellules
End Function
Voilà et bon Noël
DB
