Macro de remplacement de caracteres
salut a tous
je manipule plusieurs fois par semaine des fichiers excel afin d'en exporter les données
apres avoir récupérer un certain nombre de colonne sur des fichiers excel importé,
je dois enlever les caractères " / - . _" sur les 3 premières colonnes
ensuite remplacer les "," par des points sur la colonne D
j'ai donc tenté un enregistrement macro en utilisant le "Ctrl + H" qui fonction pour les 3 premières colonnes. en revanche rien ne ce passe en colonne D
pouvez vous m'aider à solutionner ce problème.
merci d'avance
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("D:D").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:C").Select
Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="_", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier.
Bye !
je ne peux pas joindre un des vrais fichier mais pour exemple ca donne ca avec en général 30 ou 40000 lignes
merci de ta réponse
elle semble correspondre. il faut que je teste sur les gros fichiers pour voir
je te tiens au courant