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