[XL-2010] Création textbox - Prise en compte

[AidezMoiSvp]

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

[gFZT82]

Bonjour,

A priori, ça fonctionne avec

Code :

1
2
With txtbx
    .Name = "Textbox" & x + 1

Cordialement.