Caracteres speciaux

[malix]

Bonjour,

ya il une fonction sous excel permettant de chercher les caractere speciaux dans une chaine (%*?! ....) ?

Merci

 

[malix]

Re : Caracteres speciaux

Re bonjour,

C T juste pour creer des sheet sans caractere speciaux voici la fct VBA et son invert

Function ReplaceSpecialChar(StrToConvert As String) As String
StrToConvert = Replace(StrToConvert, ":", "#" & Asc(":"))
StrToConvert = Replace(StrToConvert, "/", "#" & Asc("/"))
StrToConvert = Replace(StrToConvert, "\", "#" & Asc("\"))
StrToConvert = Replace(StrToConvert, "[", "#" & Asc("["))
StrToConvert = Replace(StrToConvert, "]", "#" & Asc("]"))
StrToConvert = Replace(StrToConvert, "?", "#" & Asc("?"))
StrToConvert = Replace(StrToConvert, "*", "#" & Asc("*"))
If Len(StrToConvert) < 31 Then
ReplaceSpecialChar = "ERROR " & StrToConvert & " has more then 31 charcter!"
Else
ReplaceSpecialChar = StrToConvert
End If
End Function


-------------------------------------

Function InvertOfReplaceSpecialChar(StrToConvert As String) As String

StrToConvert = Replace(StrToConvert, "#" & Asc(":"), ":")
StrToConvert = Replace(StrToConvert, "#" & Asc("/"), "/")
StrToConvert = Replace(StrToConvert, "#" & Asc("\"), "\")
StrToConvert = Replace(StrToConvert, "#" & Asc("["), "[")
StrToConvert = Replace(StrToConvert, "#" & Asc("]"), "]")
StrToConvert = Replace(StrToConvert, "#" & Asc("?"), "?")
StrToConvert = Replace(StrToConvert, "#" & Asc("*"), "*")
InvertOfReplaceSpecialChar = StrToConvert

End Function


Merci

 

[Kotov]

Re : Caracteres speciaux

EDIT : au vu de ton récent message, le mien est hors de propos. Donc je l'efface
Bonne journée
Kotov

 

[malix]

Re : Caracteres speciaux

C pas grave peut etre jutiliseré tas solution (on ne c jamais)

 

[pad01]

Re : Caracteres speciaux

Bonjour le Forum
A tout hazard, je joins un fichier pour les caractères spéciaux pour Excel
Cdt

 

[malix]

Re : Caracteres speciaux

Merci
ça peut servir

A bientot