Discussion :

[TOFatJOB]

Bonjour,
je tente de créer une formule personnalisée avec SOMMEPROD.

Code :

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

1
2
3
4
5
Function VOL_SOC(notion, periode, socvente, matrice, noti, per, socven)
 
     VOL_SOC = Evaluate("=SumProduct((matrice) * (noti = notion) * (per = periode) * (socven = socvente))")
 
End Function

Ma syntaxe n'est surement pas correcte, sachant que je manipule des plages nommées, et des data pour les critères.



j'ai essayé sans le EVALUATE ...

[Pierre Fauconnier]

Salut

En premier lieu, je me pose la question de l'utilité d'une fonction perso, puisqu'elle ne fait qu'imiter SOMMEPROD.

En second lieu, teste ta formule en Excel pour voir comment elle fonctionne, car tu utilises des matrices de tailles différentes alors qu'elles doivent toutes être de même taille: Matrice, noti, socven ont 6 lignes et per en a 11.

Dans ta fonction, tu utilises les plages nommées et pas les variables passées en argument. Si tu veux utiliser les variables, tu dois recomposer Evaluate avec les noms des plages de données puisque tu dois recomposer ce qui se fait en Excel. Si en Excel, tu as =SOMMEPROD(Tableau1[Valeur]*(Tableau1[Code]="A")), tu dois avoir Evaluate("sumproduct(Tableau1[Valeur]*(Tableau1[Code]=""A""))"). Si tu utilises des plages de la même feuille, ça peut passer:




Mais dès que tu vas aller chercher tes matrices sur d'autres feuilles, ça va être un peu plus lourd à gérer si tu passes des plages (et encore, ici il n'y en a que deux...):

Code :

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

1
2
3
Function TestMatrice(MatA, MatB)
  TestMatrice = Evaluate("sumproduct('" & MatB.Parent.Name & "'!" & MatB.Address & " * ('" & MatA.Parent.Name & "'!" & MatA.Address & " =""A""))")
End Function

Si tu passes les noms, c'est plus facile en VBA mais plus compliqué et nettement moins dynamique en Excel.

De plus, sumproduct en VBA n'offre pas les mêmes possibilités qu'en Excel => Application.SumProduct ne peut pas être écrit avec la même syntaxe qu'en Excel. Cela en fait une fonction particulièrement délicate à gérer en VBA.

Que cherches-tu à réaliser? C'est pour des tests ou un apprentissage ou bien tu as un réel besoin derrière?

[TOFatJOB]

Bonjour Pierre,

merci d'avoir regardé mon problème.

Tu m'as mis sur la piste avec ton exemple; en fait il fallait ajouté .Address y compris pour les valeur à tester dans les égalités.

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Function VOL_SOC(matrice, noti, per, socven, t_noti, t_per, t_sven)
 
 
      VOL_SOC = Evaluate("SumProduct((" & matrice.Address & ")*(" & noti.Address & " = " & t_noti.Address & ")*(" & per.Address & " = " & t_per.Address & ")*(" & socven.Address & " = " & t_sven.Address & "))")
 
 
End Function

Evidemment j'avais posté un extrait simple pour qu'on m'aide à comprendre la syntaxe à appliquer, mon besoin est autrement plus complexe.

[Pierre Fauconnier]

D'où ma remarque, régulièrement exprimée sur les forums, qu'il est préférable de donner la situation réelle plutôt que "simplifier", qui amène à des réponses éventuellement inadaptées. C'est un peu comme si tu disais "Je n'arrive pas à piloter mon Cessna monomoteur" alors qu'en fait, tu te débats dans le cockpit d'un 747...