Supprimer les espaces

Salut Cilou,

Je peux te proposer une fonction "maison", que j'utilise pour le
retraitement de chaines de caractères :


***********************************
Public Function Vide(szText As String) As String

Dim I As Integer
Dim szChar As String
Dim supp As Boolean

For I = 1 To Len(szText)
If I > Len(szText) Then
GoSub fin
End If
szChar = Mid(szText, I, 1)
supp = False
Select Case szChar
Case " ", ",", ".", "-"
szChar = ""
supp = True
End Select
szText = Left(szText, I - 1) & szChar & Right(szText, Len(szText) - I)
If supp = True Then
I = I - 1
End If
Next I

fin:
Vide = szText

End Function
**********************************

Dans le cas présent, cette fonction "vide" te permet de purger ta chaine des
blancs, points, virgules ou tirets. C'est mieux que d'emboiter des "replace"
en cascade.

Ce type de fonction peut être aussi utilisée, via le "select case" pour
éliminer au besoin les caractères impropres, les caractères accentués,
etc...

Je m'en sers d'ailleurs autant dans Excel que dans Access.

A +

Cordialement.

Pierre



"Cilou" <Cilou@discussions.microsoft.com> a écrit dans le message de
news:B706C732-3DE1-498B-B7EF-2156F510F6B9@microsoft.com...

Bonjour,

Quelle est la requete qui permert de supprimer les espaces (ou les
points)d'un numéro de téléphone ?

Merci de votre aide