VBA - TRIB suppression espace

[rudymagny]

Bonsoir le forum,
Je suis embêté avec un TRIM pour supprimer les espaces car il n'efface pas ce sacré espace :

Cells(L2, 6).Value = Trim(Cells(L2, 6).Value)

la valeur de la cellule ressemble à ça : 0007FBX8*

???
Je comprend pas pourquoi.

merci d'avance

 

[JNP]

Re : VBA - TRIB suppression espace

Bonsoir RudyMagny 🙂,
Trim n'élimine que les espaces extérieurs (avant ou après), pas au millieu.
Si tu as des espaces au millieu, alors utilises

Cells(L2, 6).Value = Replace(Cells(L2, 6).Value, " ", "")

Bonne soirée 😎

 

[rudymagny]

Re : VBA - TRIB suppression espace

Bonsoir JNP, et merci pour la réponse mais je n'ai pas d'espace entre les caractères, l'espace se trouve à la fin de la chaine et le TRIB ne le supprime pas.

 

[JNP]

Re : VBA - TRIB suppression espace

Re 🙂,
C'est que ce n'est pas un espace 😛...
Essaye de supprimer tout le reste et de faire un AscW(Cells(L2, 6)).
Un espace devrait renvoyer 32.
Bonne soirée 😎

 

[rudymagny]

Re : VBA - TRIB suppression espace

Bonjour JNP,
Je viens de faire la manip et il me retourne 160.

Je comprend mieux pourquoi le TRIB ne marche pas.

Par contre ça ne m'arrange pas pour le supprimer ce truc.

 

[rudymagny]

Re : VBA - TRIB suppression espace

Je crois qu'un fichier en exemple sera plus pratique.

Voici le déroulement :
1) Au boulot, je copie un tableau d'une page HTML avec IE dans la feuille "Import_OBS"
2) je lance ma macro (TP OBS) qui se trouve sur la feuille Accueil et il me copie les données dans la feuille Impacts_TP.
3) Mes données sont copiées et une formule matricielle détermine une autre donnée à partir des feuilles LL_TENP et Ab😵pé_TENP et cette formule ne marche pas si la chaine de caractère contient un espace ou un autre caractère invisible!!!

Je remercie BOISGONTIER et Tibo pour la formule matricielle :
https://www.excel-downloads.com/threads/recherchev-plusieurs-feuilles.142817/

Merci d'avance

 

[Pierrot93]

Re : VBA - TRIB suppression espace

Bonjour Rudy, JNP

essaye peut être la conversion de données, barre de menu Excel => Données => convertir. Pas pu testé, pas repéré dans ton classeur la feuille / colonne concernée... On ne le dira jamais assez, un tout petit fichier représentant uniquement le problème posé est le mieux pour obtenir des réponses adaptées...

bonne journée
@+

 

[JNP]

Re : VBA - TRIB suppression espace

Re 🙂

Je viens de faire la manip et il me retourne 160.
Je comprend mieux pourquoi le TRIB ne marche pas.
Par contre ça ne m'arrange pas pour le supprimer ce truc.

Le 160 est un "non break space" (un espace insécable).
160 est dans la tranche 0-255 donc on peut se contenter des fonctions Asc et Chr (AscW et ChrW étant pour les ASCII supérieurs).
Donc

Cells(L2, 6).Value = Replace(Cells(L2, 6).Value, Chr(160), "")

devrait te convenir.
Bonne journée 😎
Ajout : Salut Pierrot. Pas bête ton convertir (en nombre de caractères), et à ce moment là, un Left(Cells(L2, 6).Value, 8) peut aussi convenir.

 

[rudymagny]

Re : VBA - TRIB suppression espace

Bonsoir JNP et Pierrot93,
Je répond un peu tard mais journée de boulot oblige... comme tout le monde.
un grand merci à vous.

Cells(L2, 6).Value = Replace(Cells(L2, 6).Value, Chr(160), "")

fonctionne impeccable.

Merci encore et bonne soirée