Discussion :

[patricktoulon]

bonjour a tous

c'est bien la première fois que je suis bloqué sur une chose aussi simple

j'ai 2 textboxs et une cellule

je veux faire cette operation

la cellule / textbox1*textbox2
il semblerait que les valeur entrées dans les textboxs sont pris comme des valeur "string" (texte)

quelqu'un a une idée comment je pourrais faire pour rendre ces valeurs numériques

je ne peut pas utiliser "val" car ça m'arrondi le chiffre et ça ne me convient pas

merci du coup de main


au plaisir

[casefayere]

Bonjour Patrick

as-tu essayé avec "Cdbl" au lieu de Val ?
Tu as de l'expérience alors j'ose à peine de te conseiller de faire attention au séparateur de milliers "," ou "." dans les textbox et y adapter ce code, entre autres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub nomtextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = "." Then KeyAscii = Asc(",")
End Sub

[patricktoulon]

bonjour casefayere

non je n'avais pas essayer ca

et j'ai aussi découvert mon erreur

je me sert du pavé numérique pour tout ce qui est chiffre y compris la virgule qui en fait est un point sur le pavé numérique

alors en faisant un replace(textbox1,".",",") et que je fait l'opération avec le chiffre obtenu le calcul se fait
j'ai honte!!!!
maintenant le résultat est transféré dans une autre cellule et la je me retrouve avec le signalement d'erreur(triangle vert en haut a gauche de la cellule

alors j'essaye de remettre le format a numérique mais je n'y arrive pas les modification ne se font pas pourtant la cellule est déverrouillée complètement

une idée

merci a toi pour le coup de main

[casefayere]

je me sert du pavé numérique pour tout ce qui est chiffre y compris la virgule qui en fait est un point sur le pavé numérique

alors en faisant un replace(textbox1,".",",") et que je fait l'opération avec le chiffre obtenu le calcul se fait

Question de choix, perso je préfère le code proposé ci-dessus

As-tu essayé en passant par des variables ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub nnn()
Dim x1 As Currency, x2 As Currency
x1 = CCur(textbox1): x2 = CCur(textbox2)
MsgBox x1 * x2
End Sub

[patricktoulon]

re
oui je suis d'accord avec toi régler le problème de la virgule des la pression sur la touche est certainement la meilleur solution

mais dans mon erreur aussi bête je me suis perdu


et pour la suite je suis sur aussi que c'est un truc tout bête

peut être que quand l'erreur est détectée le menu format cellule est inactif tant que je n'est pas clique sur le triangle vert et choisi une option

je prefererai le faire par vba

j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(nom du sheets).range ("lettrechiffre").numberformat="0.00"

mais ça ne fonctionne pas

une idée???

[casefayere]

Excuses-moi d'insister, mais as-tu essayé comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub nnn()
Dim x1 As Currency, x2 As Currency
x1 = CCur(textbox1): x2 = CCur(textbox2)
Sheets("nom du sheets").Range("lettrechiffre") = Format(x1 * x2, "#0.00##")'ou autre format
End Sub