JEux utilisateur : probléme Résolu

Question

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 : 
Tableau22 = Array("1", "3", "5")
Dim reponse As Integer
reponse = InputBox("nombre : ")

If reponse = Tableau22 Then
    MsgBox "PERDU"
else
 msgbox "ok"
End If


MERCI

Polux31 · Answer

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

jijudu · Answer

Merci bcp !

Polux31 · Answer

De rien

Bon courage pour la suite.

;o)

JEux utilisateur : probléme

3 réponses

Discussions similaires

Newsletters