Discussion :

[Pix_elle]

Bonjour à tous,

Quand j'ouvre certains fichiers CSV sous Excel, ces derniers comportent des tabulations. Ces tabulations ne sont pas des séparateurs, il s'agit d'une "mauvaise manipulation" de la part du créateur du fichier.

J'ai vu, en parcourant des sujets similaires que le chr(9) correspondait à une tabulation et je voulais m'assurer que c'était universel.

Du coup, avec le code suivant, je pourrai transformer toutes les tabulations de la colonne 1 par des espaces :

Code :

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

Sheets("Feuil1").Columns(1).Replace Chr(9), " "

Si le chr(9) ne correspond pas à la tabulation... Existe-il un moyen de remplacer ces tabulations par des espaces ?

Merci par avance de vos retours !

[unparia]

Bonjour,
la constante vbtab (au demeurant = chr(9)), est le caractère de tabulation

[Stanler]

Bonjour,

Oui, c'est possible.

Tu peux utiliser Notepad++ pour remplacer un caractére par un autre (Raccourci : Ctrl + H)
rechercher la tabulation, tu peux la Copier/coller puis la mettre dans la zone de recherche de Ctrl + H

D'autres façons de faire existent aussi.

[Pix_elle]

Bonjour,
la constante vbtab (au demeurant = chr(9)), est le caractère de tabulation

Super, merci pour la confirmation !

Bonjour,

Oui, c'est possible.

Tu peux utiliser Notepad++ pour remplacer un caractére par un autre (Raccourci : Ctrl + H)
rechercher la tabulation, tu peux la Copier/coller puis la mettre dans la zone de recherche de Ctrl + H

D'autres façons de faire existent aussi.

Merci beaucoup, mais l'objectif est de rester sous Excel



Edit : Après vérifications, les tabulations s'en vont bien ! Mais je viens de m’apercevoir que je peux avoir 2, 3 ou x espaces consécutifs que ne sont alors pas remplacés par mon code actuel.
J'ai pensé à faire tous les cas possibles, mais il y a sûrement plus rapide :

Code :

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

1
2
3
Sheets("Feuil1").Columns(1).Replace "  ", " " 'Pour 2 espaces consécutifs
Sheets("Feuil1").Columns(1).Replace "   ", " " 'Pour 3 espaces consécutifs
Sheets("Feuil1").Columns(1).Replace "    ", " " 'Pour 4 espaces consécutifs et ainsi de suite...

Existe-il une formulation pour dire "si il y a 2 espaces consécutifs ou plus, remplacés tout ça par un seul espace" ?

Merci par avance

[unparia]

Sers-toi alors en plus de la méthode WorkSheetFunction.trim ...
Regarde :

Code :

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

1
2
3
4
toto = "aaa" & Chr(9) & Chr(9) & "bbb"
MsgBox toto
toto = WorksheetFunction.Trim(Replace(toto, vbTab, " "))
MsgBox toto

[Pix_elle]

Ah ouais ! ça marche nikel
Un très grand merci !