Discussion :

[Excelvba75]

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

Code :

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

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.

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

[halaster08]

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

[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

[halaster08]

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 :

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

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

[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... je continue à chercher une solution... je suis quand même assez surpris que la double WorksheetFunction ne fonctionne pas... Never give up

[halaster08]

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 :

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

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

ça peut s'écrire:

Code :

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

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

Une autre solution avec la gestion d'erreur:

Code :

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

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

[Excelvba75]

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!