Transformer des lettres en chiffres et inversement
Résolu
progr
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
progr Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
progr Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Transformer des lettres en chiffres et inversement
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Chiffre en lettre - Télécharger - Outils professionnels
- Transformer majuscule en minuscule word - Guide
- Transformer image en icone - Guide
5 réponses
Bonjour
Cdlmnt
Dim lettrenumero1 As String
Dim reponseo1 As Long
Dim motdepasse As String
lettrenumero1 = InputBox(" Tape ta lettre ")
Select Case lettrenumero1
Case "a": reponseo1 = 4
Case "b": reponseo1 = 6
Case "c": reponseo1 = 8
' etc
End Select
MsgBox (" Voici " & reponseo1 & " et voila ")
Cdlmnt
Comme ccm81 l'indique, un select case sera beaucoup plus élégant.
L'erreur dans ton code original, si la lettre de ton inputbox était un a, donc il n'entre pas dans ta première condition if, et si c'était un z, il entre dans le premier if, mais ne passe pas la condition du deuxième.
Donc ton msgbox qui est à l'intérieur du 2ieme if, ne peut jamais jamais afficher car il faudrait que la lettre soit un a et également un z.
Quand tu veux imbriquer des if pour la même variable, tu dois utiliser elseif :
if (lettrenumero1 = "z" )then
reponseo1 = 2
elseif (lettrenumero1 = "a" )then
reponseo1 = 4
elseif .....
end if
Ci joint, un petit cours sur les conditions en VBA.
Tu y retrouve les IF, les IF imbriqués et tout en bas, les SELECT CASE, comme ccm81 l'a suggéré.
https://www.excel-pratique.com/fr/vba/conditions.php
Bonne lecture
L'erreur dans ton code original, si la lettre de ton inputbox était un a, donc il n'entre pas dans ta première condition if, et si c'était un z, il entre dans le premier if, mais ne passe pas la condition du deuxième.
Donc ton msgbox qui est à l'intérieur du 2ieme if, ne peut jamais jamais afficher car il faudrait que la lettre soit un a et également un z.
Quand tu veux imbriquer des if pour la même variable, tu dois utiliser elseif :
if (lettrenumero1 = "z" )then
reponseo1 = 2
elseif (lettrenumero1 = "a" )then
reponseo1 = 4
elseif .....
end if
Ci joint, un petit cours sur les conditions en VBA.
Tu y retrouve les IF, les IF imbriqués et tout en bas, les SELECT CASE, comme ccm81 l'a suggéré.
https://www.excel-pratique.com/fr/vba/conditions.php
Bonne lecture
Me permettre une suggestion.
Si on entre autre chose qu'une lettre, le msgbox s'affichie quand même et reponse01 égale sa valeur par défaut.
Case else va permettre de gérer une valeur non désiré.
Si on entre autre chose qu'une lettre, le msgbox s'affichie quand même et reponse01 égale sa valeur par défaut.
Case else va permettre de gérer une valeur non désiré.
Dim lettrenumero1 As String
Dim reponseo1 As Long
Dim motdepasse As String
Dim erreur As Boolean
erreur = False
lettrenumero1 = InputBox(" Tape ta lettre ")
Select Case lettrenumero1
Case "a": reponseo1 = 4
Case "b": reponseo1 = 6
Case "c": reponseo1 = 8
' etc
Case Else: erreur = True
End Select
If erreur = False Then
MsgBox (" Voici " & reponseo1 & " et voila ")
Else
MsgBox ("Erreur dans l'inputbox de saisie, tappez une lettre seulement")
End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question