pré-remplir textbox userform

[woofette]

Bonjour,

Je voudrais pré-remplir les textbox de mon userform pour que dès qu'il s'ouvre les textbox soit remplie de valeurs contenue dans des cellules.

Pour l'instant j'utilise le code :

i = ActiveCell.Row
UserFormClient.Show
TextBox1.Value = Cells(i, 2)

Mais cela ne fonctionne pas, il affiche des textbox vide alors que la cellule ne l'est pas.

Merci d'avance.

Woofette

 

[GeoTrouvePas]

Re : pré-remplir textbox userform

Bonjour,

Ce comportement est tout à fait normal.

A partir du moment où tu fais "UserFormClient.Show", l'exécution de ton code va être suspendue pour lancer le code contenu dans ton Userform_Initialize. L'exécution ne reprendra qu'après la fermeture du Userform en question.

Pour éviter cela, il te faut faire :

Sub Remplissage
i = ActiveCell.Row
Load UserFormClient
TextBox1.Value = Cells(i, 2)
UserFormClient.Show
End Sub

Et tout devrait fonctionner...

Bonne journée !

 

[woofette]

Re : pré-remplir textbox userform

Je comprend tout à fait ! Cependant j'ai un message d'erreur...

Erreur 424 : objet requis

Et elle correspond à la ligne : TextBox1.Value = Cells(i, 2)

 

[GeoTrouvePas]

Re : pré-remplir textbox userform

Oui effectivement. VBA ne sait pas forcément d'où sort ce Textbox1. Essaye avec :

UserFormClient.TextBox1.Value = Cells(i, 2)