Discussion :

[Jujube83]

Bonjour,
A partir d'une table attachée en txt, je recupére des valeurs numériques avec le signe négatif à la fin et un point en séparateur des milliers, par ex :
1.114,28-
3.000,00
1.344,00-

J'aimerais savoir s'il existe une fonction ou une procédure que je pourrais utiliser à partir d'une requete afin d'obtenir un nombre décimal normal.
J'ai essayé d'adapter la fonction replace et d'autres, en vain, c'est trop compliqué pour moi.

Merci d'avance pour votre aide

[cafeine]

Hello,

un exemple à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Nettoyage(byval str as string) As Double
 
Str = Replace(Str, ".", VbNullString)
Str = Replace(Str, ",", ".")
If Right(Str, 1) = "-" Then
    Nettoyage = CDbl("-" & Left(Str, Len(Str) - 1))
Else
    Nettoyage = CDbl(Str)
End If
 
End Function

[mout1234]

Bonjour et bienvenu sur le forum.

Je ne crois qu'il y ait de solutions toute faite.

Plutot que d'essayer de te guider... je t'ai écris une solution (peu testée)

Place ce code dans un module standard:

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
Public Function ap_FormaterNombres(ByVal vValeur As Variant) As Double
On Error Resume Next
 
Dim sNombre As String
Dim iSigne  As Double
If Nz(vValeur, 0) = 0 Then
    'valeur nulles ou égales à 0
    ap_FormaterNombres = 0
Else
    'Isoler le signe
    If Right(vValeur, 1) = "-" Then
        sNombre = Left(vValeur, Len(vValeur) - 1)
        iSigne = -1
    Else
        sNombre = vValeur
        iSigne = 1
    End If
 
    sNombre = Replace(Replace(sNombre, ".", ""), ",", ".")
 
 
    ap_FormaterNombres = iSigne * val(sNombre)
 
End If
End Function

Tu peux alors utiliser la fonction ap_FormaterNombres dans une requête. Quelque chose du genre:

Code SQL :

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

SELECT ap_FormaterNombres([MonChamp]) as NombreFormaté FROM Matable

EDIT: Cafeine a répondu plus vite et te propose un code plus concis ... mais la logique est la même.

BOn dev

[Jujube83]

Merci à vous deux pour votre rapidité et surtout pour votre efficacité.

C'est paefait, ça marche et ça répond tout à fait à ce que je voulais obtenir.


Merci mille fois