A
albert
Guest
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
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