TextBox et virgules...

dg62

XLDnaute Barbatruc

• 21 Mai 2005

• #2

bonjour Deudecos


tu devrais essayer val(pht) car un textbox retourne une donnée de type string.

 

Vote positif 0 Vote négatif

deudecos

XLDnaute Impliqué

• 21 Mai 2005

• #3

Bonjour dg62, le forum,

Merci pour l'idee dg62, mais n'existerait il pas une possibilite de restitution de la virgule?
Parce que dans le cas present, ca arrondi le nombre...
Hors il est crucial pour moi d'avoir la virgule (a cause de la faiblesse de la monnaie que j'utilise) :unsure:
Bon apres midi
Olivier

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Mai 2005

• #4

re

Code:

Private Sub CommandButton1_Click()
Dim chaine As String, chiffre As Double, p As Integer
chaine = TextBox1.Value
range('A1').value=chaine

            For p = 1 To Len(chaine)
                If Asc(Mid(chaine, p, 1)) = 44 Then
                MsgBox ('Chiffre à virgule !')
                chiffre = CDbl(chaine)
                Range('A1').Value = chiffre
                End If
            Next


End Sub

testes cette procédure, cela devrait peut-être résoudre ton problème.

La solution c'est CDbl.

 

Vote positif 0 Vote négatif

deudecos

XLDnaute Impliqué

• 21 Mai 2005

• #5

Re Didier, le forum,

J'ai tente, tente... re tente, mais rien a faire, je ne parviens pas a obtenir ce que je souhaite. :S

Si jamais il y avait une autre solution... Je suis preneur !

Bonne fin d'apres midi
Olivier

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Mai 2005

• #6

re

bizarre !


mes essais avec differentes valeurs :

1.231456 > 1.231456
0.123456 > 0.123456
0,123456 avec val 0 avec CDbl 0,123456
1,123456 avec val 1 avec CDbl 1,123456


Sans oublier de déclarer ta variable transformée en double

Message édité par: dg62, à: 21/05/2005 17:11

 

Vote positif 0 Vote négatif

deudecos

XLDnaute Impliqué

• 21 Mai 2005

• #7

Re Didier, le forum,

Je ne voudrais pas abuser, mais, vu que je ne comprends rien a rien, pourrais tu me proposer un exemple de formule mise en action dans mon fichier joint ?
Parce que comme ca, je me retrouve soit avec des erreurs de syntaxes, soit avec des erreurs de fin d'action attendue et autre...
En gros, je suis completement a l'ouest ! (ce qui est un comble pour qq qui vit dans les pays de l'est ! )
Je sais que nous sommes samedi et que tout un chacun a bien mieux a faire que passer son temps a instruire des ignorants tels que moi, mais la, chui perdu...

Merci en tout cas de ta patience.

Bonne soiree
Olivier

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Mai 2005

• #8

re




voir modif

[file name=deudecosmodifie.zip size=39853]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/deudecosmodifie.zip[/file]

 

Pièces jointes

• deudecosmodifie.zip

  38.9 KB · Affichages: 24

Vote positif 0 Vote négatif

deudecos

XLDnaute Impliqué

• 21 Mai 2005

• #9

bonsoir Didier, le forum,

Ben la ! Je comprends tout maintenant !
J'avais pas compris ce que tu m'expliquais...

Merci, merci et merci encore pour cette demonstration (c'est la qu'on se rend compte de sa propre limite! :silly: )

Bonne soiree !
Olivier

 

Vote positif 0 Vote négatif