Selectionner un textbox

Version imprimable

Bonjour le Forum,
Pouvez vous m aider sur ce probleme? A la fin du code ci dessous, comment ecrire : met le curseur sur le texbox2?
Je voudrais selectionner automatiquement le textbox2 aprés execution du code ci dessous.
Merci beaucoup pour votre aide

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
Private Sub Te_SaisieCode_Change()
 
With Sheets(Année)
 
 
Derlig = .Range("A65536").End(xlUp).Row
 
For i = 2 To Derlig
 
    If .Cells(i, 3).Value = Te_SaisieCode Then
        Te_UG.Value = .Cells(i, 4).Value
        Te_Circuit = .Cells(i, 5).Value
        Te_Commune = .Cells(i, 9).Value
        Te_Distance = .Cells(i, 14).Value
        Te_Troncon = .Cells(i, 11).Value
        Te_P1Saisie = .Cells(i, 19).Value
        Te_P2SaisieLievre = .Cells(i, 20).Value
           End If
Next i
End With
 
' Pose du Curseur sur le textBox2
 
End Sub

02/02/2011, 12h14
rvtoulon

bonjour,

Code:

Me.TextBox2.SetFocus

bonjour Rvtoulon,
merci de m'aider. J'ai saisi ta ligne. Ca ne plante pas mais je n'obtient pas le resultat voulu.
Te_SaisieCode est un textbox qui recoit un code par douchette. Dés la saisie du code barre, il faudrait que le curseur se trouve sur Te_P1Saisie.
En ecrivant ce que tu m'as donné sur Te_P1Saisie il s inscrit le code barre. je voudais juste le curseur qui me permettrai de faire une saisie manuelle.
Merci
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 Private Sub Te_SaisieCode_Change() With Sheets(Année) Derlig = .Range("A65536").End(xlUp).Row For i = 2 To Derlig If .Cells(i, 3).Value = Te_SaisieCode Then Te_UG.Value = .Cells(i, 4).Value Te_Circuit = .Cells(i, 5).Value Te_Commune = .Cells(i, 9).Value Te_Distance = .Cells(i, 14).Value Te_Troncon = .Cells(i, 11).Value Te_P1Saisie = .Cells(i, 19).Value Te_P2SaisieLievre = .Cells(i, 20).Value Te_P3saisieLievre = .Cells(i, 21).Value End If Next i End With Me.Te_P1Saisie.SetFocus End Sub

02/02/2011, 14h14
rvtoulon

bonjour,

Citation:

En ecrivant ce que tu m'as donné sur Te_P1Saisie il s inscrit le code barre

le setfocus n'inscrit rien dans le textbox, il met juste le curseur dedans regarde ce que dit l'aide vba sur setfocus:

Citation:

SetFocus, méthode
Voir aussi Exemple Application Particularités
Déplace le focus vers la fenêtre spécifiée.
Syntaxe
object.SetFocus
L'espace réservé object est une expression d'objet qui prend la valeur d'un objet figurant dans la rubrique "Application".
Remarques
Utilisez la méthode SetFocus sur les fenêtres déjà visibles.

donc le code fonctionne. Le problème est ailleurs.
apparemment tu donnes à ta textbox une valeur dans ta boucle:

Citation:

Code:

Te_P1Saisie = .Cells(i, 19).Value

.
Vérifie cette valeur!
02/02/2011, 14h27
dodo28

bonjour,
oui, Te_P1Saisie a une valeur. Quand je passe la douchette sur mon code barre la selection reste sur Te_SaisieCode. mais je voudrais, si possible, que ce soit Te_P1Saisie qui soit selectionner aprés avoir inscrit le code barre dans Te_SaisieCode.
En faisant ta proposition, quand je passe la douchette le code barre s'inscrit dans Te_P1Saisie et il marque 0 dans Te_SaisieCode.
Existe t il un "textbox.select" ?
merci pour ton aide

ok j ai trouvé, le code était en dehors de la boucle et de la condition donc ca ne pouvait pas marché
Merci bcp de votre aide.

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
Private Sub Te_SaisieCode_Change()
 
With Sheets(Année)
 
 
Derlig = .Range("A65536").End(xlUp).Row
 
For i = 2 To Derlig
 
    If .Cells(i, 3).Value = Te_SaisieCode Then
        Te_UG.Value = .Cells(i, 4).Value
        Te_Circuit = .Cells(i, 5).Value
        Te_Commune = .Cells(i, 9).Value
        Te_Distance = .Cells(i, 14).Value
        Te_Troncon = .Cells(i, 11).Value
        Te_P1Saisie = .Cells(i, 19).Value
        Te_P2SaisieLievre = .Cells(i, 20).Value
        Te_P3saisieLievre = .Cells(i, 21).Value
        Te_P1SaisieRenards = .Cells(i, 22).Value
        Te_P2SaisieRenards = .Cells(i, 23).Value
 
            Me.Te_P1Saisie.SetFocus
 
    End If
Next i
End With
 
 
End Sub

02/02/2011, 15h08
casefayere

Bonjour,
D'après ton titre tu travailles sur excel 2007, alors prefère ce code

Code:

derlig = .Range("a" & .Rows.Count).End(xlDown).Row

plutot que

Code:

Derlig = .Range("A65536").End(xlUp).Row

Sur excel 2007, tu as 1048576 lignes mais pas 65536, ça n'a certainement pas d'importance pour toi, tu n'utilises pas toutes ces lignes, j'imagine, mais ça te servira peut-être à l'occasion

Bonne journée
02/02/2011, 16h05
dodo28

encore merci pour le conseil