l'addition depuis un userform ne fonctionne pas

[hd006]

Bonjour le forum,

je joint un petit fichier pour mieux comprendre mon probleme.
je souhaite depuis un usf entrer des chiffres dans une colonne de ma BD jusqu'a la pas de souci.
Ca se complique quand les chiffres doivent s'additionner car cela ne fonctionne pas, si je retape les chiffres pas de soucis le calcul ce fait alors je ne comprend pas.

Si vous avez déja eu ce probleme et une solution merci d'avance

 

[Dranreb]

Re : l'addition depuis un userform ne fonctionne pas

Bonjour
Mettez:

Sheets("BD").Range("I65536").End(xlUp).Offset(1, 0).Value = CDbl(TextBox1)

Cordialement

 

[hd006]

Re : l'addition depuis un userform ne fonctionne pas

bojour Dranreb, le forum,
merci pour cette reponse rapide je la test tout de suite

cordialement

 

[hd006]

Re : l'addition depuis un userform ne fonctionne pas

pour Dranreb et le forum,

J'ai tester dans ma formule réelle ca fonctionne mais j'ai un bogage quand je rentre une virgule du type 23.45 avez vous une idée?

 

[Dranreb]

Re : l'addition depuis un userform ne fonctionne pas

Alors
CDbl(Replace(TextBox1, ".", ","))

 

[hd006]

Re : l'addition depuis un userform ne fonctionne pas

Un grand merci pour dranreb qui a repondu si rapidement, ke joint le fichier corrigeé pour ceux qui en ont besoin.

 

[hd006]

Re : l'addition depuis un userform ne fonctionne pas

Un renseignement, suite à un domage collatéral: en intégrand mon code je m'appercois que comme ma textbox et dans un usf plus grand avec d'autre données, si je n'entre pas le CA mon userform bug . y a t'il un code conditionnant type si rien ecrit on passe à la suite . car j'ouvre et referme cet userform plusieur fois par jour.
cordialement

 

[Dranreb]

Re : l'addition depuis un userform ne fonctionne pas

Mettez devant:
On Error Resume Next

 

[hd006]

Re : l'addition depuis un userform ne fonctionne pas

Merci dranreb pour tous ces renseignement
Bon week-end