Code VBA pour formule NB.SI.ENS

Bonjour,

Je recherche un code VBA pour la formule

Code:

---

NB.SI.ENS(C23:C30;"";B23:B30;"<"&AUJOURDHUI()-30;A23:A30;"<>"&"")

---

ceci afin d'afficher le résultat dans un MsgBox.


Merci.

Bonne journée.

Un petit essai.... qui ne fonctionne pas !!

Code:

---

1 2 3 4 5 6 7

Sub TEST() Dim Nb_Lignes_vides()   Nb_Lignes_vides = Application.CountIfs(Range("C23:C30"), "", Range("B23:B30"), "<" Date() - 30, Range("A23:A30"), "<> ") MsgBox Nb_Lignes_vides   End Sub

---

Salut

1. Il ne faut pas de parenthèses dans la déclaration de nb_lignes_vides;
2. il ne faut pas d'espace dans l'expression de la condition sur A23:A30: "<> " ==>> "<>";
3. Il faut soitmultiplier la date par 1 pour la transformer en numérique, soit la formater en anglo-saxon car VBA comprend les dates en anglais (Format(Date - 30, "mm/dd/yyyy") ou Format(Date - 30, "yyyy/mm/dd")).

Code:

---

1 2 3 4 5 6 7

Sub TEST1() Dim Nb_Lignes_vides   Nb_Lignes_vides = Application.CountIfs(Range("C23:C30"), "", Range("B23:B30"), "<" & (Date - 30) * 1, Range("A23:A30"), "<>") MsgBox Nb_Lignes_vides   End Sub

---

Un grand merci.

Bonne journée