Bonjour,

Je suis débutant et j'ai un petit probleme, mon programme consiste a entrer 6 nombres entre 1 et 42 par l'utilisateur mais je doit faire un controle pour ces nombres entré, j'ai créer un tableau d'entier pour ce faire. Je dois affiché une boite de dialogue et recommencer si:
- l'utilisateur a entré une chaine de caractere
- s'il appuye sur le bouton cancel
- s'il n'entre aucune valeur et appuye sur le bouton OK

Pouvez-vous me mettre sur la bonne piste car je cherche depuis des heures et je vois vraiment pas comment je peux faire ces verification, je débute:p

Voici une partie de mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    Dim Vb(6) As Integer
    Dim Result As Integer
    Dim Verif As Integer
    Dim i As Integer
    Dim j As Integer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    i = 0
    Do While i < 6
        Do
            Vb(i) = InputBox("Entrez votre numéro " & i + 1 & ". Votre valeur doit etre comprise entre 1 et 42", "Entrer valeur")
            j = 0
            Verif = 0
            Do While j <> i
                If (Vb(i) = Vb(j)) Then
                    Verif = 1
                End If
                j = j + 1
            Loop
        Loop While Verif = 1
        j = 0
        Do While j < 6
            If (Vb(i) = Va(j)) Then
                Result = Result + 1
                j = 6
            Else
                j = j + 1
            End If
        Loop
        i = i + 1
    Loop