Problème VBS : Select case Résolu

Question

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)

jordane45 · Answer

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"

progr · Answer

Ok merci pour votre réponse cela marche.

Problème VBS : Select case

2 réponses

Votre réponse

Discussions similaires