Discussion :

[Freiya]

Bonjour,

J'utilise des objects de formulaire (textbox,combobox,...) MAIS je ne suis pas dans une FORM je suis dans une feuille normale.

L'idée, c'est qu'à chaque fois qu'un de ces objects formulaire a le focus, une action (toujours la même) doit s'exécuter.
J'ai créé une procédure mais j'ai un problème avec le typage.

Ce code fonctionne mais seulement pour mes Textbox ! car typage MSFORMS.TextBox.
Cependant je souhaiterais que cette procedure fonctionne même si j'ai une combo, une checkbox, ...
Comment faire ? (sans écrire une procédure par type)

Code :

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

1
2
3
Private Sub TextBox1_GotFocus()
ShowName TextBox1
End Sub

Code :

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

1
2
3
Private Sub ShowName(FieldActive As MSFORMS.TextBox)
MsgBox FieldActive.Name
End Sub

Dans une autre partie de mon code pour balayer tous mes objects quelque soit leur type j'utilise OLEObjects mais là ça marche pas

Merci

[Maxence HUBICHE]

Code :

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

As Control

devrait aller

[Freiya]

Je viens d'essayer mais une erreur apparaît

Code :

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

1
2
Run Time error 13
Type Mismatch

Le debuggeur pointe sur l'appel de la procédure : ShowName TextBox1

Une autre idée ??

[Maxence HUBICHE]

As Object... !!

[Freiya]

Yes c'est ça !!
J'avais bien essayé mais avec Objects et il aimait pas du tout.

Merci Bcp Maxence.