Somme avec formulaire

[Mapat]

Bonjour

J'ai un fichier avec un formulaire qui insère des nombres et la somme automatique
en bas de colonne ne se fait pas.
Quelqu'un peut-il m'expliquer pourquoi
Merci et bonne journée

 

[Efgé]

Re : Somme avec formulaire

Bonjour Mapat
Tu mets du texte dans tes cellules.
Il faut coller les valeurs et mettre tes cellules au format voulus:
Donc utilise plutot ceci:
CLng(TextBox2.Value)
CLng(TextBox3.Value)
Etc....

Cordialement

 

[vgendron]

Re : Somme avec formulaire

Bonjour,

1) un problème de sécurité m'empeche d'ouvrir et lancer ta macro. mais je suppose qu'elle ajoute une ligne en haut de ton tableau
2) la première ligne n'est pas prise en compte dans la somme, parce que elle n'a pas le meme format monétaire que les autres..

il faut donc que tu modifies ta macro pour saisir une nouvelle ligne dans le bon format

 

[Mapat]

Re : Somme avec formulaire

Re,

Merci à vous deux pour vos réponses rapides
Réadapté dans mon fichier qui fonctionne maintenant
Bonne journée à vous deux

 

[Jacou]

Re : Somme avec formulaire

Bonjour Mapat, bonjour le forum,

Cela provient du fait qu'à la fin des procédures de contrôle du TextBox2 et du TextBox4 tu définis un format
"0.00 €". La valeur contenue dans ton textbox est donc alors considérée comme une valeur textuelle et non pas numérique (en format monétaire).
Donc dans ta procédure CommandButton1_Click() avec

.Range("F" & derli) = TextBox2
.Range("G" & derli) = TextBox3
.Range("H" & derli) = TextBox4

tu transfères des données textuelles qui ne peuvent s'aditionner.
Il faut donc modifier comme suit :

.Range("F" & derli) = CDbl(TextBox2)
.Range("G" & derli) = CDbl(TextBox3)
.Range("H" & derli) = CDbl(TextBox4)

et mettre les cellules F1:F8 et H1:H8 en format monétaire

Bonne journée

édition : trop tard mais ça ne fait rien

édition 2 : cependant j'ai aussi supprimé les fonctions CByte qui existaient qui faisaient des calculs en nombre entier (donc non prise en compte des centimes) et limite à 255

 

[Mapat]

Re : Somme avec formulaire

Re

Non, non pas trop tard
Merci de ce supplément de réponse qui me permet d'apprendre une chose en plus
Et certainement d'en aider d'autres
Bonne soirée