Discussion :

[leo.grinou]

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 :

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

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

Formule Macro :

Code :

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

"=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 :

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

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

[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 :

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

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)

[tototiti2008]

Bonjour,

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

Code :

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

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

[leo.grinou]

Bonjour,

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

Code :

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

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

WorksheetFunction

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 :

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

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.

[Transitoire]

Bonjour, je ne comprend pas la logique qui veut faire un calcul sur un UserForm en doublon de celui d'une feuille.
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.
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

[Philippe Tulliez]

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

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 :

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

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

[tototiti2008]

Bonjour,

Il semblerait que Evaluate ait des soucis avec la fonction Indirect

Peux-tu confirmer que la formule

Code formule :

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

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 formule :

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

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

?

Si oui, alors teste

Code :

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

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