VBA Identifier une textbox

[fourmidiable]

Bonjour,

Ca fait quelques jours que je travaille sur un problème et j'ai besoin d'un coup de main.
J'ai un fichier excel avec plusieurs userform qui contienne chacune plusieurs textbox. Chaque Userform se ressemble mais sont dédiée à une application spécifique.
Dans chaque Userform, il y a une textbox de saisies. Je fais une même opération dans chaque textbox et pour simplifier mon programme j'aimerais créer une fonction qui reprenne à chaque fois l'opération.

J'ai créé une fonction dans un module
Function_set_focus (fenetre, element)

Ma fonction:
Public Function Function_set_focus (fenetre as string, element as sting)
.....

​

Mon problème c'est l'adressage de la fonction ci-dessous:

​

Userforms(userform1).Controls(Textbox1).setfocus
End function

Je ne trouve pas la syntaxe pour adresser correctement la textbox sur laquelle je veux travailler. A chaque fois soit ça ne fonctionne pas, soit j'ai une erreur.

Vous pouvez m'aider?

merci

Dave

 

[job75]

Re : VBA Identifier une textbox

Bonjour Fourmidiable, bienvenue sur XLD,

A mon avis c'est une procédure Sub qu'il faut utiliser et appeler dans chaque UserForm par Call Set_Focus.

S'il n'y a à chaque fois qu'un seul UserForm ouvert, on peut utiliser UserForms(0) :

Sub Set_Focus()
UserForms(0).Controls("TextBox1").SetFocus
End Sub

PS : bien sûr vous le savez, l'écriture basique est :

UserForm1.TextBox1.SetFocus

Edit : n'oubliez pas qu'une procédure Sub, comme une Function, peut avoir des arguments si vous voulez la paramétrer :

Sub Set_Focus(Ctl As String)
UserForms(0).Controls(Ctl).SetFocus
End Sub

appelée par exemple par Call Set_Focus("TextBox1")

A+

 

[fourmidiable]

Re : VBA Identifier une textbox

Bonjour Fourmidiable, bienvenue sur XLD,

A mon avis c'est une procédure Sub qu'il faut utiliser et appeler dans chaque UserForm par Call Set_Focus.

S'il n'y a à chaque fois qu'un seul UserForm ouvert, on peut utiliser UserForms(0) :

Sub Set_Focus()
UserForms(0).Controls("TextBox1").SetFocus
End Sub

PS : bien sûr vous le savez, l'écriture basique est :

UserForm1.TextBox1.SetFocus

Edit : n'oubliez pas qu'une procédure Sub, comme une Function, peut avoir des arguments si vous voulez la paramétrer :

Sub Set_Focus(Ctl As String)
UserForms(0).Controls(Ctl).SetFocus
End Sub

appelée par exemple par Call Set_Focus("TextBox1")

A+

Merci beaucoup j'ai appliqué tes conseils et ça marche parfaitement.