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

Soyez le premier à donner votre avis sur cette source.

Vue 3 741 fois - Téléchargée 238 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

Messages postés
23
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
3 décembre 2007

MERCI
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
Fonction Chr

i = 1 '# On veux un 'A'
MsgBox Chr(64 + i)
Messages postés
23
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
3 décembre 2007

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
Messages postés
2
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
29 septembre 2004

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.