Problème VBS : Select case
Résolu
progr
Messages postés
5
Statut
Membre
-
progr Messages postés 5 Statut Membre -
progr Messages postés 5 Statut Membre -
Bonjour,
j'essaye de convertir des lettres en chiffres avec select case mais cela n'affiche pas ma réponse dans ma msgbox .
Merci d'avance pour vos réponses.
EDIT : Ajout des balises de code (jordane)
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:
- Problème VBS : Select case
- Vbs windows - Accueil - Optimisation
- Vbs - Télécharger - Édition & Programmation
- Vbs editor - Télécharger - Édition & Programmation
- Fichier vbs ✓ - Forum Virus
- Vbs malware gen ✓ - Forum Virus