n° du charactère "_"

Sub List_All_ANSI_Chr()
Dim i As Integer

For i = 1 To 255
    Cells(i, 1) = 'Code ' & i & '='
    Cells(i, 2) = Chr(i)
Next

End Sub

Cliquez pour agrandir...

Sub Longeur_Chaine_de_Caractères()
Dim MySTring As String

MySTring = 'par contre je pensais que Instr comptait le nombre de caractère présent dans la chaine mais non, quel est le code?'

MsgBox 'La Chaine Contient ' & Len(MySTring) & ' Caractères'
MsgBox 'Il y a ' & InStr(1, MySTring, 'Instr') & ' Caractères placés AVANT le mot ''Instr'''
MsgBox 'Il y a ' & Len(Mid(MySTring, InStr(1, MySTring, 'Instr'))) - Len('Instr') & ' Caractères placés APRES le mot ''Instr'''

End Sub

Cliquez pour agrandir...