Discussion :

[xflaude]

Bonjour a tous

J'avais une formule qui me permettre de supprimer dans mon table la ponctuation
Malheureusement pas utilise depuis 3 ans et j'ai oublié la procédure

Merci d’avance pour votre aide

Cordialement

[marot_r]

Bonjour.

Probablement la fonction Replace().Quelque chose comme :

Code sql :

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

Replace([TaSoure].[TonChamp]; ","; "")

Remplace les virgules par rien.

A+

[xflaude]

Bonjour

Merci pour ton retour mais je souhaitais supprimer toutes la ponctuations avec la fonction remplacer d’après mes connaissances je peut pas remplacer plein de caracteres par rien avec la formule remplacer ou replace

Merci d'avance pour ton retour et bonne journée

[hyperion13]

Salut
Mettre bout à bout les caractères spéciaux à traiter comme ci-dessous
Remplacer(Remplacer(Remplacer(NomDuChamp; "#"; ""); "-"; ""); "/"; "")Sinon passer par une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function RemplacerSymboles(ByRef MonChamp As String) As String
'Public Function RemplacerSymboles(ByRef MonChamp As String, ByVal SymboleRemplacement As String) As String
    Dim varData As Variant
    varData = Array("&", "~", """", "#", "{", "}", "[", "]", "@", ",", ";", ":", "!", "?", "\", "/", "*", "<", ">", "|", "§")
 
    Dim i As Integer
    For i = LBound(varData) To UBound(varData)
       MonChamp = Replace(MonChamp, varData(i), vbNullString)
       'MonChamp = Replace(MonChamp, varData(i), SymboleRemplacement)
    Next i
 
    RemplacerSymboles = MonChamp
End Function

Et dans une req appeler la fct RemplacerSymboles([NomChampDeLaTable])

[xflaude]

merci pour ton retour


je vais essayer ce matin et je te reviens

Merci