Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
992065 visiteurs
2 visiteurs en ligne
Pour y voir un peu plus clair (peut-être ...)
Function EpurerTexte(strTexte As String) As String Dim Resultat As String Dim Signe As String '* 1 Dim Position As Integer If Len(strTexte) > 0 Then For Position = 1 To Len(strTexte) Signe = Mid$(strTexte, Position, 1) If (Signe >= "A" And Signe <= "Z") _ Or (Signe >= "a" And Signe <= "z") _ Or (Signe >= "0" And Signe <= "9") Then Resultat = Resultat & Signe End If Next Position EpurerTexte = Resultat End If End Function