Discussion :

[César Pinaud]

Bonjour,
j'ai un problème du même ordre que dans cette discussion.
Je tiens tout d'abord à préciser que j'ai cherché sur la FAQ et sur le forum avant de poser ma question.

Voilà, j'ai des cellules contenant des caractères étranges, exmple : "Création révision non planifiée dans Customer".

Mon but, créer une macro qui remplace tous les "é" par des "é".

J'ai bien essayer d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells.Select 
Selection.Replace What:="é", Replacement:="é", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

mais j'ai une erreur d'exécution 1004 qui me bloque.

Quelqu'un pourrait-il m'aider ?

Merci d'avance.

[Invité]

Bonjour César Pinaud,

Une 1ère remarque :

vous auriez dû créer un nouveau sujet et insérer un lien éventuellement vers celui-ci pour montrer qu'il se rapprochait de ce que vous vouliez faire.

Edit AlainTech: J'ai déplacé les messages.

Cela dit :

Je ne vois pas à quoi sert dans votre code le ligne en rouge ci-dessous :

Cells.Select
Selection.Replace What:="é", Replacement:="é", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Il faut définir votre sélection et il y a plusieurs solutions, en voici une :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Remplacer()
Range(Cells(2, 1), Cells(5, 1)).Select
Selection.Replace What:="é", Replacement:="é", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

Amicalement.

[César Pinaud]

Merci beaucoup jacques_jean, ça m'être d'une grand utilité.