Format de nombre

Bonjour,

Mon problème : je viens de finaliser une application qui fonctionne et je me suis mis à formater mes cellules sous VBA

Je sais dans txtPoids 3.524 et il inscrit dans le tableau 0.000 avec cette formulation

DIM txtPoids As Double

Format(txtPoids, "0,000")

Avez-vous une explication ? Car en regardant un tuto et en chargeant le fichier, cette formule marche.

Merci de votre aide

Bonjour,

Une piste :

Format(Replace(Me.txtPoids, ".", ","), "0.000")

Cdlt,

Edit : VBA est codé en anglophone, donc ne reconnais pas les virgules dans les formats, il faut utiliser des points. Ou sinon travailler en FormatLocal.

Bonjour,

En complément, tu ne peux pas déclarer un objet en Double (txtPoids est un textbox)

essaie aussi cette fonction :

ActiveCell.Offset(0, 7).Value =CDbl(Replace(Me.textPoids, ".", ","))

Merci à vous deux, en fait j'ai combiné les deux pour obtenir quel que soit la saisie le format : 3.120

txtPoids = CDbl(Replace(Me.txtPoids, ".", ","))
ActiveCell.Offset(0, 7).Value = Format(txtPoids, "0.000")