Caractères invisibles vba

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/08/2015, 10h42
vashh50

1 pièce(s) jointe(s)

Caractères invisibles vba
Bonjour, j'ai écrit le code suivant pour connaitre le premier caractère de ma chaîne de caractère
Code:

1 2 3 4 5 6 7 8 9 Sub Allo() Dim position As Integer Dim caractere As String caractere = Left(Range("A5"), 1) position = InStr(Range("A5"), caractere) MsgBox (position) End Sub
J'ai ajouté le position pour m'assurer du résultat. Seul problème, les premiers caractères de ma chaîne sont des caractères invisibles. J'aurais souhaité les supprimer mais je n'y arrive pas, j'ai essayé avec un trim mais ça ne fonctionne pas. En pièce jointe la cellule en question.
12/08/2015, 10h52
Kimy_Ire
Bonjour vashh50,

Je ne comprends pas du tout ceci :

Citation:

Envoyé par vashh50

J'ai ajouté le position pour m'assurer du résultat.

En effet, afin de savoir quel est le premier caractère de ta chaîne, tu as juste à faire ceci :
Code:

1 2 3 4 5 6 Sub Allo() Dim caractere As String caractere = Left(Range("A5"), 1) MsgBox caractere End Sub
La méthode InStr te renvoie la position d'un caractère mais pas celui-ci.

Voila, je ne sais pas trop quoi dire de plus ! ^^

Cordialement,
Kimy
12/08/2015, 10h59
vashh50

Oui tu as tout à fait raison. Mais lorsque que tu fais instr(range("A1"),"T") il te renvoie 3 et pas 1. Donc le premier caractère n'est pas le T. Il y a bien 2 caractères invisibles avant que je souhaiterais supprimer.
12/08/2015, 11h29
Marc-L

Bonjour,

avec la fonction de feuille de calculs EPURAGE (en VBA Application.Clean) …

_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
12/08/2015, 11h32
vashh50
Je continue de réfléchir au sujet, certes je pourrais faire :
Code:

1 2 3 Range("A1") = right(Range("a1"),len(Range("A1")-instr(range("A1"),T))
Cependant, le premier "vrai" caractère de ma chaîne peut varier...
12/08/2015, 12h02
Kimy_Ire
Marc t'a donné la réponse.

Si tu as envie de t'embêter, tu peux Replace tous les caractères suivants :
- Chr(0)
- Chr(9)
- Chr(10)
- Chr(13)
puis trimer.

Mais EPURAGE fait tout ça. Donc utilises Evaluate puis Trim ou Application.Clean puis Trim. Voila ! :ccool:

Cordialement,
Kimy
12/08/2015, 12h07
vashh50

Je ne connais pas du tout EPURAGE.

Je regarde ça de suite. Merci à vous.

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Allo()
Dim a As Integer
dim i as integer
 
For i = 1 To Len(Range("a1"))
a = Asc(Mid(Range("a1"), i, 1))
 
    If a > 96 And a < 123 Or a > 64 And a < 91 Then
    Range("a1") = Right(Range("a1"), Len(Range("a1")) - i + 1)
    MsgBox Chr(a)
    Exit Sub
    End If
 
Next i
End Sub

Tu auras ainsi la premiere lettre chr(a) et sa position i

12/08/2015, 13h32
Invité

Bonjour,
Fait ce test la et on y verra plus clair!
msgbox asc(mid(Range("A5"),1,1)) & " : " & asc(mid(Range("A5"),2,1))
12/08/2015, 14h18
vashh50

Bonjour,

Citation:

Fait ce test la et on y verra plus clair!
msgbox asc(mid(Range("A5"),1,1)) & " : " & asc(mid(Range("A5"),2,1))

La msg box me dit 160 : 10

exemple
bonjour

Code:

1
2
3
Sub premier_caractere_valable()
MsgBox Mid(Trim("   toto"), 1, 1)' le premier caractere valable
End Sub

Code:

1
2
3
Sub dernier_caractere_valable()
MsgBox Right(Trim("   toto   "), 1) ' le derniercaractere valable
End Sub

Bonjour à tous,:D

Place toi sur la cellule concernée.
Ouvre la fenêtre Exécution, on y verra plus clair 8O
Code:

1 2 3 4 5 6 7 Sub Verif_caracteres() Dim i As Integer, str As String str = ActiveCell.Value For i = 1 To Len(str) Debug.Print Mid(str, i, 1) & " = " & Asc(Mid(str, i, 1)) Next End Sub
klin89

12/08/2015, 14h52
vashh50

= 160

= 10
2 = 50
0 = 48
1 = 49
1 = 49
[...]

Voilà après l"exécution de ton code klin89.

Je n'arrive pas à comprendre pourquoi cette discussion n'est pas encore fermée...
Marc t'a donné la méthode permettant de répondre à ton besoin sur ce post.
Tu n'as plus qu'à faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Sub premiere_lettre() Dim oRng As Range Dim pLettre As String Set oRng = Worksheets("Feuil1").Range("A1") pLettre = Left(Trim(Evaluate("CLEAN(" & oRng.Address & ")")), 1) MsgBox pLettre End Sub
...
Kimy

12/08/2015, 15h48
Invité

160 est le code ascii du a avec un accent aigu, rare dans nos conversations!
10 un retour ligne la ça va!!

D'où provient ton texte? D'une capture internet? D'une autre extraction d'un logiciel codé en utf8?

As tu d'autres caractères bizarre?

http://www.theasciicode.com.ar/
12/08/2015, 16h08
Marc-L

Normalement sous Windows 160 est le code de l'espace insécable : voir ce que renvoie Chr(160).
Ce caractère n'est pas nettoyé par la fonction EPURAGE, utiliser la fonction VBA Replace …

Mais bon l'origine provient du côté de la création du fichier source … S'il est créé proprement, rien à faire côté Excel !

_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
12/08/2015, 16h18
Invité

D'accord avec toi Marc, il faut voir en amont d'Excel avoir des données propres!

Je pense qu'il s'agit d'un import mal géré!
12/08/2015, 16h23
Marc-L
C'est fou le nombre de fois où l'on demande à Excel de palier aux conneries en amont !

En combinant les fonctions EXCEL - et non pas VBA - EPURAGE, remplacement et SUPPRESPACE :
Code:

1 2 3 With Application MsgBox .Trim(Replace(.Clean([A5].Value), 160, " ")) End With
_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
12/08/2015, 16h54
vashh50

Pour info, mon texte provient d'un texte d'une zone de texte d'un fichier WORD.

Je ne sais pas si ça vous aide ^^.

En tout cas merci bien à vous. Je testerais la méthode mais pour le moment je travaille sur une autre partie de mon code.
12/08/2015, 17h29
Invité

Citation:

Envoyé par vashh50

mais pour le moment je travaille sur une autre partie de mon code.

Ça tombe bien l'eau de la piscine est à bonne température!

Voir 40 message(s) de cette discussion en une page