Bête problème de TextBox et SetFocus

Version imprimable

26/02/2013, 15h23
jmh51

Bête problème de TextBox et SetFocus

Bonjour à tous,

Je planche depuis plus de 2 heures sur un bête problème...

Je voudrais bien faire une Userform avec 2 TextBox

Dans la première, on introduit un nombre (par exemple 5)

Dans la deuxième, on rentre les 5 valeurs....

Donc, il faut que le curseur revienne chaque fois dans cette 2ème TextBox...

D'où l'utilisation de la commande SetFocus...

Comme je le disais en commençant, je planche là-dessus depuis un bout de temps, et je commence à devenir fou... J'ai beau retourner le problème dans tous les sens, le focus revient toujours dans la 1ère textbox...

Est-ce que quelqu'un pourrait m'aider ?

Merci d'avance...

Bonjour,

Si tu dois collecter plusieurs valeurs à partir du même TextBox (TextBox2), il te suffit d'empêcher l'utilisateur de quitter le TextBox avec "Cancel = True". Un petit exemple :

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
 
Dim Tbl() 'Pour le test, ici déclaré public
 
Private Sub CommandButton1_Click()
 
    Dim J As Integer
    Dim Total As Double
 
    'pour le test, indique le résultat du total des valeurs entrées
    For J = 1 To UBound(Tbl)
 
        Total = Total + Tbl(J)
 
    Next J
 
    MsgBox Total
 
End Sub
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    Static I As Integer 'garde en mémoire durant le temps d'affichage de la Form
 
    I = I + 1
 
    'annule tant que le compte n'est pas bon ou remet à 0 sitôt celui-ci atteint
    'stocke les différentes valeurs dans le tableau, vide le TextBox et empêche la sortie
    If I < TextBox1.Value Then
 
        Tbl(I) = TextBox2.Text
 
        TextBox2.Text = ""
 
        Cancel = True
 
    Else
 
        I = 0
 
    End If
 
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'défini la dimension du tableau
    Erase Tbl
 
    ReDim Tbl(1 To TextBox1.Text)
 
End Sub

Hervé.

1 pièce(s) jointe(s)

Bonjour Hervé,

Et déjà 1000 merci pour le temps et l'aide apportées...
Malheureusement, ça ne correspond pas tout à fait à ce que j'aurais voulu...
Je joins en annexe le fichier excel, ce sera plus facile pour comprendre, à mon avis

Citation:

Envoyé par Theze

Bonjour,

Si tu dois collecter plusieurs valeurs à partir du même TextBox (TextBox2), il te suffit d'empêcher l'utilisateur de quitter le TextBox avec "Cancel = True". Un petit exemple :

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
 
Dim Tbl() 'Pour le test, ici déclaré public
 
Private Sub CommandButton1_Click()
 
    Dim J As Integer
    Dim Total As Double
 
    'pour le test, indique le résultat du total des valeurs entrées
    For J = 1 To UBound(Tbl)
 
        Total = Total + Tbl(J)
 
    Next J
 
    MsgBox Total
 
End Sub
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    Static I As Integer 'garde en mémoire durant le temps d'affichage de la Form
 
    I = I + 1
 
    'annule tant que le compte n'est pas bon ou remet à 0 sitôt celui-ci atteint
    'stocke les différentes valeurs dans le tableau, vide le TextBox et empêche la sortie
    If I < TextBox1.Value Then
 
        Tbl(I) = TextBox2.Text
 
        TextBox2.Text = ""
 
        Cancel = True
 
    Else
 
        I = 0
 
    End If
 
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'défini la dimension du tableau
    Erase Tbl
 
    ReDim Tbl(1 To TextBox1.Text)
 
End Sub

Hervé.

Re,

Hé bien mon exemple correspond assez bien à ce que tu souhaites, à moins que je n'ai rien compris :o( :

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
 
Dim nbfin(10), nb_ent As Integer, i As Integer
 
Private Sub TextBox1_AfterUpdate()
 
    nb_ent = TextBox1.Value
 
    Label1.Caption = "valeur n°1"
 
End Sub
 
 
'à la place de "TextBox2_AfterUpdate"
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
    i = i + 1
    If i = 11 Then
 
        MsgBox "Nombre de valeurs manimal atteint !"
        Exit Sub
 
    End If
 
    If i <= nb_ent Then
 
        Label1.Caption = "valeur n°" & i
 
        nbfin(i) = TextBox2.Value
 
        TextBox2.Value = ""
        Cancel = True
 
    End If
 
End Sub

Hervé.

Oui, c'est presque ça... Il reste un p'tit bug, mais je devrais pouvoir le trouver tout seul comme un grand...

Encore 1000 merci...

Citation:

Envoyé par Theze

Re,

Hé bien mon exemple correspond assez bien à ce que tu souhaites, à moins que je n'ai rien compris :o( :

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
 
Dim nbfin(10), nb_ent As Integer, i As Integer
 
Private Sub TextBox1_AfterUpdate()
 
    nb_ent = TextBox1.Value
 
    Label1.Caption = "valeur n°1"
 
End Sub
 
 
'à la place de "TextBox2_AfterUpdate"
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
    i = i + 1
    If i = 11 Then
 
        MsgBox "Nombre de valeurs manimal atteint !"
        Exit Sub
 
    End If
 
    If i <= nb_ent Then
 
        Label1.Caption = "valeur n°" & i
 
        nbfin(i) = TextBox2.Value
 
        TextBox2.Value = ""
        Cancel = True
 
    End If
 
End Sub

Hervé.