Discussion :

[oMeG4]

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

[Maxence HUBICHE]

J'ai mis des valeurs numériques fictives...

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
 
Do
    sRep = InputBox("........")
    if isnumeric(srep) then
        select case val(srep)
            case 1, 2, 5, 18, 49, 58
                'Ok, on a la valeur
                Exit do
            case else
                'pas bon
        end select
    else
        'saisie non numérique
    end if
loop

[oMeG4]

je viens d'essayer mais ca ne marche pas, il y a toujours ce sale message d'erreur "Erreur d'execution 13" et quand je fait débogage il se met chaque fois a cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            Vb(i) = InputBox("Entrez votre numéro " & i + 1 & ". Votre valeur doit etre comprise entre 1 et 42", "Entrer valeur")

Je ne comprend pas :s

[Maxence HUBICHE]

la déclaration de Vb... c'est quoi ?

[oMeG4]

Dim Vb(6) As Integer

[Maxence HUBICHE]

et tu veux vraiment mettre un string (résultat de l'inputbox) dans un integer !