Valeur textbox

[BRUNO62]

Bonsoir
Avez vous une idée ?
lorsque j'écris des chiffres dans mes textbox s les chiffres à virgules sont arrondis aux valeurs inférieures EX : 251,29 C'est 251,00

J'utilise Range("B" & DernièreLigneSaisie + 1) = Val(TextBox20)



Merci d"avance
A+

 

[Dranreb]

Re : Valeur textbox

Bonsoir.
Extrait de l'aide sur la fonction Val:

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

Cordialement.

 

[BRUNO62]

Re : Valeur textbox

Bonjour Dranreb,

Merci, mais cela ne fonctionne pas.
Avez vous une idée ?
J'utilise Range("B" & DernièreLigneSaisie + 1) = CDbl(TextBox20) Erreur"13"
Merci, d'avance
A+

 

[CHALET53]

Re : Valeur textbox

Bonjour,

Confronté au problème, j'avais rajouté une procédure liée à ma textbox nommée TXBMT1 pour forcer au point ou à la virgule selon le choix fait dans les paramètres généraux (configuration)

Private Sub TXBMT1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub

a+

 

[BRUNO62]

Re : Valeur textbox

Bonsoir CHALET53,

Merci, mais je suis toujours au même point. Cela ne fonctionne pas
J'ai essayé

if isnumeric(Textbox20.text) then
Range("A1").value = cdbl(Textbox20.text)
else
Range("A1").value = Textbox20.text
end if
Erreur 1004
A+

 

[BRUNO62]

Re : Valeur textbox

Bonsoir CHALET53,

Merci, mais je suis toujours au même point. Cela ne fonctionne pas
J'ai essayé

if isnumeric(Textbox20.text) then
Range("B").value = cdbl(Textbox20.text)
else
Range("B").value = Textbox20.text
end if
Erreur 1004
A+

 

[grisan29]

Re : Valeur textbox

bonsoir Bruno62
For i = lig To 1 Step -1
If IsNumeric(.Cells(i, "L")) Then CtrMt = CtrMt + .Cells(i, "L")

voila ce que j'ai dans mon fichier pour inscrire un chiffre a 2 nombres apres virgule
a adapter a ta situation

cordialement

Pascal

 

[kjin]

Re : Valeur textbox

Bonsoir,

if isnumeric(Textbox20.text) then
Range("B").value = cdbl(Textbox20.text)
else
Range("B").value = Textbox20.text
end if
Erreur 1004

Oui, là ça ne peut pas fonctionner !
Où est la question ? où est le problème ?
Est-ce si difficile d'aligner 5 mots pour constituer ce qu'on nomme communément...une phrase !
kjin

 

[BRUNO62]

Re : Valeur textbox

Bonsoir kjin,

Le problème est, je n'arrive pas trouver une solution.
A chaque fois il y a incompatilité de type quand j'utilise un chiffre à virgule ou non.
Je n'arrive pas à réunir les deux conditions.
CDbl et Val car je peux avoir un chiffre à virgule ou non
A+

 

[klin89]

Re : Valeur textbox

Bonsoir à tous,

Pas vraiment compris ta demande 😕

Range("B" & DernièreLigneSaisie + 1) = Format(Val(TextBox20), "###0.00")

Klin89

 

[kjin]

Re : Valeur textbox

Re,

Le problème est, je n'arrive pas trouver une solution.

On s'en doute un peu, mais trouver une solution à quel problème ?!

Saisies tu des chiffres avec ou sans décimale ? Oui ? Non ?
Si oui, sous quel forme ? 245,45 ou 245.45 ?
Quel est le séparateur décimal de ton système ? le point ? la virgule ?
Quel est le format de la cellule de destination
Si le format de la saisie n'est pas numérique que fais tu ?

Si tu saisies bien 245,45 et non 245.45...
Si le séparateur est bien la virgule...
Si le format de la cellule est bien "Standard"...
Si tu refuses les saisies non numériques alors...

If Not IsNumeric(TextBox1) Then
    TextBox1 = ""
    Exit Sub 'ou message éventuellement
End If
[A1] = CDbl(TextBox1)

...et ce avec ou sans décimale !
A+
kjin

 

[Dranreb]

Re : Valeur textbox

Que de temps perdu avec tout ça !!

Et toujours pas de fichier joint...

Oui parce que si ça se trouve c'est pas du tout le CDbl(TextBox20) qui va pas mais uniquement le Range("B" & DernièreLigneSaisie + 1)
comment savoir ?

 

[kjin]

Re : Valeur textbox

Bonsoir Dranreb 🙂,
On trouvera la solution...hier !
A+
kjin

 

[mikeo]

Re : Valeur textbox

Bonjour tout le monde,

Bruno62, si tu avais mis un petit exemple, ton problème serait réglé depuis longtemps, on n'a pas à deviner ce que tu as mis dans tes codes. Avec un clavier français, la touche "." génère dans une feuille une "," . Par contre, si tu mets le "." dans un textbox, il apparait comme un "." et c'est un texte. L'instruction Cdbl (textbox) provoque une incompatibilité de type.

Sans d'autre visibilité, et pour contrôler l'action du point ou de la virgule, je te proposerai d'ajouter une instruction dans le genre :

Private Sub Textbox1_keyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

Et si tu as plein de textboxxxxxxxxxxx, crée un module de classe (voir les posts de Laetitia).

Mikeo

(c'est pas souvent que je vois kjin monter sur ses grands chevaux, tu as fait très fort. Cool, mon frère, profite de ton samedi, et apporte nous toujours ton savoir.)

 

[BRUNO62]

Re : Valeur textbox

Bonsoir,

Désolé du retard...
Merci Mikeo, kjin , Klin89 , Dranreb, CHALET53, grisan29 encore toutes mes excuses.
Ci-jt un bout de fichier.
En feuil3, enregistrement des données et une copie exemple illustrant mon problème
En feuil4, la synthèse regroupant ces données
Avez vous une idée ?
A+