Discussion :

[GeorgesAntoineC]

Bonjour à tous,

J'ai une table Access que j'exporte en classeur Excel. Un de ses champs est un champs numérique avec 2 décimales.

J'importe par la suite ce fichier via VBA dans une BD Access. La table comporte maintenant un champ texte à la place du champs numérique, par contre, la précision n'est pas perdu.

J'aimerais savoir comment faire une fonction de conversion texte vers numérique en gardant les décimales...

Présentement j'utilise la fonction VAL(), mais ça enlève les décimales... exemple 2,88 = 2.

Est-ce qu'il y a une façon en vba de convertir le champs String en numérique sans perdre la précision décimale.

A+

[tee_grandbois]

bonsoir,
Val() convertit en entier long (sans décimales), il faut utiliser CDbl() pour obtenir un nombre de type Réel double ou CCur() pour obtenir un nombre de type monétaire (avec 4 décimales maximum)

[Thumb down]

bonjour,
CDbl() converti un numérique String au format Français en Double CDbl("2,5") il tient compte du caractère décimal en fonction des paramètres régionaux ici la virgule vue que nous somme en France!

Val() converti un numérique String au format Anglais en ​Double Val("2.5") il ne tien pas compte des paramètres régionaux!

personnellement je préfère val qui ne tien pas compte des paramètres régionaux donc du pays!

Code :

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

Val(replace("2,5",",","."))

[GeorgesAntoineC]

Est-ce qu'on peut envoyer une valeur NULL ou vide à une variable de type Integer ou Long.

Lorsque j'ai un chiffre ex.: 2,88. Ça fonctionne. Par contre, lorsque le champs est vide, ça me marque un erreur : Type incompatible. Donc, la fonction VBA ne peut pas s'exécuter.

[Thumb down]

Les variables ont peur du vide et du néant ,peut importe leur type!
Regardes la fonction NZ()

Notes que "" pour un sting par exemple c'est pas vide.

[GeorgesAntoineC]

Donc si j'ai un code comme ça :

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
 
Public Col1_temp2 As String
Public Col2_temp2 As String
Public Col3_temp2 As Integer
Public Col4_temp2 As Double
Public Col5_temp2 As Double
Public Table As String
 
Function UploadFromDonnees_Fct2(ByVal Ligne1 As String, ByVal Ligne2 As String, ByVal Ligne3 As Integer, ByVal Ligne4 As Double, ByVal Ligne5 As Double)
 
On Error GoTo ErrorHandler
 
 
 
Col1_temp2 = Ligne1
Col2_temp2 = Ligne2
Col3_temp2 = Ligne3
Col4_temp2 = Ligne4
Col5_temp2 = Ligne5
 
ErrorHandler:
 
 
End Function

Les paramètres de la fonction sont envoyés via un bouton dans un formulaire tabulaire. Bref, si c'est un nombre (ex.:2,88), bien ça fonctionne parfaitement. Par contre, si dans la table le champs est vide, la variable Ligne5 n'accepte pas le type...

Que dois-je faire au code pour remédier à la situation, puisque dans cette situation un champs vide et un 0 est très différent.

[Thumb down]

Col1_temp2 = NZ(Ligne1,"")

[GeorgesAntoineC]

Toujours la même erreur...



L'erreur se fait dans l'appel de la fonction, je ne me rend même pas au code à l'intérieur...

l'erreur provient de la déclaration de variable Byval Ligne5 as double . L'information dans la table Access comporte un null, vide.

[madefemere]

Bonsoir,

Si la valeur "Null" est inévitable, il faut utiliser le type Variant.

Cordialement.

[tee_grandbois]

bonsoir,

illustration de la réponse de madefemere:

Code :

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

1
2
3
4
5
... 
... ByVal Ligne5 As Variant)
...
Col5_temp2 = NZ(Ligne1,0)  ' car c'est du numérique
...

[GeorgesAntoineC]

Merci ça fonctionne.