insérer une textbox automatiquement

[LaurentG]

Bonjour,

J'ai une petite quesiton :

En A1 j'ai la donnée 'Test1', en A2 'Test2' ...

j'aimerai qu'un userform s'ouvre en insérant une textbox avec le contenu de la cellule en A1, et une autre textbox avec le contenu se trouvant en A2 ...

Sachant que le nombre de données varient, c'est à dire qu'il peut y en avoir en A1 jusque A10 ou de A1 jusque A5 et que je veux le nombre de textbox correspondant. C'est à dire 5 textbox, ou 10 textbox.

ESt-ce possible?

Merci

Laurent

 

[Hellboy]

Bonjour LaurenG

Ceci est une façon de faire, mais tu devra travailler pour déplacer tes controle pour ne pas qu'il soit superposé

Option Explicit

Private Sub UserForm_Initialize()
Dim MyTextBox            As Control
Dim x                            As Integer

For x = 1 To Cells(65532, 1).End(xlUp).Row
        Set MyTextBox = UserForm1.Controls.Add('Forms.TextBox.1')
        MyTextBox.Left = x * 75
Next x
End Sub

[file name=classeur1_20050916215902.zip size=6466]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20050916215902.zip[/file]

 

[Robert]

Bonsoir Laurent, Hellboy, bonsoir le forum,

Hellboy a été plus rapide que moi mais je t'envoie quand même ma proposition qui je pense est très proche de la sienne. [file name=Laurent.zip size=16100]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Laurent.zip[/file]

 

[Hellboy]

Bonsoir Laurent, Robert

Personnellement, je préfère la solution a Robert. Et les gouts ne se discutte pas ! 🙂

 

[LaurentG]

Merci à vous deux.
Il est vrai que la solution de Robert convient mieux à ce que j'ai besoin.

Par contre j'ai une autre petite question :
En fait j'ai enlevé le limite de 10 enregistrements et j'ai ajouté au userform une scrollbar verticale.

Mais si le nombre d'enregistrement est plus grand que l'userform ma scrollbar ne sert à rien car inutilisable, elle ne s'active pas.

Vous avez une solution à çà?

Merci beaucoup.

Laurent