Excel VBA Fonction SiErreur / AverageIfs ne fonctionne pas

Bonjour à tous,
j'ai un souci avec ma ligne de code suivante:

Code:

---

Range("D12").Value = Application.WorksheetFunction.IfError(WorksheetFunction.AverageIfs(Worksheets("Senior").Range("AB:AB"), Worksheets("Senior").Range("G:G"), "PS/opco", Worksheets("Senior").Range("AB:AB"), "<>""", Worksheets("Senior").Range("AF:AF"), Country, Worksheets("Senior").Range("B:B"), ">=" & CLng(Date1), Worksheets("Senior").Range("B:B"), "<=" & CLng(Date2)), "XXXXX")

---

Le problème est que les arguments déclarés de la fonction AverageIfs ne renvoient aucune donnée (et c'est normal). C'est pourquoi, j'essaye de rajouter la fonction IfError au préalable pour palier à ce problème mais la macro bug et me renvoie ce message.

Citation:

---

Erreur d'exécution '1004':
Impossible de lire la propriété AverageIfs de la classe WorsheetFunction

---

Auriez-vous une astuce pour solutionner ce pb? Merci à tous :)

Bonjour,

Peux-tu préciser ta version d'Excel, averageifs étant une fonction assez récente, le problème peut venir de là.
edit: au temps pour moi c'est déjà préciser et d'après l'aide elle existe bien sur excel 2016 https://support.office.com/en-us/art...8-F7C5C3001690

Merci mais cela ne m'aide pas vraiment à résoudre le pb. Je ne comprends pas pourquoi la formule (IsError(AverageIfs(Arg1,option1, Arg2,option2,...)), "-") fonctionne dans Excel et non sous VB... quelqu'un aurait il une solution qui corrige ce pb? d'avance merci

Citation:

---

Envoyé par Excelvba75

Merci mais cela ne m'aide pas vraiment à résoudre le pb. Je ne comprends pas pourquoi la formule (IsError(AverageIfs(Arg1,option1, Arg2,option2,...)), "-") fonctionne dans Excel et non sous VB... quelqu'un aurait il une solution qui corrige ce pb? d'avance merci

---

Oui j'ai répondu un peu vite ayant déjà vu ce problème récemment.

Si la formule excel fonctionne correctement une solution serait de passer par cette étape avant de copier/coller la valeur

Code:

---

1 2 3

Range("D12").formula= "=IfError(AverageIfs(Senior!AB:AB,Senior!G:G, ""PS/opco"", ... Range("D12").value=Range("D12").value

---

oui j'avais pensé à cette solution également mais j'ai des variables dans le code qui ne peuvent être reprises si je contourne en utilisant .formula... je continue à chercher une solution... je suis quand même assez surpris que la double WorksheetFunction ne fonctionne pas... Never give up

Citation:

---

Envoyé par Excelvba75

oui j'avais pensé à cette solution également mais j'ai des variables dans le code qui ne peuvent être reprises si je contourne en utilisant .formula...

---

Si tu penses à ça:

Code:

---

Worksheets("Senior").Range("AF:AF"), Country

---

ça peut s'écrire:

Code:

---

range.formula="... Senior!AF:AF," & Country & ", ...."

---

Une autre solution avec la gestion d'erreur:

Code:

---

1 2 3 4

Range("D12").Value ="résultat si erreur" on error resume next Range("D12").Value = WorksheetFunction.AverageIfs(Worksheets("Senior").Range("AB:AB"), Worksheets("Senior").Range("G:G"), "PS/opco", Worksheets("Senior").Range("AB:AB"), "<>""", Worksheets("Senior").Range("AF:AF"), Country, Worksheets("Senior").Range("B:B"), ">=" & CLng(Date1), Worksheets("Senior").Range("B:B"), "<=" & CLng(Date2)) on error goto 0

---

Merci Excelvba75 pour ton aide précieuse. j'ai trouvé le bug. En retirant l'argument WorksheetFunction, cela corrige le problème ==> Application.IfError(AverageIfs(....). Merci encore pour ton aide! :):)