Erreur de calcul dans mes TextBox

Bonjour à tous,
Je reviens vers vous pour un nouveau problème, je souhaiterais faire la somme de 30 TextBox dans une autre TextBox, mais le résultat que j'obtiens n'est pas bon.
En entrant un certain nombre de valeurs dans quelques TextBox, la valeur totale (à la calculatrice) est égale à 1463.30 € et le résultat affiché dans le TextBox de la somme est égal à 1460.00 €.
Je n'arrive pas à trouver la raison.........:roll:
Quelqu'un pourrait-il me dire d'où viens le problème ?

Code:

---

1 2 3 4 5 6

Me.txtTotHT = WorksheetFunction.Sum(Val(Me.txtPTHT1), Val(Me.txtPTHT2), Val(Me.txtPTHT3), Val(Me.txtPTHT4), Val(Me.txtPTHT5), _ Val(Me.txtPTHT6), Val(Me.txtPTHT7), Val(Me.txtPTHT8), Val(Me.txtPTHT9), Val(Me.txtPTHT10), _ Val(Me.txtPTHT11), Val(Me.txtPTHT12), Val(Me.txtPTHT13), Val(Me.txtPTHT14), Val(Me.txtPTHT15), _ Val(Me.txtPTHT16), Val(Me.txtPTHT17), Val(Me.txtPTHT18), Val(Me.txtPTHT19), Val(Me.txtPTHT20), _ Val(Me.txtPTHT21), Val(Me.txtPTHT22), Val(Me.txtPTHT23), Val(Me.txtPTHT24), Val(Me.txtPTHT25), _ Val(Me.txtPTHT26), Val(Me.txtPTHT27), Val(Me.txtPTHT28), Val(Me.txtPTHT29), Val(Me.txtPTHT30)): Me.txtTotHT = Format(Me.txtTotHT, "# ###.00 €") '.Cells(RecordNumber, 170)

---

Une simplification serait aussi la bienvenue.
Merci par avance

Bonjour,

Citation:

---

Une simplification serait aussi la bienvenue.

---

En écrivant une boucle telle que cous l'a suggéré un intervenant dans sa réponse à l'une de vos questions dans la discussion titrée Simplification de programmation

Bonjour Monsieur Philippe TUILLEZ,

La solution que m'a apporté PrinceCorwin concernait une boucle sur 30 colonnes d'un fichier pour alimenter 30 TextBox.
Là, je souhaiterais additionner les valeurs de mes 30 TextBox dans une seule Textbox sans passer par le fichier, je n'y arrive pas en faisant une boucle.
Si je pouvais avoir juste un exemple.
Merci par avance.

Bonjour,
Mais la manière de traiter les TextBox dans une boucle reste le même.

On lit le contenu d'un TextBox nommé par exemple TxtName soit avec la syntaxe Me.TxtName.Value soit par Me.Controls("TxtName").ValueEtant donné que les TextBox concernés sont numérotés, il est très simple de les intégrer dans une boucle

Exemple dans une fonction nommée GetSum qui effectue la somme pour six contrôles nommés txtPTHTn

Code:

---

1 2 3 4 5

Function GetSum() As Double Dim n As Integer For n = 1 To 6 GetSum = GetSum + Val(Me.Controls("txtPTHT" & n)) Next

---

Cette fonction renvoyant une valeur de type Double nous pourrions l'invoquer par exemple par un clic d'un CommandButton

Exemple où la somme calculée par la fonction GetSum est renvoyée dans le contrôle TextBox nommé TxtPTHT0

Code:

---

1 2 3

Private Sub CommandButton1_Click() Me.txtPTHT0 = Format(GetSum) End Sub

---

Je vous conseille la lecture de Utiliser les contrôles dans un UserForm, en VBA Excel

Bonjour et merci Monsieur TULLIEZ,
Vos explications sont toujours claires.
Je vais pouvoir simplifier énormément mon programme.
Encore merci.