Collection et textbox

[rocuet]

Bonjour,

J'ai crée 12 textbox à l'intérieur d'une frame. Je voudrais réaliser une boucle sur la collection à laquelle les textbox appartiennent mais je ne la trouve pas.

A quelle collection appartiennent les objets textbox?

[Jean-Pierre49]

Bonjour
une piste

Code :

1
2
3
4
Dim CompA As Byte
For CompA = 1 To 12
Me.Controls("textbox" & CompA).Value = CompA
Next CompA

Bon courage

[Ormonth]

Bonjour,

C'est la collection Controls dont il s'agit, tu peux réduire le champ à ton frame, ceci liste dans la feuille2, le classeur actif étant celui du USF.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ListeControldeFrame()
Dim monControl As Control
Dim I As Integer
Dim objCible
 
 I = 2 'commence l'écriture en ligne I
Set objCible = usfTructruc.frmToto.Controls
Worksheets("Feuil2").Activate
For Each monControl In objCible
    If TypeOf monControl Is MSForms.TextBox Then
          Cells(I, 2) = monControl.Name
           I = I + 1
        End If
    Next
    MsgBox "terminé"
Set objCible = Nothing
End Sub

cordialement,

Didier