créer un textbox en cliquant sur un bouton

[zab]

bonsoir à tous,

je souhaiterais que, à chaque clic sur un bouton (dans un userform), un textbox se crée, et si plusieurs clics, alors plusieurs textbox les uns sous les autres.

j'arrive à faire le premier, mais pas le suivant... en fait le premier se place tout seul sur le userform, je ne sais pas imposer un emplacement précis.

merci de m'éclairer!

 

[zab]

re-bonsoir,

j'essaie de me dépatouiller mais j'ai besoin d'un coup de pouce...

dans mon fichier ci-joint vous verrez qu'en cliquant sur le bouton j'ai 10 textbox qui s'affichent... moi je voudrais qu'au premier clic un textbox s'affiche, au deuxième clic un autre s'affiche sous le premier, etc.

quelqu'un pourrait-il m'aider?
d'avance merci.

 

[zab]

bonsoir,
je ne voudrais pas avoir l'air d'insister m'enfin... si quelqu'un pouvait m'aider...
merci, zab.

 

[galopin01]

Bonsoir,
En modifiant la macro de la manière suivante dans ton Book1 tu verras que chaque clic crée bien un TextBox

Private Sub CommandButton1_Click()
Set TextBox1 = UserForm1.Controls.Add("Forms.Textbox.1", "TB1", True)
MsgBox UserForm1.Controls.Count
End Sub

... ce qui cloche c'est qu'il les crée les uns sur les autres.
Je te laisse méditer la dessus.
Bonne soirée !
A+

 

[michel]

bonsoir Zab

j'espere que cette adaptation pourra t'aider

Private Sub CommandButton1_Click()
Dim TxBox As Control
Dim i As Byte

i = Me.Controls.Count - 1

Set TxBox = UserForm1.Controls.Add("Forms.Textbox.1", "TB" & i, True)
With TxBox
.Tag = "TB" & i
.Top = (20 * i) + 40
.Left = 10
End With

End Sub


bonne soiree
MichelXld

 

[michel]

bonsoir Galopin

excuses moi de ne pas t'avoir salué
...nos messages se sont croisés ...


tres bonne soirée
MichelXld

 

[zab]

merci mille fois Michel et Galopin pour ce duo de réponses!
@+ zab