Discussion :

[rocuet]

Je voudrais créer une procédure, qui ajoute à un userform des labels et des zone de texte, en fonction de critère, notamment pour le nombre d'objet à ajouter.
Mais je n'y arrive malgré l'aide d'ecel. Quelqu'un pourrait il m'éclairer?

[Jean-Pierre49]

Bonjour

Une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
                            Dim Label                    As Object
        Set Label = Me.Frame1.Controls.Add("Forms.Label.1")
        With Label
            .Top = 10
            .Left = 10
            .Width = 4
            .Height = 4
            .Caption = ""
        End With

Créer un nouveau Label dans une Frame nommée Frame1

Tu dis

[rocuet]

L'userform avec le frame apparaissent mais pas le label????

[Jean-Pierre49]

Oui il n'a pas de caption

essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
                            Dim Label                    As Object
        Set Label = Me.Controls.Add("Forms.Label.1")
        With Label
            .Top = 10
            .Left = 10
            .Width = 100
            .Height = 100
            .Caption = "ffffffff"
            .Visible = True
        End With

tu dis

[rocuet]

J'ai réussi: problème d'écriture: ne pas indiquer MSFORMS mais FORMS.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set etiquette = Feuille_Fichier.Frame1.Controls.Add("Forms.label.1", , True)
        With etiquette
            .Top = 50 * i
            .Left = 50
            .Width = 20
            .Height = 20
            .Caption = "Feuille" & i
 
        End With