Format Nombre dans Userform

2 réponses
Avatar
Alex
Bonjour =E0 tous,
Je me permets de vous solliciter sur un probl=E8me de Userform et de
format nombre et m'en explique :
J'ai un Userform qui me sert aussi bien en creation de nouvelle fiche
de saisie, qu'en mode consultation et modification.
Pour mes textbox, (en mode creation) o=F9 ils doivaient =EAtre renseign=E9
un montant, je proc=E9dai par un collage special par multiplication par
1.00 de la valeur de la textbox comme suit : (LOYSORT =3D Nom du
TexteBox et en CX1 j'ai 1 en format nombre 1.00)

Cells(i, 24).Value =3D Me.LOYSORT
Range("CX1").Select
Selection.Copy
Cells(i, 24).Select
Selection.PasteSpecial Paste:=3DxlPasteAll, Operation:=3DxlMultiply, _
SkipBlanks:=3DFalse, Transpose:=3DFalse
Application.CutCopyMode =3D False

Ce qui me permettait d'obtenir sur ma feuille de calcul un nombre
reconnu en tant que nombre (Pas de triangle vert dans l'angle de la
cellule)

Mais voila, quand je proc=E8de =E0 une modification, et que j'emploi la
m=EAme facon de proc=E9der, j'obtiens mon nombre non reconnu en tant que
nombre (j'ai le traingle vert dans ma cellule)

Comment pourrais je faire, pour dire que ma textbox est toujours un
nombre, et qu'il soit reconnu aussi bien dans le textbox que sur la
feuille.

Je vous remercie par avance de vos r=E9ponses.

Cordialement.

2 réponses

Avatar
FdeCourt
Salut,

Ne serait-il pas plus simple de faire :

Cells(i, 24).Value = Val(Me.LOYSORT * Val(Range("CX1").Value))

à la place de tout ton code ?

Cordialement,

F.
Avatar
Alex
On 19 jan, 17:46, FdeCourt wrote:
Salut,

Ne serait-il pas plus simple de faire :

Cells(i, 24).Value = Val(Me.LOYSORT * Val(Range("CX1").Value))

à la place de tout ton code ?

Cordialement,

F.



Merci bien, je vais essayer.