Création textbox - Prise en compte
Bonjour,
Bon désolé pour le titre mais je ne savais pas trop quoi mettre.
Soit un USF comprenant deux frame. Quand je clique sur un label, un textbox est ajouté dans la frame1.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Private Sub Label1_Click()
Dim txtbx As Control
Dim x As Integer
x = 0
For Each Ctrl In Me.Frame1.Controls
If TypeName(Ctrl) = "TextBox" Then
x = x + 1
End If
Next Ctrl
Set txtbx = Me.Frame1.Controls.Add("forms.Textbox.1")
With txtbx
.Name = "Textbox" & x
.Top = 78
End With
End Sub |
Le nouveau textbox est bien ajouté.
Avec un bouton, j'envoie les données des textbox vers une cellule (chaque textbox est séparé par un ";").
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As String
Dim x As Integer
x = 0
For Each Ctrl In Me.Frame1.Controls
If TypeName(Ctrl) = "TextBox" Then
x = x + 1
End If
Next Ctrl
For i = 1 To x
a = a & ";" & Me.Controls("Textbox" & i).Text
Next
Selection.Offset(0, 2) = Mid(a, 2)
End Sub |
C'est alors que ma macro bug sur la ligne suivante
Code:
a = a & ";" & Me.Controls("Textbox" & i).Text
Où est l'erreur ?
Merci
