Caractères invisibles vba

**vashh50** · 12/08/2015, 10h42

Bonjour, j'ai écrit le code suivant pour connaitre le premier caractère de ma chaîne de caractère

Code :

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

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.

**Kimy_Ire** · 12/08/2015, 10h52

Bonjour vashh50,

Je ne comprends pas du tout ceci :

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 :

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

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

**vashh50** · 12/08/2015, 10h59

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.

**Marc-L** · 12/08/2015, 11h29

Bonjour,

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

_____________________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

**vashh50** · 12/08/2015, 11h32

Je continue de réfléchir au sujet, certes je pourrais faire :

Code :

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

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...

**Kimy_Ire** · 12/08/2015, 12h02

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 !

Cordialement,
Kimy

**vashh50** · 12/08/2015, 12h07

Je ne connais pas du tout EPURAGE.

Je regarde ça de suite. Merci à vous.

**keygen08** · 12/08/2015, 12h50

Bonjour

Code :

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

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

Invité · 12/08/2015, 13h32

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

**vashh50** · 12/08/2015, 14h18

Bonjour,

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

**patricktoulon** · 12/08/2015, 14h41

exemple
bonjour

Code :

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

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

Code :

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

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

**Klin89** · 12/08/2015, 14h44

Bonjour à tous,

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

Code :

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

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

**vashh50** · 12/08/2015, 14h52

= 160

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

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

**Kimy_Ire** · 12/08/2015, 15h39

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 :

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

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

Invité · 12/08/2015, 15h48

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/

**Marc-L** · 12/08/2015, 16h08

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

pour chaque message ayant aidé puis sur

pour clore cette discussion …

Invité · 12/08/2015, 16h18

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é!

**Marc-L** · 12/08/2015, 16h23

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 :

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

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

_____________________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**vashh50** · 12/08/2015, 16h54

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.