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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.