Additionner plusieurs TextBox

Bonjour!

Ce sujet a été déjà mentionné, toute fois je ne trouve pas quelque chose de plus que d'inscrire chaque TextBox et de les additionner. J'aimerais alors voir avec vous s'il n'existerait pas un code qui permettrait de réduire la longueur de transcription et éviter de tous réécrire comme ceci :

TextBox9 = Val(Replace(TextBox16, ",", ".")) + Val(Replace(TextBox17, ",", ".")) + Val(Replace(TextBox18, ",", ".")) + Val(Replace(TextBox19, ",", ".")) + Val(Replace(TextBox20, ",", ".")) + Val(Replace(TextBox21, ",", "."))

J'ai tenté quelque chose, mais encore là ce n'est pas génial et ça ne fonctionne pas de toute façon :

Dim I
For I = 32 To 37
    TextBox25 = Val(Replace(Controls("TextBox" & I), ",", ".")) + Val(Replace(Controls("TextBox" & I + 1), ",", ".")) + Val(Replace(Controls("TextBox" & I + 2), ",", ".")) + Val(Replace(Controls("TextBox" & I + 3), ",", ".")) + Val(Replace(Controls("TextBox" & I + 4), ",", ".")) + Val(Replace(Controls("TextBox" & I + 5), ",", "."))

Bonsoir le forum

Bonsoir CedL

On a du déjà te dire qu'il serait judicieux de joindre un fichier afin de ne pas avoir à le reproduire. ..

Une solution à tester en fichier.