Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utilisation fonction somme dans usf

zombe

XLDnaute Occasionnel
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?
Code:
WorksheetFunction.Sum(textbox1, Textbox2, Textbox3)
 

Robert

XLDnaute Barbatruc
Repose en paix
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.
Code:
Dim a As Double
a = CDbl(Textbox1.Value) + Cdbl(TextBox2.Value) + CDbl(TextBox3.Value)
Après tu place a où tu veux...
 

Robert

XLDnaute Barbatruc
Repose en paix
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...
 

Pièces jointes

  • Zombe_v01.xls
    55.5 KB · Affichages: 32

zombe

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
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...
 

Pièces jointes

  • Zombe_v02.xls
    51.5 KB · Affichages: 35

Discussions similaires

  • Résolu(e)
Microsoft 365 =somme.si
Réponses
4
Affichages
115
Réponses
6
Affichages
286
Réponses
11
Affichages
539
Réponses
3
Affichages
159
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…