Discussion :

[trach.sam]

bonjour,

apres avoir decouvert la fonction trim je m'appercois qu'elle ne vire pas forcement tous les espaces situe pourant en fin de chaine
apres un copier coller j'obtient ca " " je ne c pas si ca peut vous servir

merci

[jmfmarques]

Ce qui veut dire que tu as autre chose que des espaces, pardi (très probablement un chr(0)) ... et que tu "vois" un espace qui n'en est pas un.

D'où viennet donc tes chaines qui "refuseraient" le Trim ?

Un code aboutissant à une telle situation serait parlant !

[SilkyRoad]

bonjour

tu peux aussi tester les fonctions Replace

http://silkyroad.developpez.com/VBA/...racteres/#LI-J

et Clean

http://silkyroad.developpez.com/VBA/...racteres/#LI-L


bonne journée
michel

[trach.sam]

Bonjour a tous,

Code :

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

1
2
 
tmp1 = Replace(Application.WorksheetFunction.Clean(Trim(TabName.Item(i))), Chr(0), "")

et ca ne marche pas lol !!!!!

je travail sur un fichier excel qui a ete genere a partir de BD sybase ou/et mysql
je n'en sais pas plus sut la ceration de ce fichier

je vais essayer d'avoir le caractere ascii de ce caractere ! je vais regarder comment on fait ca ...

[SilkyRoad]

rebonjour

tu peux tester cette procedure pour recuperer les caractères ascii

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim i As Long
Dim x() As Byte
 
    x = StrConv("ma chaine", vbFromUnicode)
 
    For i = 0 To UBound(x)
        Debug.Print x(i)
    Next
End Sub

bonne soiree
michel

[trach.sam]

il semble que le caractere fauteur de trouble soit
160

PS:petite question passagere !
le debug.print ca ecrit null part en VBA excel ?
ca pourrais etre tres utile car parfois les msgbox que j'utilise me font un peu perdre de tmps !! surtout ad on lance le script sur 2000 lignes !!!!