Soyez le premier à donner votre avis sur cette source.
Vue 3 780 fois - Téléchargée 238 fois
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
i = 1 '# On veux un 'A'
MsgBox Chr(64 + i)
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
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.