Discussion :

[angku]

Bonjour,

je me tourne aujourd'hui vers vous pour une petite fonction que vous devez sans doute connaitre, mais que je n'arrive pas à créer (étant nouveau en VBA...)

Je cherche simplement à supprimer, dans un champ Access, tout caractère autre que 0 1 2 3 4 5 6 7 8 9

Auriez vous ceci s'il vous plaît ?

Je vous remercie par avance.

[pc75]

Bonjour,

La fonction Replace() ne te convient pas ?

[angku]

Merci pour la réponse

La fonction Replace remplace une chaine de caractère (si je ne me trompe pas )

Cependant, je cherche à éliminer tout ce qui n'est pas numérique en fait

[Tofalu]

Bonjour

Un exemple parmis d'autres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function QueChiffre(strChaine As String) As Integer
Dim i As Integer
Dim strCurseur As String
For i = 1 To Len(strChaine)
    strCurseur = Mid(strChaine, i, 1)
    If IsNumeric(strCurseur) Then _
        QueChiffre = QueChiffre & strCurseur
Next i
End Function
Sub essai()
MsgBox QueChiffre("2ER22")
End Sub

[angku]

Merci !

Cependant, lors de l'éxecution, un MsgBox apparait me disant "erreur d'execution '6' : depassement de capacité

Et je ne peux plus rien faire a part ouvrir le debogeur..

Savez vous ce que je dois modifier ?

Est ce parce que ma base est trop grande ? (57000 lignes)

[Tofalu]

Les chaines à traiter sont grande ?

[Access Newbie]

Bonjour,

Ce n'est pas lié à la taille de la base mais au type de donnée.

Avec du double cela devrait aller mieux mais la meilleure solution serait d'adapter au mieux le type (integer / long / double ...) a la valeur max de chaine.

Code :

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

Function QueChiffre(strChaine As String) As Double

[Tofalu]

Bonjour,

Code :

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

Function QueChiffre(strChaine As String) As Double

Il faudra modifier i aussi dans ce cas puisqu'il prend la longeur de la chaine. En long plutot que double dans un premier temps. Mais bon sachant que dans un champ texte on ne peut stocker que 255 caractères et dans un mémo 65535, le problème me semble ailleurs.

[Access Newbie]

Il faudra modifier i aussi dans ce cas puisqu'il prend la longeur de la chaine. En long plutot que double dans un premier temps. Mais bon sachant que dans un champ texte on ne peut stocker que 255 caractères et dans un mémo 65535, le problème me semble ailleurs.

Très juste

[Invité]

Bonjour

Est ce parce que ma base est trop grande ? (57000 lignes)

Comment utilises-tu la fonction que t'a fourni Tofalu ?

Philippe

[angku]

Désolé pour la réponse tardive.

Alors si je change le type de données en "double", cela marche.

Cependant, comme il s'agit de numéros de téléphones étrangers et français, si il y a un zéro en début de chaîne, celui ci est supprimé :/


Mais cela n'est pas très grave, je pense pouvoir passer outre.
les chaînes font moins de 20 caractères, 10 en général, voir 0

@Philippe JOCHMANS : je fais une mise à jour en utilisant la fonction sur ma base.


(et merci pour votre précieuse aide )

[Tofalu]

C'est parce qu'en fait le résultat que tu souhaites c'est une chaîne de caractères et non un nombre (les zéros non significatifs sont enlevés sur les nombres)

Essaye :

Code :

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

1
2
3
4
5
6
7
8
9
Function QueChiffre(strChaine As String) As String
Dim i As Integer
Dim strCurseur As String
For i = 1 To Len(strChaine)
    strCurseur = Mid(strChaine, i, 1)
    If IsNumeric(strCurseur) Then _
        QueChiffre = QueChiffre & strCurseur
Next i
End Function

[angku]

Tout simplement parfait !

Merci