Discussion :

[vashh50]

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]

Bonjour vashh50,

Je ne comprends pas du tout ceci :

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]

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]

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]

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]

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