Importer valeurs dans des textbox
Bonjour a tous,
J'ai un userform dans lequel, je veux rapeller des valeurs selon ce qui a été rempli precedement dans le userform.
Mes TextBox sont numérotée de 4 a 16 et je souhaite pouvoir reporter dedans les valeurs de la plage AV11 a BH11.
J'ai ecrit cle code ci-dessous mais il bug et me retourne le message d'erreit suivant :"Erreur de compilation : Membre de méthode ou de données introuvable" en poin tant sur .TextBox(i) Je suppose que ce doit etre ma façon d'oincrémenter le extbox qui lui plait pas et qui doit etre mal formalisé maus je ne vois pas comment le formuler autrement (désolé, la solution doit etre basic).
A vrai dire, je ne suis pas sur en fait que ce code fasse vraiment ce que je souhaite faire, j'avoie qu'un avis m'aiderait.
Le fichier contenant le formulaire étant bardé de protection (demande de mes suppérieurs), je vais avoir du mal a vous fournir un version demo mais si besoin absolue, je verrais ce que je peux faire
Merci par avnace pour votre aide
Bastien
k = 4
For l = 1 To 13
Me.TextBox(k).Value = Sheets("construction").Cells(11, l + 47)
k = k + 1
Next
On Error Resume Next
NextBonjour, un fichier exemple serait préférable, vous n'irez pas trés loin avec cette formulation car vous écrivez en Dur le numéro de ligne à rechercher : 11
En quoi est-ce un choix d'interrogation ? Votre code ne fonctionnera que pour la ligne 11.
Hello
Merci pour votre réponse
Je vais essayer d'anonymiser mon fichier mais il va faloir que je supprime les protections.
En fait mes données sont contenue dans un tableau ligne 11 du la colonne AR a BH et je veux reporter les valeurs de AV11 a BH11 dans mes textbox 4 a 16
Merci pour votre aide
Bastien
Bonjour a touzs,
Je crois que j'ai trouvé la solution, en tout cas, ça fonctionne.
Bonne journée a tous
Bastien
k = 4
For l = 1 To 13
Me.Controls("TextBox" & k).Value = Sheets("construction").Cells(11, l + 47)
k = k + 1
Next
On Error Resume Next