VBA fonction nb.si

Bonjour,

est-ce que quelqu'un peut m'aider à écrire deux macros qui traduisant la fonction nb.si

dans une feuille "bilan" je souhaite déterminer dans la cellule "B12" le nombre de cellule de la colonne "C18:C" (jusqu'a la dernière ligne non vide) dont la valeur est < 0 (et dans une autre macro dont la valeur est comprise entre 3 et 7)

Merci pour votre aide

FD

Bonsoir

une proposition :

Sub formule()
Dim Dl As Integer

   Dl = Range("C" & Rows.Count).End(xlUp).Row
   [B12].Formula = "=COUNTIF(C18:C" & Dl & ","">=3"")-COUNTIF(C18:C" & Dl & ","">7"")"
   [B13].Formula = "=COUNTIF(C18:C" & Dl & ",""<0"")"

End Sub

Fred