chiffre décimal toujours des problèmes

**_developpeur_** · 26/09/2011, 17h20

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** · 26/09/2011, 17h29

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_** · 26/09/2011, 17h30

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** · 26/09/2011, 17h43

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

**Didier Gonard** · 26/09/2011, 17h45

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

**_developpeur_** · 26/09/2011, 18h02

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.

Envoyé par 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

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 ?

**Didier Gonard** · 26/09/2011, 18h06

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

**jfontaine** · 26/09/2011, 18h06

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_** · 26/09/2011, 18h16

Envoyé par Ormonth

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.

Envoyé par 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

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** · 26/09/2011, 18h24

Envoyé par _developpeur_

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

Bonjour,

C'est impossible si tu as un paramétrage français de base, tu saisis alors du texte !

fais le test dans uns cellule, et observe l'alignement qui se produit, à gauche = texte, à droite = nombres / dates.
C'est pourquoi le point du pavé numérique est converti en virgule à la saisie dans une cellule, ce qui n'est pas le cas du point du clavier

cordialement,

Didier

**Theze** · 26/09/2011, 18h32

Bonjour,

Et en testant si le séparateur entrée par l'utilisateur correspond bien au séparateur système ?
A mettre dans le module de ta Form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Declare Function GetSystemDefaultLCID _
                Lib "kernel32" () As Long
 
Private Declare Function GetLocaleInfo _
                Lib "kernel32" _
                Alias "GetLocaleInfoA" ( _
                ByVal Locale As Long, _
                ByVal LCType As Long, _
                ByVal lpLCData As String, _
                ByVal cchData As Long) As Long
 
Function SeparateurDecimal() As String
 
    Dim Tampon As String
    Dim LongTampon As Long
    Dim LCID As Long
 
    LCID = GetSystemDefaultLCID
 
    LongTampon = 255
 
    Tampon = String$(LongTampon, vbNullChar)
 
    LongTampon = GetLocaleInfo(LCID, &HE, Tampon, LongTampon)
 
    If LongTampon > 0 Then
 
        SeparateurDecimal = Left$(Tampon, LongTampon - 1)
 
    Else
 
        SeparateurDecimal = ","
 
    End If
 
End Function
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    If KeyAscii = 44 Or KeyAscii = 46 Then
 
        KeyAscii = Asc(SeparateurDecimal)
 
    End If
 
End Sub

Hervé.

**_developpeur_** · 26/09/2011, 19h40

Envoyé par Ormonth

Bonjour,

C'est impossible si tu as un paramétrage français de base, tu saisis alors du texte !

fais le test dans uns cellule, et observe l'alignement qui se produit, à gauche = texte, à droite = nombres / dates.
C'est pourquoi le point du pavé numérique est converti en virgule à la saisie dans une cellule, ce qui n'est pas le cas du point du clavier

cordialement,

Didier

que je saisisse mon chiffre avec un point ou avec une virgule, il m'aligne toujours a droite.

De plus je suis sur un portable, et quand je saisi le point il ne me converti pas en virgule.

**jfontaine** · 26/09/2011, 21h15

Après toutes ces réponses, je suis un peu perdu sur ce qui te bloques.
Peux tu nous faire un topo avec ton code et le résultat attendu

chiffre décimal toujours des problèmes

Macros et VBA Excel

Discussions similaires

Partager

Partager