[VBA-E] UserForm avec textbox "Dynamique"

Version imprimable

18/05/2006, 23h25
Alex_Kidd

[VBA-E] UserForm avec textbox "Dynamique"

Je travaille actuellement sur une base de données sous Excel . Les données sont saisies dans une userform avec plusieurs textbox placés dans des frames différentes.A la fin de ma userform ,j'ai une frame qui contient plusieurs textbox me permettant de joindre des documents . Dans cette frame j'ai 6 textbox avec un bouton "+" à coté et une dernière textbox.

Au début dans ma denière frame , j'ai seulement ma 1ère textbox qui est visible . L'utilisateur appuie sur le bouton "+" à coté et la 2ème textbox s'affiche . En gros , la seule solution (vu mon nivo :roll: ) est de jouer sur la longeur de ma userform -> le bouton "+" augmente sa taille au fur et à mesure révélant ainsi mes autres textbox déjà " en dur " sur ma userform.

Ca me pose plusieurs problèmes : 1 - c'est pas "propre" au nivo du code :aie: et si la personne à 7 pièces à joindre , elle doit appeler de nouveau la userform :( .

Pour conclure mes questions :
- 1) Comment créer des textes dynamiquements avec mon bouton "+" ( "simplement" dès que j'appuie sur + après avoir rempli ma textbox , une nouvelle apparait après avoir appuyer sur "+" ? Est-ce faisable du code écrivant du code ??? Est ce compliqué à faire :aie: ?

- 2) Comment les récupérer ( Ref. du control et valeur ) ?

- 3 ) Comment ajouter dynamiquement une barre verticale scrolling pour eviter que mon filtre ne dépasse la taille de l'écran.

-4 ) BONUS : Si 1) faisable , est-ce possible de les supprimer avec un bouton "-" en cas d'erreur utilisateur ?

Je remercie déjà les personnes qui vont lire mon message

Voici un exemple de code à placer dans un Userform, qui permet de créer
dynamiquement un COMMANDBUTTON et un TEXTBOX et de récupérer leurs
événements:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private WithEvents Bouton1 As MSForms.CommandButton
Private WithEvents Text1 As MSForms.TextBox
 
Private Sub Bouton1_Click()
MsgBox "Hello !!!"
End Sub
 
Private Sub CommandButton1_Click()
Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Bouton1",
True)
Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name
 
Set Text1 = UserForm1.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub

Pour le supprimer :

Code:

1
2
UserForm1.Controls.Remove "NomDuControle"

Inspire toi de ca...

19/05/2006, 00h29
Vesta
Pour les scrollbar tu peux les afficher comme ca:
Code:

1 2 UserForm1.ScrollBars = fmScrollBarsVertical UserForm1.ScrollHeight = 2000
PS la heuteur dépendra du nombre de controle ajoutés a toi de trouver un moyen de les compter

Pour les enlever completement
Code:

1 2 UserForm1.ScrollHeight = 0 UserForm1.ScrollBars = fmScrollBarsNone
Et voila :p