enlever des caratères indésirables

[Sonskriverez]

Rebonjour le forum, en core un pbl VBA

Je passe sur une serie de cellules, si je rencontre une cellule vide:

cells(i,y).Value='Message'

Pas de pbl ca fonctionne, par contre dans ma feuille il y a des cellules #NOM? car il y a des trucs du genre : =-TOTO ou =//-TOTO comment faire pour n'avoir que toto dans la cellule.


Merci de votre aide et bonne fêtes

 

[andré]

Salut,

En VBA je ne puis t'aider, amis par formule :

=SUBSTITUE(SUBSTITUE(A1;'-';'');'/';'')

En enregistrant cette procédure sous un macro, peut-être que cela fonctionnera.

Â+

 

[excalibur]

bonjour Sonskriverez andre le forum tu peus faire un truc comme ca Option Explicit
Sub replace()
Dim patente As Range
For Each patente In Selection
patente.replace What:='-', Replacement:=''
patente.replace What:='//', Replacement:=''
patente.replace What:='=', Replacement:=''
Next
End Sub'attention dans l ex c est toi qui selectionne une cell ou une plage avec la souris

 

[sonskriverez]

Merci de ton aide andré, mais c'est sous VBA que je cherchait.
Merci excalibur ca fonctionne bien.