Soucis de prog sur une TextBox

Version imprimable

30/11/2008, 17h16
perchman

Soucis de prog sur une TextBox

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 ???:cry:

merci de votre aide
30/11/2008, 17h33
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:

1 2 3 4 5 sub command1_click() dim toto as string toto = TextBox1.text msgbox toto end sub
30/11/2008, 17h48
perchman

ça, ça marche !!

merci beaucoup !!

et donc dans TextBox1, on écrit rien !!...???
30/11/2008, 18h02
patbou

bonjour,

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

ç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:

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

randomize

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:

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

30/11/2008, 19h22
patbou

dans ton cas, le textbox = inputbox et le label = msgbox

a toi d ' adapter le code:mouarf:
t ' aider oui , le faire à a place non !
30/11/2008, 20h32
perchman

J'ai pas demandé qu'on me le fasse...

J'ai besoin de comprendre sinon, je vais servir à rien ...:(