Discussion :

[perchman]

Bonsoir,

voilà, je dois programmer un UserForm tout simple: avec 1 bouton OK, 1 bouton Quitter, 1 textbox et 1 label.

But: trouver 1 nombre entre 1 et 100 !

Ce que je ne comprends pas, c'est ça:

Quand je vais mettre un nombre dans la textbox, je vais cliquer sur OK (logique).
Et là, je beugue: la valeur(68 par exemple), où est-elle prise en compte ? Dans le programme du bouton OK ou dans celui de la textbox ???

merci de votre aide

[ucfoutu]

Bonjour,

La valeur est contenue à l'origine dans ta textbox.

Depuis l'évènement de ton choix (qui peut être l'évènement Click de ton bouton OK), tu peux lire cette valeur et la mettre (si tu le souhaites) dans une variable

Exemple à main levée pour un bouton de commande nommé Command1

Code :

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

1
2
3
4
5
sub command1_click()
  dim toto as string
  toto = TextBox1.text
  msgbox toto
end sub

[perchman]

ça, ça marche !!

merci beaucoup !!

et donc dans TextBox1, on écrit rien !!...???

[patbou]

bonjour,

dans ton cas , un textbox pour que le joueur rentre un nb et un label pou afficher le résultat (+ GRAND , + petit ....)

[perchman]

ça ne me dit pas où je dois écrire !!

en fait, j'ai déjà fait le programme mais sans UserForm...

et je ne sais pas si je peux faire du copier/coller...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub hasard1()
     Dim secret As Integer
     Dim cherche As Integer
     Dim fin As Integer
     Dim inf As Integer
     Dim sup As Integer
     Dim ninf As Integer
     Dim nsup As Integer
     Dim max As Integer
     Randomize
     secret = Int(100 * Rnd) + 1
     ninf = 1
     nsup = 100
     max = 2
        cherche = InputBox("Essai n°1" & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                Do
                   If cherche = secret Then
                       fin = MsgBox("Vous avez gagné !!")
                   Else
                       If cherche > secret Then
                           sup = MsgBox("C'est trop grand !")
                           nsup = cherche
                           cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           max = max + 1
                       Else
                           inf = MsgBox("C'est trop petit !")
                           ninf = cherche
                           cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           max = max + 1
                       End If
                   End If
                Loop While cherche <> secret And max <> 11
            If max = 11 Then
                MsgBox "Perdu"
            Else
                MsgBox "bravo"
            End If
End Sub

[batou22003]

soit tu gardes la fonction comme suit, tu retires le textbox et du appele ta procédure sur simple clic d'un bouton. Etant donné que le programme utilise la fonction inputBox, pas de souci. Ou alors, tu fais comme suit , j'ai adapté et mis en commentaire les parties qui vont pas :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
'déclarer une variable globale au userform
Dim compteurEssai as integer
 
sub command1_click()
 
Dim intRetour as integer
 
if compteurEssai =11 then 
MsgBox "Perdu"
exit sub
End if 
 
intRetour = hasard1
 
select case hasard1
case 1
MsgBox "Bravo"
Case 2
MsgBox("C'est trop grand !")
case 3
MsgBox("C'est trop petit!")
end select
 
compteurEssai = compteurEssai + 1
end sub
 
 
'1 trouvé
'2trop grand
'3 trop petit
function hasard1() as integer
     Dim secret As Integer
     Dim cherche As Integer
     Dim fin As Integer
     Dim inf As Integer
     Dim sup As Integer
     Dim ninf As Integer
     Dim nsup As Integer
     'Dim max As Integer
     Randomize
     secret = Int(100 * Rnd) + 1
     ninf = 1
     nsup = 100
     max = 2
       ' cherche = InputBox("Essai n°1" & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
	cherche=TextBox1.text
 
 
	        ' Do
                   If cherche = secret Then
                       hasard1 = 1'fin = MsgBox("Vous avez gagné !!")
                   Else
                       If cherche > secret Then
				hasard1=2 
                           'sup = MsgBox("C'est trop grand !")
                           'nsup = cherche
                           'cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           'max = max + 1
                       Else
			hasard1=3
                           'inf = MsgBox("C'est trop petit !")
                           'ninf = cherche
                           'cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           'max = max + 1
                       End If
                   End If
               ' Loop While cherche <> secret And max <> 11
            'If max = 11 Then
            '    MsgBox "Perdu"
            'Else
            '    MsgBox "bravo"
            'End If
End Sub