Bonsoir,
baboon71,
attention:
si ce code sert pour l'alphabet (a....z), l'ascii ne s'arrête pas à 26.
dim Caractere as string
Caractere="Z"
msgbox chr(asc(Caractere)+1) & " ce caractère ne figure pas dans l'alphabet (a.....z)"
If chr(asc(Caractere)) = "Z" Then MsgBox chr(asc(Caractere)-25) & " chr(asc(Caractere)-25) pour retrouver le ""A"""
jean-marc