remplacer des symboles japonais par macro

[albert]

Bonjour à tous, bonjour forumiens et forumiennes,

J’ai transformé manuellement la date en « jj/mm/aa »
J’ai procédé ainsi :
Copie du caractère japonais à supprimer dans la barre du haut

- édition-remplacer
- dans rechercher : Ctrl+H et Ctrl+V
- dans remplacer par : /
et ainsi de suite pour tous les symboles à traiter ;

Et ça marche.

J’obtiens le code suivant :
Sub remplaceDate()
Range("A4").Select
ActiveCell.FormulaR1C1 = "2004?3?29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveCell.FormulaR1C1 = "2004/3?29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveCell.FormulaR1C1 = "2004/3/29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub

Si j’exécute la macro (bouton1)
Toutes les données de la page s’effacent…

J’ai donc essayé de bricoler le code , mais sans trouver de solution

Puis-je avoir une aide ?

Merci d’avance

PJ : japon.zip 9 Ko

albert

 

[Bernard]

bonsoir Albert

Je n'ai pas de solution par la fonction "remplacer" mais par Données/convertir cela marche très bien.

Cordialement

Bernard

 

[albert]

bonjour Bernard,
j'ai essayé d'isoler les caractères à excure en utilisan le séparateur de colonnes. ça marche, mais les dates sont modifiées et les autres colonnes disparaissent.
il va donc falloir que je travaille sur "remplacer"


merci pour le coup d'main

albert

 

[Bernard]

bonsoir Albert

Je n'ai toujours pas de solution avec la fonction "remplacer" hihi

mais je t'ai fait une macro en fichier joint qui élimine les signes japonais et remet les dates conformes à nos référence.


Cordialement

Bernard

 

[albert]

merci bernard, ça marche bien maintenant

cordialement

albert