XL 2010 nombre decimal non pris en compte par if <x< then

D

danielco

XLDnaute Accro

• 3 Octobre 2019

• #2

Bonjour,

Les textboxes renvoient des valeurs string. Utilise donc :

VB:

If CDbl(TextBox15.Value) >= 6.5 And CDbl(TextBox15.Value) <= 9 Then

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

A

adnanoht

XLDnaute Nouveau

• 3 Octobre 2019

• #3

danielco à dit:

Bonjour,

Les textboxes renvoient des valeurs string. Utilise donc :

VB:

If CDbl(TextBox15.Value) >= 6.5 And CDbl(TextBox15.Value) <= 9 Then

Cordialement.

Daniel

Cliquez pour agrandir...

Bonjour Danielco,
Merci pour ta réponse mais malheuresement ca marche pas pour moi ca me donne une erreur 13 pour tout les nombre decimal

Cordialement.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Octobre 2019

• #4

Bonjour,

CDBL exige une virgule (pour les claviers francisés) ou Application.DecimalSeparator comme séparateur décimal dans les chaînes de caractères représentant des nombres décimaux.

Si vos textboxes contiennent des chose comme "12.36" => CDBL plante
S'ils contiennent "12,36" => CDBL ne plantera pas.

Contournements possibles:
1 - valeur = Cdbl(replace(TextBox15.Text,".",","))
2 - valeur = Cdbl(Replace(TextBox15.Text,".",application.DecimalSeparator))
3 - remplacer le point par la virgule à la saisie ou sur évènement Exit du textbox

Exemple de remplacement lors de la saisie:

VB:

Private Sub TextBox15_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44 'Remplace point par virgule
End Sub

Cordialement
,

 

Dernière édition: 3 Octobre 2019

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 3 Octobre 2019

• #5

@Roblochon :
Bonjour,

CDBL exige une virgule (pour les claviers francisés) ou application.International(xldecimalseparator) comme séparateur décimal dans les chaînes de caractères représentant des nombres décimaux.

Cliquez pour agrandir...

A priori, non :


Je pense que le problème existe avec Val (que je n'utilise jamais).

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Octobre 2019

• #6

Bonjour,

@danielco, apparemment votre textBox comporte une Virgule donc pas de problème CDBL .

Msgbox Cdbl("12.36") => problème
MsgBox Cdbl("12,36") => pas problème
MsgBox val("12.36") => pas problème
MsgBox val("12,36") => affiche 12 (s'arrête sur le premier caractère non numérique)

Bonne soirée

 

Dernière édition: 3 Octobre 2019

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 3 Octobre 2019

• #7

Alors, dans quel cas y a-t-il problème ?

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Octobre 2019

• #8

Re,

Eh bien dans le cas ou la chaîne de caractère contient un séparateur décimal qui n'est pas celui du système(Application.DecimalSeparator) ou tout autre caractère ne pouvant être interprété comme numérique.

Souvent la saisie des nombres se fait avec le pavé numérique et le point du pavé numérique n'est pas toujours remplacé par la virgule (TextBox: non Cellule: oui).

Vous avez essayé les 4 msgBox ?

Cordialement

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 3 Octobre 2019

• #9

le point du pavé numérique n'est pas toujours remplacé par la virgule

Cliquez pour agrandir...

Je n'avais jamais rencontré ce cas.

Daniel

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Octobre 2019

• #10

re
bonjour

VB:

Private Sub TextBox1_Change()
 TextBox1 = Replace(TextBox1, ".", ",")
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 KeyCode = IIf(KeyCode = 110, 188, KeyCode)
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = IIf(KeyAscii = 44, 46, KeyAscii)
End Sub

 

Vote positif 0 Vote négatif

A

adnanoht

XLDnaute Nouveau

• 4 Octobre 2019

• #11

Bonjour,

Merci tous pour votre aide, c'est vraiment magnifique ce forum. J'ai contourné le problème en faisant référence aux cellules où sont saisie ces textbox. c'est à dire en remplaçant dans le code : ça TextBox15.Value par Range("l" & dernlign + 14).Value
C'est un peu de la triche mais ca marche XD

Cordialement,

 

Vote positif 0 Vote négatif