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.