Bonjour je cherche à recuperer le code ascii d'une lettre
Exemple si j'ai un A qu'il me retourne 65
cela ne se passe pas lors de la saisie dans un textbox mais en fait je recupere un mot complet et je voudrais decaler toutes les lettres d'un ou deux cran
en gros ca donnerais
if mot = A then
mot = B
end if
mais je me sens pas de me faire tous les caracteres
D'avance merci
A voir également:
Vba ascii
Vba code ascii d'un caractère - Meilleures réponses
Asc("A") te retourne 65
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------
Function Decalage(chaine as String, indice As Long) As String
Dim i As Long
Dim retour As String
retour=""
For i=1 to Len(chaine)
retour=retour & chr(asc(mid$(chaine,i,1))+indice)
Next i
Decalage=retour
End Function
Unicode function is faster. The wide functions AscW and ChrW/ChrW$ are faster than the Asc/Chr/Chr$ alternatives. VB works internally in Unicode, so the unicode versions run faster. They are not the same functions though. If you're handling ASCII characters from 0 to 127, you're safe to replace Asc with AscW and Chr with ChrW/ChrW$. - This rule applies to VB4 and later. ASC, CHR