Discussion :

[_developpeur_]

Bonjour,

j'utilise une macro access qui ouvre un fichier excel et insère des données dans une table notamment des chiffres décimal.

Pour controler la saisie des utilisateurs, je vérifie que dans une cellule ou on attends du numérique que l'on ne saisisse pas du texte.

et par hasard je suis tombé sur un truc un peu bizare :

si je met un chiffre avec une virgule, pas de problème la fonction

Code :

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

IsNumeric(xlsFeuille.Cells(iNumLigne, iNumPeriode)) = False

renvoi bien true.

Par contre, si je saisi un chiffre décimal avec un point, la la fonction me renvoi "false" alors que c'est bien du numérique. Conséquence je rejette la saisie de l'utilisateur alors qu'elle est correct...

est-ce que quelqu'un sait ce qu'il se passe et aurait une solution ?

merci

[jfontaine]

Bonjour;

Par contre, si je saisi un chiffre décimal avec un point, la la fonction me renvoi "false" alors que c'est bien du numérique. Conséquence je rejette la saisie de l'utilisateur alors qu'elle est correct...

Je suis étonné de cela, car en VBA la virgule n'est pas reconnu comme symbole décimal et pose régulièrement des problèmes quand on à ce symbole dans les paramètres régionaux si qu'on ne gère pas le symbole en code

Code :

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

IsNumeric("13.2") = True

er

Code :

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

IsNumeric("13,2") = False

[_developpeur_]

en allant plus loin, j'enleve le controle de saisie, il y a un plantage a l'exécution de la requete >> le champs dans la table est du numérique, j'ai l'impression qu'il considère le chiffre comme une chaine de caractère à cause du point ?

[jfontaine]

Et si tu remplaces les "." par des ","

Code :

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

IsNumeric(Replace(xlsFeuille.Cells(iNumLigne, iNumPeriode).Value,".",",")) = False

[_developpeur_]

jfontaine, merci de ta réponse.

Je confirme ce que je dis, si je saisi 100.35, la fonction isnumeric renvoi bien false.

Si je saisi 100,35, la fonction renvoi vrai.

mon paramétrage est French(France). pour ce paramétrage le symbole décimal est la virgule.

Bonjour Ormonth, et merci de ta réponse j'ai lu ce que tu as posté, mais je n'y ai pas trouvé de solutions.

Peux-tu m'expliquer d'avantage ?

Merci.

Et si tu remplaces les "." par des ","

Code :

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

IsNumeric(Replace(xlsFeuille.Cells(iNumLigne, iNumPeriode).Value,".",",")) = False

je sais pas trop en fait, car j'utilise a la construction de ma requete la fonction STR() qui permet de substituer la virgule du chiffre décimal par un point pour pas que la syntaxe SQL soit fausse, tu vois ce que je veux dire ?

[jfontaine]

Code :

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

IsNumeric(Replace(xlsFeuille.Cells(iNumLigne, iNumPeriode).Value,".",",")) = False

Ici on remplace uniquement dans la condition.

Code :

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

xlsFeuille.Cells(iNumLigne, iNumPeriode).Value

Contient toujours la virgule qui sera remplacée ensuite pour la requête SQL

[_developpeur_]

Bonjour,

je pige mal le contexte
tu saisis où dans quoi ?

je saisi un chiffre décimal avec comme symbole décimal le point dans la cellule excel.

Code :

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

IsNumeric(Replace(xlsFeuille.Cells(iNumLigne, iNumPeriode).Value,".",",")) = False

Ici on remplace uniquement dans la condition.

Code :

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

xlsFeuille.Cells(iNumLigne, iNumPeriode).Value

Contient toujours la virgule qui sera remplacée ensuite pour la requête SQL

si j'utilise le replace dans la condition effectivement ca marche.

mais plus loin a l'exécution de la requete ça plante car dans la table le champs est de type numérique.

donc je sais pas trop ce que ca va donner si j utilise également le replace dans la requete avec également la fonction STR comme exxpliqué plus haut.

[Didier Gonard]

Bonjour,

vois ceci http://didier-gonard.developpez.com/...texbox/#LV-G-1

et le reste pour le fond entre les séparateurs feuilles et VBA..

cordialement,

Didier

[Didier Gonard]

Bonjour,

je pige mal le contexte

Par contre, si je saisi un chiffre décimal avec un point

tu saisis où dans quoi ?

vois ceci aussi sinon :

Influence des séparateurs décimal et listes FR/US sur l’enregistreur de macro

cordialement,

Didier