Remplacer ? par autre valeur en V.B.A.

[pmfontaine]

Bonjour le Forum,
Voilà mon problème :
Dans des cellules, j'ai du texte avec des points d'intérogations.
Avec un script comme :

Selection.Replace What:="?", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Je voudrais suprimer uniquement les points d'intérogations.
Le problème c'est qu'il suprime tous.


Comment passer de :

fgg?
jj?nnj?kkm
abc ? BB?

a :

fgg
jjnnjkkm
abc BB

Merci d'avance.
Patrick

 

[RENAUDER]

Re : Remplacer ? par autre valeur en V.B.A.

Bonjour,
Tu peux utiliser ceci

 For Each cell In Selection
        cell.Value = Replace(cell, "?", "", 1)
    Next cell

 

[pmfontaine]

Re : Remplacer ? par autre valeur en V.B.A.

Bonjour RENAUDER et le Forum,
Merci pour ton aide, ça marche.
Salutations