Discussion :

[richardprod]

Bonjour,
J'ai un champs avec des Currency non reconnu par Access (par exemple : 12000.12 EUR, CH 2500.12, $ 1400.12) Je souaiterais obtenir uniquement les chiffres avec la décmale et supprimer toute lettre ou $.

J'ai tenté ccur, mais cela ne fonctionnement pas ni replace EUR par vide car je ne sais pas à l'avance toutes les currency possibles.

En résumer quelqu'un sait t - il comment supprimer toute les Lettres et caractere speciaux d'un champs texte.

Merci d'avance pour votre aide,
Richardprod

[Jean-Philippe André]

Bonjour,
En passant par une boucle
par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim i as Integer
Dim chaineaExpurger As String
chaineaExpurger = Inputbox("valeur")
i = 32
 
Do Until IsNumeric(chaineaExpurger )
chaineaExpurger = Replace(chaineaExpurger,Chr(i),"")
i = i+1
if i = 48 then i = 58 'zone des chiffres
if i = 46 then i = 47 'on garde le .
Loop
MsgBox "Et voila le résultat : " & chaineaExpurger

[richardprod]

Merci beaucoup,

j'ai créé une fonction avec ta proposition comme suis pour mettre à jour mon champ dans ma table mais j'ai une errur : "Invalid procedure call or argument sur la ligne chaineaexpurger = Replace(chaineaexpurger, Chr(i), "").
Quelqu'un aurait une idée de la raison ?

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
 
Sub conversion()
 
Dim MaTable As Recordset
Set MaTable = currentDb.OpenRecordset("PL")
Do Until MaTable.EOF = True
MaTable.Edit
MaTable("Trans_Amount") = convert(MaTable("Trans_Amount").Value)
MaTable.Update
 
MaTable.MoveNext
Loop
MaTable.Close
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function convert(chaineaexpurger As String) As String
Dim i As Integer
i = 32
Do Until IsNumeric(chaineaexpurger)
 
chaineaexpurger = Replace(chaineaexpurger, ",", ".")
chaineaexpurger = Replace(chaineaexpurger, Chr(i), "")
i = i + 1
If i = 48 Then i = 58 'zone des chiffres
If i = 46 Then i = 47 'on garde le .
Loop
End Function

[Jean-Philippe André]

Essaie plutôt de passer par une variable locale, sans oublier de renvoyer le résultat de la fonction :

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
Function convert(chaineaexpurger As String) As String
Dim i As Integer
Dim tmpstr As String
i = 32
tmpstr = chaineaexpurger
Do Until IsNumeric(tmpstr ) 
 
tmpstr = Replace(tmpstr , ",", ".")
tmpstr = Replace(tmpstr , Chr(i), "")
i = i + 1
If i = 48 Then i = 58 'zone des chiffres
If i = 46 Then i = 47 'on garde le .
Loop
convert = tmpstr
End Function

[ilank]

Bonsoir,
il y a peut-être plus simple mais uniquement si j'ai bien compris.

Tu as dans le champ une de ces trois valeurs:
- 12000.12 EUR
- CH 2500.12
- $ 1400.12
ou les 3 valeurs sont comprises dans le champ d'un seul enregistrement.

Dans le cas où tu as une des 3 valeurs essaie ceci comme champ dans une requête
Pour l'exemple j'appelle le champ Chaine.

Code SQL :

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

1
2
3
4
5
IIf(
 Instr(Chaine,".")>Instr(Chaine," "),
 Val(Mid(Chaine,Instr(Chaine," ")+1)),
 Val(Chaine)
 ) As [Valeur]

[vodiem]

salut ilank, jpcheck et richardprod,

en supposant qu'il y a toujours un espace entre la monnaie et la valeur et pas d'autre <espace>:

Code SQL :

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

val(left(v,instr(v," ")))+ val(mid(v,instr(v," ")))