J'ai un fichier texte qui contient des tabulations.
Mais quand je veux le mettre en fichier csv il me met des carr=E9s.
Comment on enl=E8ve les caract=E8res sp=E9ciaux ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Azerti,
la tabulation peux être modifier de par différent caractères spéc iaux selon l'environenemt, pour connaitre ce caractère spécial untilise la fonction =Code(A1) exemple si je met le texte "L atl+Enter L" dans la cellule A1 et que je décoche au menu, Format, Cellule, Allignement, Renvoyer à la ligne automatiquement. j'obtient en A1 "L L" je met la formule suivante =CODE(STXT($A$1;LIGNE();1)) en B1 et recopie vers le bas sur trois lignes et le résultat pour le second caratère = 10 représentent le retour de chariot. une fois le code du caractère trouver, execute cette macro sur la feuille (import texte) pour remplacer les Chr(??) par une espace ou autre de ton choix.
Sub Macro1() Dim c For Each c In Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address) Range(c.Address) = Application.Substitute(c, Chr(10), " ") Next End Sub
isabelle
Bonjour,
J'ai un fichier texte qui contient des tabulations. Mais quand je veux le mettre en fichier csv il me met des carrés. Comment on enlève les caractères spéciaux ?
Merci
bonjour Azerti,
la tabulation peux être modifier de par différent caractères spéc iaux
selon l'environenemt,
pour connaitre ce caractère spécial untilise la fonction =Code(A1)
exemple si je met le texte "L atl+Enter L" dans la cellule A1 et que je
décoche au menu, Format, Cellule, Allignement, Renvoyer à la ligne
automatiquement. j'obtient en A1 "L
L"
je met la formule suivante =CODE(STXT($A$1;LIGNE();1))
en B1 et recopie vers le bas sur trois lignes et le résultat pour le
second caratère = 10
représentent le retour de chariot.
une fois le code du caractère trouver, execute cette macro sur la
feuille (import texte) pour remplacer les Chr(??) par une espace ou
autre de ton choix.
Sub Macro1()
Dim c
For Each c In Range("A1:" &
Range("A1").SpecialCells(xlCellTypeLastCell).Address)
Range(c.Address) = Application.Substitute(c, Chr(10), " ")
Next
End Sub
isabelle
Bonjour,
J'ai un fichier texte qui contient des tabulations.
Mais quand je veux le mettre en fichier csv il me met des carrés.
Comment on enlève les caractères spéciaux ?
la tabulation peux être modifier de par différent caractères spéc iaux selon l'environenemt, pour connaitre ce caractère spécial untilise la fonction =Code(A1) exemple si je met le texte "L atl+Enter L" dans la cellule A1 et que je décoche au menu, Format, Cellule, Allignement, Renvoyer à la ligne automatiquement. j'obtient en A1 "L L" je met la formule suivante =CODE(STXT($A$1;LIGNE();1)) en B1 et recopie vers le bas sur trois lignes et le résultat pour le second caratère = 10 représentent le retour de chariot. une fois le code du caractère trouver, execute cette macro sur la feuille (import texte) pour remplacer les Chr(??) par une espace ou autre de ton choix.
Sub Macro1() Dim c For Each c In Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address) Range(c.Address) = Application.Substitute(c, Chr(10), " ") Next End Sub
isabelle
Bonjour,
J'ai un fichier texte qui contient des tabulations. Mais quand je veux le mettre en fichier csv il me met des carrés. Comment on enlève les caractères spéciaux ?
