Discussion :

[dodo28]

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 :

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

[rvtoulon]

bonjour,

Code :

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

Me.TextBox2.SetFocus

[dodo28]

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 :

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

[rvtoulon]

bonjour,

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:

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:

Code :

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

Te_P1Saisie = .Cells(i, 19).Value

.
Vérifie cette valeur!

[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

[dodo28]

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 :

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