maval
XLDnaute Barbatruc
Bonjour
J'ai dans un USF des textbox qui se forme sur deux colonne "TextAnnee & TextFilm" suivant le nombre de nom qui se trouve sur la ligne. J'aimerai que dans un label données le nombre de TextFilm.
Mon code.
Je vous remercie d'avance
J'ai dans un USF des textbox qui se forme sur deux colonne "TextAnnee & TextFilm" suivant le nombre de nom qui se trouve sur la ligne. J'aimerai que dans un label données le nombre de TextFilm.
Mon code.
Code:
Dim ObjAnnee, ObjFilm As Control
Dim Cl As Classe1
Dim f, g As Integer
g = 1
Set Collect = New Collection
With Sheets("Filmographie")
For i = 2 To 100
If .Cells(LigF, i) <> "" Then
tableau = Split(.Cells(LigF, i), ",")
For j = 0 To UBound(tableau)
Set ObjAnnee = Me.MultiPage1.Pages(2).Controls.Add("forms.TextBox.1") 'Textbox gauche
With ObjAnnee
.Name = "TextAnnee" & g
.Left = 12
.Top = 1 + (g * 1) * 25
.Width = 60
.Height = 18
.Text = Sheets("Filmographie").Cells(1, i)
.SpecialEffect = 0
.BackColor = &H8000000F
'.ForeColor = &HFFFFFF
End With
Set Cl = New Classe1
Set Cl.TextBox = ObjAnnee
Collect.Add Cl
Set ObjFilm = Me.MultiPage1.Pages(2).Controls.Add("forms.TextBox.1") ' Textbox droite
With ObjFilm
.Name = "TextFilm" & g
.Left = 90
.Top = 1 + (g * 1) * 25
.Width = 160
.Height = 18
.Text = tableau(j)
.SpecialEffect = 0
.BackColor = &H8000000F
'.ForeColor = &HFFFFFF
End With
Set Cl = New Classe1
Set Cl.TextBox = ObjFilm
Collect.Add Cl
g = g + 1
Next
End If
Next
If g > 10 Then
MultiPage1.Pages(2).ScrollHeight = 27 * g
End If
End With
Je vous remercie d'avance