Discussion :

[Alex_Kidd]

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 ) 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 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 ?

- 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

[Vesta]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UserForm1.Controls.Remove "NomDuControle"

Inspire toi de ca...

[Vesta]

Pour les scrollbar tu peux les afficher comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UserForm1.ScrollHeight = 0
UserForm1.ScrollBars = fmScrollBarsNone

Et voila :p