Comment convertir formule pour VBA (Textbox et Userform)

Je cherche à convertir une formule que j'ai sur une feuille Excel vers un Textbox dans un Userform.

J'ai pu en convertir une simple, mais j'ai de la misère avec celle-ci avec des fomule impbriquée. Si quelqu'un peut m'aider.

J'ai utlisé l'enregistrement macro afin de la convertir en VBA, mais je n'ai envie qu'elle soit indépdendante des cellules.

Formule Excel :

Code:

---

=SOMMEPROD((SOUS.TOTAL(3;INDIRECT("U"&LIGNE($U$13:$U$400)))*($U$13:$U$400="Oui") ))

---

Formule Macro :

Code:

---

"=SUMPRODUCT((SUBTOTAL(3,INDIRECT(""U""&ROW(R13C21:R400C21)))*(R13C21:R400C21=""Oui"") ))"

---

VBA pour textobox (que je cherche à faire et qui me donne que des messages d'erreur à chaque fois):

Code:

---

TextBox1 = WorksheetFunction.SumProduct(Sheets("Feuille1")((Subtotal(3, Indirect("U" & Rows("U3:U400"))) * Range("U3:U400"))), "Oui")

---

Bonjour,
Pourquoi ne pas utiliser tout simplement la fonction Evaluate ?
Imaginons que le contrôle nommé TextBox1 fasse référence à la cellule E5 qui contient une formule, le code sera

Code:

---

1 2 3

With Me .TextBox1.Value = Evaluate(Range("E5").Formula) End With

---

Ceci n'est qu'un simple exemple, il y a lieu bien entendu de ne pas oublier de préciser la parentalité de l'objet Range (Classeur + Feuille)

Bonjour,

A tester, la feuille concernée devrait être activée pour une bonne évaluation

Code:

---

1 2 3

TextBox1.text=evaluate("SUMPRODUCT((SUBTOTAL(3,INDIRECT(""U""&ROW($U$13:$U$400)))*($U$13:$U$400=""Oui"")))")

---

Citation:

---

Envoyé par tototiti2008

Bonjour,

A tester, la feuille concernée devrait être activée pour une bonne évaluation

Code:

---

1 2 3

TextBox1.text=evaluate("SUMPRODUCT((SUBTOTAL(3,INDIRECT(""U""&ROW($U$13:$U$400)))*($U$13:$U$400=""Oui"")))")

---

---

Merci, mais cela ne fonctionne pas. Cela me donne une erreur. "Erreur d'execution 13 : Incompatibilité de type". Je cherche vraiment que cela soit le Userform qui le calcul sans passer par une feuil. C'est pour cette raison que j'ai utilisé au début

Citation:

---

WorksheetFunction

---

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pourquoi ne pas utiliser tout simplement la fonction Evaluate ?
Imaginons que le contrôle nommé TextBox1 fasse référence à la cellule E5 qui contient une formule, le code sera

Code:

---

1 2 3

With Me .TextBox1.Value = Evaluate(Range("E5").Formula) End With

---

Ceci n'est qu'un simple exemple, il y a lieu bien entendu de ne pas oublier de préciser la parentalité de l'objet Range (Classeur + Feuille)

---

Je cherche à ce que le Userform soit indépendant des caulculs qui pourraient être fait sur une feuil. Je veux que cela soit le Userform qui le calcule.

Bonjour, je ne comprend pas la logique qui veut faire un calcul sur un UserForm en doublon de celui d'une feuille.8O
Par ailleurs, sauf erreur ou omission de ma part, un TextBox Comme son nom l'indique contient une information sous forme de texte. ce qui pose souvent des problèmes dans le cas de nombre ou date.:weird:
De toute les manières, je pense que le TextBox ne pourra contenir sous forme de texte que le résultat d'un calcul passant par du code, qu'il soit interne au UF ou externe(module).
Vous devriez expliciter mieux, ce que vous souhaitez faire exactement.
Cordialement 8-)

Bonjour,
Peu-importe que tu utilises Evaluate ou WorksheetFunction. Les deux options sont envisageables.
La fonction Evaluate dans ce cas précis me semblait la plus simple à mettre en place

Je ne comprends pas la phrase ci-dessous

Citation:

---

J'ai utlisé l'enregistrement macro afin de la convertir en VBA, mais je n'ai envie qu'elle soit indépdendante des cellules.

---

Est-ce que cela signifie que tu n'as pas envie que la formule soit indépendantes des cellules ou bien le contraire et qu'est ce que cela signifie exactement car la formule que tu as publiée fait référence aux cellules.

Pour info :
Dans le code ci-dessous et que tu as publié, l'erreur qui est renvoyée provient du fait que seul SumProduct est rattaché à WorksheetFunction donc SubTotal, Indirect, etc. ne sont pas compris par le VBA

Code:

---

TextBox1 = WorksheetFunction.SumProduct(Sheets("Feuille1")((Subtotal(3, Indirect("U" & Rows("U3:U400"))) * Range("U3:U400"))), "Oui")

---

Bonjour,

Il semblerait que Evaluate ait des soucis avec la fonction Indirect

Peux-tu confirmer que la formule

Code:

---

1 2	=SOMMEPROD((SOUS.TOTAL(3;DECALER($U$13:$U$400;LIGNE($U$13:$U$400)-13;0;1;1))*($U$13:$U$400="Oui")))

---

donne les mêmes résultats que l'originale

Code:

---

1 2	=SOMMEPROD((SOUS.TOTAL(3;INDIRECT("U"&LIGNE($U$13:$U$400)))*($U$13:$U$400="Oui")))

---

?

Si oui, alors teste

Code:

---

TextBox1.Text = Evaluate("SUMPRODUCT((SUBTOTAL(3,OFFSET($U$13:$U$400,ROW($U$13:$U$400)-13,0,1,1))*($U$13:$U$400=""Oui"")))")

---