Discussion :

[luko6]

Bonjour à tous,

n'ayant pas trouver de réponses sur le forum, je me permets de créer une nouvelle discussion :
mon problème est assez simple à expliquer :
j'ai 3 textbox (1,2 et 3) puis 3 autres (12,13 et 14)
je souhaite faire le calcul dans un autre textbox = min (textbox1, textbox2, textbox3) + min(textbox12, textbox13, textbox14)

le problème est que il me semble que la fonction min ne permet pas de comparer plus de 2 éléments
pouvez vous m'aider en me proposant une autre solution?
cordialement

[jfontaine]

Bonjour,

Une idée a tester

Code :

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

textbox = Application.WorksheetFunction.Min(textbox1,textbox2,textbox3) + Application.WorksheetFunction.Min(textbox12,textbox13,textbox14)

[mercatog]

Et même si c'était le cas, théoriquement le minimum de A, B et C=min(min(A, B),C)

[luko6]

merci pour votre réactivité

jfontaine : j'avais déjà testé cette solution et j'ai une erreur d'execution de type "1004"

je vais tester la solution de mercatog :

Code :

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

TextBox4 = Application.Min(TextBox1, Application.Min(TextBox2, TextBox3)) + Application.Min(TextBox12, Application.Min(TextBox13, TextBox14))

[jfontaine]

Essai en mettant le texte au format valeur

Code :

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

TextBox4 = Application.Min(TextBox1, Application.Min(val(TextBox2), val(TextBox3))) etc ...

[luko6]

je crois qu'on y est presque mais il y a toujours un problème d'execution de type "13"

[jfontaine]

a mon avis tu es en symbole decimal ","

Fais comme cela

Code :

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

Val(replace(txtBox2,",","."))