JEux utilisateur : probléme
Résolu
jijudu
Messages postés
211
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais mettre dans un tableau certain chiffre. Lorsque l'utilisateur rentre un nombre via l'inputbox le programme analyse sa réponse
Voici mon code qui ne marche pas :
MERCI
Je voudrais mettre dans un tableau certain chiffre. Lorsque l'utilisateur rentre un nombre via l'inputbox le programme analyse sa réponse
Voici mon code qui ne marche pas :
Tableau22 = Array("1", "3", "5")
Dim reponse As Integer
reponse = InputBox("nombre : ")
If reponse = Tableau22 Then
MsgBox "PERDU"
else
msgbox "ok"
End If
MERCI
A voir également:
- JEux utilisateur : probléme
- Jeux java itel - Télécharger - Jeux vidéo
- Waptrick jeux - Télécharger - Jeux vidéo
- Jeux zuma - Télécharger - Jeux vidéo
- Jeux java football - Télécharger - Jeux vidéo
- Jeux google caché - Guide
3 réponses
Bonjour,
Voilà un exemple :
Bonne continuation
;o)
Voilà un exemple :
Sub jeu()
Dim reponse As Integer
reponse = InputBox("Nombre : ")
If repOk(reponse) = True Then
MsgBox "Bravo"
Else
MsgBox "Perdu"
End If
End Sub
Function repOk(ByVal nb As Integer) As Boolean
Dim i As Integer
Dim tableau22()
tableau22 = Array(1, 3, 5)
For i = LBound(tableau22()) To UBound(tableau22())
If nb = tableau22(i) Then
repOk = True
Exit Function
End If
Next i
repOk = False
End Function
Bonne continuation
;o)