Créer des contrôles par programme

[Claude Azoulai]

Bonjour à tous
Dans une userform j' ai une boite de texte "TextBox1" que je voudrais dupliquer, car à la conception, je ne connais pas le nombre de boites identiques que l'utilisateur aura besoin.
Comment créer des copies et les renommer par programme.
Quelqu'un a-t-il une idée.
Merci de votre réponse.
Claude Azoulai

 

[MichelXld]

Re : Créer des contrôles par programme

bonjour Claude

J'espere que cet exemple pourra t'aider.
La procédure crée 5 TextBox dans l'UserForm.

Private Sub CommandButton1_Click()
    Dim Obj As Control
    Dim i As Integer
    
    For i = 1 To 5 'boucle pour la création des TextBox
        Set Obj = Me.Controls.Add("forms.Textbox.1")
        With Obj
            .Name = "monTextbox" & i
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
        End With
    Next i
End Sub

bon apres midi
MichelXld

 

[chris]

Re : Créer des contrôles par programme

Bonjour

Sans répondre directement, regarde ce fil
https://www.excel-downloads.com/threads/le-barbatruc-de-jam-un-graph-dans-une-cellule.59863/

La macro crée des pseudo graphiques à partir d'élements dessinés et les renomme.

Tu devrais pouvoir en tirer le code que tu cherches.

 

[Claude Azoulai]

Re : Créer des contrôles par programme

Merci à MichelXLD

C'est exactement ce que je cherchais.
Merci à toi.
laude Azoulai