VBA - Comptage sur 2 critères

Bonjour à tous,

Je souhaite faire un petit bout de code tout bête à première vue mais impossible de faire un truc qui marche.

Je souhaite compter le nombre de ligne ou sont présentes 2 valeurs.
Je veux éviter de passer par un code qui balaie toute la plage de données et avais donc pensé aux solutions suivantes :

Code:

---

Nb = WorksheetFunction.SumProduct((Worksheets("MODELE").Columns("B:B") = Valeur1) * (Worksheets("MODELE").Columns("J:J") = "Forbidden"))

---

ou

Code:

---

Nb = Evaluate((WorksheetFunction.CountIf(Worksheets("MODELE").Columns("B:B"), Valeur1)) * worksheetFunction.CountIf(Worksheets("MODELE").Columns("J:J"), "Forbidden")))

---

La première ne fonctionne pas et me donne une erreur type mismatch
La seconde n'est pas en erreur mais me remonte le nombre de ligne où sont presentes chaque critère et pas uniquement le comptage des lignes où sont présents les 2 critères en parallèle ...

Ca ne m'a pas l'air impossible, enfin j'espère pour Excel, mais je n'arrive pas à trouver de solutions.

Merci d'avance pour votre aide,

Julien

Bonjour,
Pas besoin de VBA pour cela, la formule SOMMEPROD peut le résoudre. Si tu veux vraiment le faire avec VBA, tu utilises la même formule avec Evaluate

Bonjour,

Merci pour ton retour,

Il me faut absolument du VBA.

J'essaye ca mais j'ai un message d'erreur subscript out of range

Nb = Evaluate(WorksheetFunction.SumProduct(Worksheets("MODELE").Range("B1:B1000"), Valeur1 * Worksheets("MODELE").Range("J1:J1000"), "Forbidden"))

Bonjour,
Tu mélanges deux syntaxes qui n'ont rien à voir l'une avec l'autre
EVALUATE s'utilise avec une chaîne de caractères contenant la formule Excel telle qu'elle est écrite dans Excel mais traduite en anglais alors que WorksheetFunction renvoie une valeur calculée par une méthode choisie. Méthode qui est une formule d'excel dont il n'y a aucune équivalence dans les fonctions VBA comme par exemple Left (Gauche)
Exemple pour la somme de la plage A2:A6

Code:

---

1 2	Debug.Print Evaluate("=SUM(A2:A6)") Debug.Print Application.WorksheetFunction.Sum(Range("A2:A6"))

---

D'accord pour la structure du Evaluate.

J'ai tenté ca :

Code:

---

Nb = Evaluate("COUNTIFS(E:E;" & Valeur & ";J:J;""Forbidden"")")

---

Mais la valeur renseignée dans Nb est Error 2015

EDIT : Pb résolu, en remplacant les ; par , les valeurs remontées sont correctes.

Merci pour ton aide.