Discussion :

[skipeemed]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

Essai plutot comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skipeemed]

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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))

[skipeemed]

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

Cdt,
SKIP

[jfontaine]

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

[skipeemed]

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