passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

[sasjm37]

Bonjour le Forum,
Cette fois ci, mon problème vient du fait que l'évènement "Setfocus" ou "tabindex" n'existe pas dans les contrôles des objets dans une feuille.
Quelqu'un a-t-il un TRUC (a part cliquer sur l'objet suivant) pour 'sortir' d'un objet et passer de l'un à l'autre (voir fichier joint).
Merci
Coucou à DULL et James007

 

[Pierrot93]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Bonjour,

il n'y a aucun code dans ton classeur... Au vu du contenu vois pas trop ce que tu cherches à faire... regarde peut être du coté des événements "GotFocus" et "LostFocus", sans plus de détails difficile pour moi de t'en dire plus...

bonnee journée
@+

 

[sasjm37]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Bonjour Pierrot93,
Tu as raison ça manque de clarté, je joins un nouveau fichier avec du code.
Je cherche à quitter un textbox ou combobox de ma feuille sans cliquer avec la souris. Quand il faut remplir 30 objets différents c'est lourd de cliquer à chaque fois que l'objet est rempli... Suis-je plus clair ?
Merci

 

[Pierrot93]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Re,

cela m'en dit pas beaucoup plus... Un petit exemple de code ci-dessous avec ce que j'ai compris, dès l'instant ou ton textbox1 contient 10 caractères, tu sors de cette "textbox" pour entrer dans la "textbox3", en espérant que cela puisse t'aider à avancer...

Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then TextBox3.Verb xlVerbPrimary
End Sub

@+

 

[sasjm37]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then TextBox3.Verb xlVerbPrimary
End Sub

Certes c'est une méthode, mais certains pour le lieu de l'accident ou le nom des victimes c'est moins probant. Néanmoins ça me donne une idée, peut-on faire ce code si la touche 'entrée' est activée ?
Merci

 

[Pierrot93]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Re,

oui, regarde du coté de "Application.OnKey", l'aide vba t'en dira plus...

 

[Pierrot93]

Re : passage d'un objet activex à l'autre dans une feuille (et pas ds 1 USF)

Re,

A noter, tu peux également utiliser l'événement "KeyPress" des contrôles "activex" ...

Edition : cf aide vba... désolé

Un événement KeyPress ne se déclenche pas lorsque l'utilisateur appuie sur l'une des touches suivantes :
TAB.
ENTRÉE.
Une touche de direction.

A noter cependant que les événements "KeyDown" et "KeyUp", eux se déclenchent...