problème dans du code en VBA dans une macro

Bonjour,

J'aimerai bien savoir le problème dans le code suivant en rouge:

Code:

---

1 2 3 4 5 6

Range("C44").Select If SUM('Feuil1'!B11,'Feuil1'!C11,'Feuil1'!B12,'Feuil1'!C12) >= SUMPRODUCT((('Feuil1'!I17:I19729=""DON"")+('Feuil1'!I17:I19729=""DER"")+('Feuil1'!I17:I19729=""DTG""))*('Feuil1'!E17:E19729=30)) Then ActiveCell.Formula = etc.... else ....... end if

---

Merçi d'avance.

Cdt,
SKIP

Bonjour,

Essai plutot comme cela

Code:

---

if application.WorksheetFunction.Sum(range("B11:B12")) >= etc

---

Bonjour jérôme,

Je voulais te dire que mon code est dans un autre onglet que "Feuil1"
et l'onglet "Feuil1" a un autre nom soit "onglet1" par exemple.
Si tu peux m'expliquer le code que tu m'a donné ou m'orienter ça sera vraiment bien.

Cdt,
SKIP

si on reprend la formule de ton premier poste, ca donnerait ca.
Je n'ai pas testé si cela fonctionne mais inspire toi du code et de F1 pour des informations sur les instructions utilisées

Code:

---

1 2 3

if application.WorksheetFunction.Sum(Sheets("Feuil1")range("B11:B12")) >= Application.WorksheetFunction.SumProduct(((sheets("Feuil1").range("I17:I19729").value="DON")+(sheets("Feuil1").range("I17:I19729").value="DER")+(sheets("Feuil1").range("I17:I19729").value="DIG"))*(Sheets("Feuil1").range("E17:E19729").value=30))

---

ça ne marches pas.
Tu ne vois pas d'où provient le problème.

Cdt,
SKIP

As tu essayé la formule du sumproduct dans une cellule pour voir si cela fonctionne

j'ai pas compris ce que tu veux dire, normalement quand j'exécute la Macro, j'ai une erreur d'exécution 13.

CDT,
SKIP