Trouver le code alphabètique d'une lettre(a,1;b,2;v,22)

0/5 (4 avis)

Vue 3 976 fois - Téléchargée 261 fois

Description

Deux TextBox: Text1 et Text2.
On ecrit une lettre dans le un et on a le code alphabétique dans le deux.
Simpliste mais quand on connait pas...

Source / Exemple :


Private Sub Text1_Change()
'I est le numéro de la lettre dans la chaîne de caractère
'Par exemple la lettre I = 3 et que le est mot "Vlem", ce sera "e"
I = 1

On Error Resume Next
If Asc(Mid(Text1.Text, I, 1)) >= 65 And Asc(Mid(Text1.Text, I, 1)) <= 91 Then
A = (Asc(Mid(Text1.Text, I, 1)) - 64)
Text2.Text = "Lettre n°" & A & " de l'alphabet."
End If

On Error Resume Next
If Asc(Mid(Text1.Text, I, 1)) >= 95 And Asc(Mid(Text1.Text, I, 1)) <= 121 Then
A = (Asc(Mid(Text1.Text, I, 1)) - 96)
Text2.Text = "Lettre n°" & A & " de l'alphabet."
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
allopeck Messages postés 23 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 3 décembre 2007
6 nov. 2007 à 15:38
MERCI
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
6 nov. 2007 à 14:12
Fonction Chr

i = 1 '# On veux un 'A'
MsgBox Chr(64 + i)
allopeck Messages postés 23 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 3 décembre 2007
6 nov. 2007 à 13:26
Bonjour,
Le code fonctionne trés bien. Mais moi je cherche à faire le contraire et je n'y arrive pas pouvez vous m'aider s'il vous plait. J'obtient un chiffre et je voudrais trouvé la lettre.
J'ai éssayé avec un tableau
Tab(26,2). et pacours le tableau mais j'arrive pas à récupérer la lettre !!
je débute c'est peu etre pour ça
merci
AnnieQc Messages postés 2 Date d'inscription mercredi 29 septembre 2004 Statut Membre Dernière intervention 29 septembre 2004
29 sept. 2004 à 16:43
Salut,

Tu peux aussi simplement faire un tableau avec 26 lignes et 2 colones. Du coup ça marchera dans un sens et dans l'autre.

Annie

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.