TextBox et virgules...

[deudecos]

Bonjour le forum,

Voila, je me trouve devant un imprevu...
Je suis en train de 'tenter' de creer un petit programme qui me permettrait de gerer le temps de travail, ainsi que les depenses dans ma petite entreprise (qui ne connais pas la crise :woohoo: )
Mais la n'est pas 'encore' le probleme :whistle:
En fait, c'est un petit peu complique a expliquer comme ca, donc, piece jointe et explications sur le fichier.
Pour faire simple, c'est un probleme de prise en compte de la virgule dans un textbox... 😱
J'espere (non, je suis sur !) que qq pourra m'aider...
En attendant, bonne journee a tous
Olivier [file name=deudecos_20050521092618.zip size=44785]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/deudecos_20050521092618.zip[/file]

 

[dg62]

bonjour Deudecos


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

 

[deudecos]

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

 

[dg62]

re

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.

 

[deudecos]

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

 

[dg62]

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

 

[deudecos]

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

 

[dg62]

re




voir modif

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

 

[deudecos]

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