somme et minimun de textbox

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

Bonjour,

Une idée a tester

Code:

---

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

---

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

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:

---

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

---

Essai en mettant le texte au format valeur

Code:

---

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

---

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

a mon avis tu es en symbole decimal ","

Fais comme cela

Code:

---

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

---

c bon ma textbox affiche le minimum
le seul problème c'est qu'il arrondit au rang inférieur : 2.94 = 2
comment je peux contourner ce problème pour qu'il me donne la valeur à deux décimales?

Fais voir ton code

c'est bon! merci beaucoup
je n'avais pas vu ton code sur les décimales
voici mon code

Code:

---

TextBox51 = Application.Max(Val(Replace(TextBox1, ",", ".")), Application.Max(Val(Replace(TextBox2, ",", ".")), Val(Replace(TextBox3, ",", ".")))) + Application.Max(Val(Replace(TextBox12, ",", ".")), Application.Max(Val(Replace(TextBox13, ",", ".")), Val(Replace(TextBox14, ",", "."))))

---

merci encore