Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel En VBA

En VBA

6 réponses
Avatar
Vincent
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 =
MAX(SOMMEPROD(MAX((A3:A10000=2005)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000=2005)*(D3:D10000))))

Merci beaucoup
Vincent
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Vincent,

As-tu essayé ceci :

TextBox2 [MAX(sumproduct(MAX((A3:A10000 05)*(B3:B10000))),sumproduct(MAX((C3:C10000 05)*(D3:D10000))))]


Salutations!


"Vincent" a écrit dans le message de news: %
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 MAX(SOMMEPROD(MAX((A3:A10000 05)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000 05)*(D3:D10000))))

Merci beaucoup
Vincent
Avatar
Vincent
Merci beaucoup Michdenis
c'est exactement cela, mais j'essaie d'intégrer la valeur d'un textbox à la
place de 2005, cela ne fonctionne pas.
Peux-tu m'aider ?

TextBox2 =
[MAX(sumproduct(MAX((A3:A10000=TextBox1.value)*(B3:B10000))),sumproduct(MAX((C3:C10000=TextBox1.value)*(D3:D10000))))]
+ 1

Merci encore
Michel




"MichDenis" a écrit dans le message de news:

Bonjour Vincent,

As-tu essayé ceci :

TextBox2 > [MAX(sumproduct(MAX((A3:A10000 05)*(B3:B10000))),sumproduct(MAX((C3:C10000 05)*(D3:D10000))))]


Salutations!


"Vincent" a écrit dans le message de
news: %
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 > MAX(SOMMEPROD(MAX((A3:A10000 05)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000 05)*(D3:D10000))))

Merci beaucoup
Vincent





Avatar
isabelle
bonjour Vincent,

TextBox2 > [MAX(sumproduct(MAX((A3:A10000=" & _
TextBox1.value & ")*(B3:B10000))), _
sumproduct(MAX((C3:C10000=" & _
TextBox1.value & ")*(D3:D10000))))]

isabelle


Merci beaucoup Michdenis
c'est exactement cela, mais j'essaie d'intégrer la valeur d'un textbox à la
place de 2005, cela ne fonctionne pas.
Peux-tu m'aider ?

TextBox2 =
[MAX(sumproduct(MAX((A3:A10000=TextBox1.value)*(B3:B10000))),sumproduct(MAX((C3:C10000=TextBox1.value)*(D3:D10000))))]
+ 1

Merci encore
Michel




"MichDenis" a écrit dans le message de news:


Bonjour Vincent,

As-tu essayé ceci :

TextBox2 >>[MAX(sumproduct(MAX((A3:A10000 05)*(B3:B10000))),sumproduct(MAX((C3:C10000 05)*(D3:D10000))))]


Salutations!


"Vincent" a écrit dans le message de
news: %
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 >>MAX(SOMMEPROD(MAX((A3:A10000 05)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000 05)*(D3:D10000))))

Merci beaucoup
Vincent










Avatar
MichDenis
Bonjour Vincent,


TextBox2 Evaluate("MAX(sumproduct(MAX((A3:A10000=" & TextBox1.value & ")*(B3:B10000)))," & _
"sumproduct(MAX((C3:C10000=" & TextBox1.value & ")*(D3:D10000))))")

P.S. écrit sur 2 lignes !


Salutations!


"Vincent" a écrit dans le message de news: %
Merci beaucoup Michdenis
c'est exactement cela, mais j'essaie d'intégrer la valeur d'un textbox à la
place de 2005, cela ne fonctionne pas.
Peux-tu m'aider ?

TextBox2 [MAX(sumproduct(MAX((A3:A10000=TextBox1.value)*(B3:B10000))),sumproduct(MAX((C3:C10000=TextBox1.value)*(D3:D10000))))]
+ 1

Merci encore
Michel




"MichDenis" a écrit dans le message de news:

Bonjour Vincent,

As-tu essayé ceci :

TextBox2 > [MAX(sumproduct(MAX((A3:A10000 05)*(B3:B10000))),sumproduct(MAX((C3:C10000 05)*(D3:D10000))))]


Salutations!


"Vincent" a écrit dans le message de
news: %
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 > MAX(SOMMEPROD(MAX((A3:A10000 05)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000 05)*(D3:D10000))))

Merci beaucoup
Vincent





Avatar
Vincent
Merci beaucoup Isabelle ainsi que Michdenis
cela fonctionne parfaitement
Vincent

"MichDenis" a écrit dans le message de news:

Bonjour Vincent,


TextBox2 > Evaluate("MAX(sumproduct(MAX((A3:A10000=" & TextBox1.value &
")*(B3:B10000)))," & _
"sumproduct(MAX((C3:C10000=" & TextBox1.value & ")*(D3:D10000))))")

P.S. écrit sur 2 lignes !


Salutations!


"Vincent" a écrit dans le message de
news: %
Merci beaucoup Michdenis
c'est exactement cela, mais j'essaie d'intégrer la valeur d'un textbox à
la
place de 2005, cela ne fonctionne pas.
Peux-tu m'aider ?

TextBox2 > [MAX(sumproduct(MAX((A3:A10000=TextBox1.value)*(B3:B10000))),sumproduct(MAX((C3:C10000=TextBox1.value)*(D3:D10000))))]
+ 1

Merci encore
Michel




"MichDenis" a écrit dans le message de news:

Bonjour Vincent,

As-tu essayé ceci :

TextBox2 >> [MAX(sumproduct(MAX((A3:A10000 05)*(B3:B10000))),sumproduct(MAX((C3:C10000 05)*(D3:D10000))))]


Salutations!


"Vincent" a écrit dans le message de
news: %
Bonsoir
J'essaie d'avoir cela dans mon userform intialize
avec l'enregistreur de macro, cela me des "=" que je veux supprimer
en fait je souhaiterai avoir :

TextBox2 >> MAX(SOMMEPROD(MAX((A3:A10000 05)*(B3:B10000)));SOMMEPROD(MAX((C3:C10000 05)*(D3:D10000))))

Merci beaucoup
Vincent










Avatar
AV
En raccourcissant:

x = Textbox1.value
MsgBox Evaluate("MAX((A3:A10000=" & x & ")*B3:B10000,(C3:C10000=" & x &
")*D3:D10000)")

AV