Rechercher un symbole dans une cellule. CAR(149)

Bonjour a tous,

j'aimerai savoir s'il y a une technique pour rechercher un symbole dans une cellule afin de pouvoir la remplacer par un autre caractère.

Ex: je recherche ce symbol = car(149), c'est un boulet.

je veux le remplacer par !

Mais je n'arrive pas a effectuer une recherche avec un symbole....

Je joins un fichier.

Merci de votre temps.

Bonsoir,

Il n'y a pas de car(149) dans ton fichier, seulement des car(7).

Voir l'exemple ci-dessous et le fichier joint.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet, lo As ListObject
Dim loCol As Long
    Set ws = ActiveSheet
    Set lo = ws.ListObjects(1)
    With lo.ListColumns(2).DataBodyRange
        .Replace Chr(7), "!"
    End With
    Set lo = Nothing: Set ws = Nothing
End Sub

Bonjour,

Sinon dans Rechercher saisir : Alt+0149 (touche Alt et sans la relacher les 4 chiffres)

eric