XL 2013 Nombre de textbox dans mon USF

[maval]

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.

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

 

[jpb388]

Re : Nombre de textbox dans mon USF

Bonjour à tous

je dirai me.multipage1.page(2).controls.count/2

si tu des contrôles fixes tu les soustrait avant de faire la division

 

[phlaurent55]

Re : Nombre de textbox dans mon USF

Bonjour à tous,

je pense que le nombre de TextBox créés est égal à: UBound(tableau)+1

à+
Philippe

 

[maval]

Re : Nombre de textbox dans mon USF

Bonjour JP, Philippe

J'ai essayer vos code mais cela n'a rien donnez, en moins que je n'est pas fait se qu'il fallait faire?

Je vous souhaite une bonne joiurnée

 

[jpb388]

Re : Nombre de textbox dans mon USF

re
Avec un fichier on pourrait peut être trouver une solution

 

[Bebere]

Re : Nombre de textbox dans mon USF

bonjour Maval,Phlaurent,Jpb
déclarer les variables ainsi
Dim ObjAnnee As Control, ObjFilm As Control' avant ObjAnnee en variant
Dim Cl As Classe1
Dim f As Integer, g As Integer'avant f en variant ,déclaré en long c'est mieux,le système change integer en long
collect.count/2
je me demande si c'est nécessaire la collection et de mettre ensemble odjannee et objfilm dans la classe

 

[maval]

Re : Nombre de textbox dans mon USF

Bonjour Bebere

Je te remercie;

Je me demande si c'est nécessaire la collection et de mettre ensemble odjannee et objfilm dans la classe

Pourquoi et comment tu ferais?

Bonne journée

 

[13GIBE59]

Re : Nombre de textbox dans mon USF

Bonjour à tous.

En msgbox, pour tous les contrôles :

Private Sub CommandButtonCC_Click()
Dim Ctrl As MSForms.control
Application.ScreenUpdating = False


For Each Ctrl In FormCal.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then cbFC = cbFC + 1
Next Ctrl
For Each Ctrl In FormCal.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then OptFC = OptFC + 1
Next Ctrl
For Each Ctrl In FormCal.Controls
If TypeOf Ctrl Is MSForms.TextBox Then TxtFC = TxtFC + 1
Next Ctrl
For Each Ctrl In UserFormAide.Controls
If TypeOf Ctrl Is MSForms.Label Then LblFC = LblFC + 1
Next Ctrl




MsgBox "Nombre de CheckBox : " & cbFC & vbCr & _
"Nombre d'OptionButton : " & OptFC & vbCr & _
"Nombre de Label : " & TxtFC & vbCr & _
"Nombre de TextBox : " & LblFC

End Sub

 

[maval]

Re : Nombre de textbox dans mon USF

Bonjour 13GIBE59

Je te remercie mais j'ai un message d'erreur sur "Formcal.Controls variable non définie"

Bonne journée

 

[13GIBE59]

Re : Nombre de textbox dans mon USF

Autant pour moi, FormCal c'est le nom de ton userform (les joies du copier-coller)...

JB

 

[maval]

Re : Nombre de textbox dans mon USF

Re,

Je te remercie Nickel

Bonne journée

 

[Bebere]

Re : Nombre de textbox dans mon USF

MaVal
voilà un fichier exemple qui résume ce que tu veux faire
en même temps,merçi à celui qui l'a fait

 

[maval]

Re : Nombre de textbox dans mon USF

Re Bebere

Je te remercie je vais essayer de faire aussi bien?

Bonne soirée