Créer des textbox à la volé

Version imprimable

Bonjour à tous,

Je fais mes débuts en matièere de programmation VBA sur Excel. Je suis confronté depuis ce matin à un problème que j'arrive pas à résoudre.

J'ai un formulaire avec un bouton qui doit me permettre de créer un textbox chaque fois qu'il est activé. Les texbox doivent s'enchainer un à la suite de l'autre

voici ce que j'ai fait pour le moment
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim TexteBox(0 To 100) As MSForms.TextBox Private intcpt As Integer 'Bouton permettant d'ajouter des contrôles Private Sub btnAjouter_Click() TexteBox(intcpt) = 'J'ai pas trouvé comment instancié l'objet TexteBox(intcpt).Left = 10 TexteBox(intcpt).Top = intcpt + 10 Dim i As Integer For i = 0 To intcpt Set TexteBox(intcpt) = Me.Frame1.Controls.Add("Forms.TextBox.1", , True) Next intcpt = intcpt + 1 End Sub
évidement ce code la fonctionne pas. J'aimerai que vous m'aidiez à le compléter

Merci beaucoup de votre aide, je commence a désespéré

bonjour Chuckyboy,

d'après ce que tu dit et ton exemple, je ne suis pas sur si tu veut créer un seul textbox ou plusieurs, voici exemple pour créer 10 TexBox,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
  Dim tb As msforms.TextBox, x As Integer
  x = 40
For i = 1 To 10
With UserForm1
  Set tb = .Controls.Add("Forms.TextBox.1", True)
    With tb
    .Height = 15
    .Width = 120
    .Top = x
    .Left = 100
    .Text = "tb." & i
    .Font.Name = "Arial"
    .Font.Size = 8
    ht = .Height
    End With
End With
x = x + ht + 5
Next
End Sub

28/05/2010, 06h56
Chuckyboy

d'accord,

j'ai pas essayé mais à la lecture j'ai pas l'impression que ça va fonctionner.

Lorsque j'appui sur mon bouton, je veux créer un textbox de plus en dessous des X précédent. C'est pourquoi j'avais déclarer un vecteur de textbox. Donc il ne suffirai que de boucler sur mon vecteur pour tous les afficher. Ou pour récupérer toutes les valeurs.

Est-ce que tu vois ce que je veux dire ?

maintenant comment procède t-on ?

merci de ta réponse :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim X As Integer
 
Private Sub CommandButton1_Click()
Dim tb As msforms.TextBox
Const ht = 20
 
X = IIf(X < 40, 40, X)
With UserForm1
    Set tb = .Controls.Add("Forms.TextBox.1", True)
    With tb
        .Height = ht
        .Width = 120
        .Top = X
        .Left = 100
    End With
End With
X = X + ht + 5
End Sub

Merci de ta réponse mais cela ne résout pas mon problème.

Voici le code avec plus de commentaire

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
25
26
27
28
29
30
31
32
33
34
 
'Déclaration d'un vecteur de type textbox (ce vecteur contiendra les textbox dynamique du formulaire
private MesTextbox() as Msform.TextBox
 
'Déclaration du nombre de textbox présent actuellement dans la page
private intNbTxtBox as integer
 
'Hauteur du textbox
private Const intht as integer = 20
 
'Évènement au clique (Ajouter un Textbox)
Private Sub btnAjouter_Click()
'On Ajoute un textbox dans le vecteur de type textBox
MesTextBox(intNbTxtBox) = '******Mon problème********
with MesTextBox(intNbTxtBox)
        .Height = intht
        .Width = 120
        .Top = intNbTxtBox
        .Left = 100
 
end with
Dim intCompteur as integer
 
'On affiche les textbox précédent
for intCompteur = 0 To intNbTxtBox
'Ligue de code pour afficher les textbox de mon vecteur
'***** 2ème problème *******
 
 
Next
 
'On augmente le nombre de textbox de 1
intNbTxtBox = intNbtxtBox + 1
end sub

Voilà, Donc lorsque je clique sur le bouton, le rajoute 1 textbox à la suite des autres (qui ont été préalablement rajouter aussi avec le même bouton)

Est-ce que vous comprenez là ou je galère ?

Encore merci pour vos réponse ! J'espère réussir à résoudre mon problème

1 pièce(s) jointe(s)

bonjour Chuckyboy,

pour créer une nouvelle classe de controls, il te faut créer un module de classe, (click droit sut le VBAproject et insertion, module de classe)
dans cette exemple je nomme ce nouveau module "ClassTb"

sur la page code de "ClassTb"

Code:

Public WithEvents MonTb As MSForms.TextBox

Code:

1
2
3
Private Sub MonTb_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox Me.MonTb.Name
End Sub

et sur la page code du UserForm

Code:

1
2
3
4
Private MesTb() As New ClassTb
Dim x As Integer
Dim Ctb As Integer
Dim no As Integer

Code:

1
2
3
Private Sub UserForm_Initialize()
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
  x = x + 30
  no = no + 1
With UserForm1
  Set tb = .Controls.Add("Forms.TextBox.1", True)
    With tb
    .Height = 15
    .Width = 120
    .Top = x
    .Left = 100
    .Name = "MonTb" & no
    ht = .Height
    End With
End With
InitialiseClassTb
Ctb = 1
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub InitialiseClassTb()
Dim ctl As Control, I&
If Ctb = 1 Then TerminateClassTb
     For Each ctl In Me.Controls
         If TypeName(ctl) = "TextBox" Then
             ReDim Preserve MesTb(0 To I)
             Set MesTb(I).MonTb = ctl
             I = I + 1
         End If
     Next ctl
End Sub

Code:

1
2
3
4
5
6
Sub TerminateClassTb()
     Dim I&
     For I = 0& To UBound(MesTb)
         Set MesTb(I) = Nothing
     Next I
End Sub

Code:

1
2
3
Private Sub UserForm_Terminate()
TerminateClassTb
End Sub

voila:

28/05/2010, 20h03
Chuckyboy

merci beaucoup !!!!