Problème VBS : Select case

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   -
Bonjour,

j'essaye de convertir des lettres en chiffres avec select case mais cela n'affiche pas ma réponse dans ma msgbox . 

dim lettrenumero1
dim reponse01




lettrenumero1 = InputBox(" Tape 1 ^^ ")
Select Case lettrenumero1
  Case "1": reponse01 = f
  Case "2": reponse01 = t
  Case "3": reponse01 = a
  Case "4": reponse01 = e
  Case "5": reponse01 = i
  Case "6": reponse01 = o
  Case "7": reponse01 = m
  Case "8": reponse01 = n
  Case "9": reponse01 = w
  Case "10": reponse01 = q
  Case "11": reponse01 = z
  Case "12": reponse01 = x
  Case "13": reponse01 = c
  Case "14": reponse01 = v
  Case "15": reponse01 = b
  Case "16": reponse01 = h
  Case "17": reponse01 = j
  Case "18": reponse01 = k
  Case "19": reponse01 = s
  Case "20": reponse01 = u
  Case "21": reponse01 = y
  Case "22": reponse01 = 24
  Case "23": reponse01 = r
  Case "24": reponse01 = p
  Case "25": reponse01 = l
  Case "26": reponse01 = g
  
End Select

msgbox(" Voici la reponse "& reponse01 &"   ")


Merci d'avance pour vos réponses.


EDIT : Ajout des balises de code (jordane)
A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,
Si tu ne mets pas les Guillemets autour de tes lettres... VBA les considère comme des variables !! 

lettrenumero1 = InputBox(" Tape 1 ^^ ")
Select Case lettrenumero1
  Case "1": reponse01 = "f"
  Case "2": reponse01 = "t"
  Case "3": reponse01 = "a"
  Case "4": reponse01 = "e"


0
Réponse 2 / 2
progr Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Ok merci pour votre réponse cela marche.
0

Discussions similaires

Faire une pause en VBS
quent -
quent -

3 réponses
VBS.Runauto
Blackangel -
chimay8 -

1 réponse
Comment lancer mon vbs
Akasha51150 -
Akasha51150 -

14 réponses
Pause dans un Script VB
avrelbct -
avrelbct -

1 réponse
Impossible de trouver le fichier script .vbs
Marker_ -
Marker_ -

6 réponses