Utilisation fonction somme dans usf

[zombe]

Salut le forum

Je souhaite faire la somme de plusieurs textbox.
Voici ce que j'ai fait mais pas de résultat.
Quelqu'un peut m'aider?

WorksheetFunction.Sum(textbox1, Textbox2, Textbox3)

 

[Robert]

Re : Utilisation fonction somme dans usf

Bonjour Zombe, bonjour le forum,

Une textbox renvoie une donnée de type String. Il faut la convertir pour faire l'addition.
En fonction du types de données contenues dans les textboxes, Integer (CInt), Double (CDbl), Byte CByte), Long(Clng) tu adapteras... Dans l'exemple j'ai considéré que c'était des donnés de type Double.

Dim a As Double
a = CDbl(Textbox1.Value) + Cdbl(TextBox2.Value) + CDbl(TextBox3.Value)

Après tu place a où tu veux...

 

[phlaurent55]

Re : Utilisation fonction somme dans usf

Bonjour zombe

pourquoi pas:

total = TextBox1.Value + TextBox2.Value + TextBox3.Value

à+
Philippe

 

[zombe]

Re : Utilisation fonction somme dans usf

Salut à tous
Merci pour vos contributions.
Je prefère vous joindre mon fichier pour appréciation
Ce lien n'existe plus

 

[Robert]

Re : Utilisation fonction somme dans usf

Bonsoir le fil, bonsoir le forum,

En pièce jointe ton fichier modifié. Le calcul se fait au fur et à mesure que tu édites les valeurs dans les différentes textboxes. J'ai donc supprimer le bouton Valider. Le passage par Excel 2003 empêche le bouton de fonctionner mais le code de l'UserForm, lui, fonctionne...

 

[zombe]

Re : Utilisation fonction somme dans usf

Salut Robert

Merci pour votre proposition que j'apprécie.
pouvez-vous m'aider à intégrer les séparateurs de millier dans les textbox affichant du chiffre.
Merci

 

[Robert]

Re : Utilisation fonction somme dans usf

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié. Le format avec séparateur de milliers s'effectue à la sortie de la textbox...

 

[zombe]

Re : (RESOLU) Utilisation fonction somme dans usf

Bonjour Robert et le forum

C'est super.
Infiniment merci