Eliminer un caractère spécial dans une feuille excel

[arthurho]

Bonjour, j'aimerais éliminer un caractère spécial dans une feuille excel en utilisant la fonction suivante :

Sub test()


For i = 127 To 255  'à adapter
    Cells.Replace Chr(i), "", xlPart
Next i
End Sub

Le caractère special est un carré avec un point d'interrogation à l'interieur, je n'arrive pas a savoir quel est son code ascii.

Avez vous une solution ?

Cdt,

Arthur HO.

 

[pierrejean]

Re : Eliminer un caractère spécial dans une feuille excel

Bonjour arthurho

Teste:

Sub essai()
Range("A1") = Replace(Replace(Range("A1"), Chr(10), ""), Chr(13), "")
End Sub

 

[arthurho]

Re : Eliminer un caractère spécial dans une feuille excel

Merci pierrejean,

En fait le caractère special est un retour à la ligne, jai donc utilisé chr(13)

Cdt,