Ajout dans un userform

**dlight** · 30/09/2011, 22h08

Bonjour à tous !

J'ai un nouveau projet à réaliser mais avant de débuter, j'aimerais savoir s'il est possible d'ajouter un bouton, un label ou un checkbox (par exemple) à l'intérieur d'un userform déjà existant et d'ajouter du code dans le userform ou directement attaché à l'objet ajouté?

Merci à l'avance

Dlight

**jfontaine** · 30/09/2011, 23h47

Bonjour,

oui cela est possible en utilisant VBComponent

Sur cet exemple on ajoute un bouton sur une Userform ainsi que son code
http://excel.developpez.com/faq/inde...tCommandButton

**dlight** · 01/10/2011, 16h52

Merci à vous jfontaine pour votre réponse.

Corriger moi si je me trompe, mais le lien proposé ajoute un bouton de commande dans une feuille alors que mes ajouts seront dans un userform déjà existant

Dlight

Invité · 01/10/2011, 16h56

Bonjour

As-tu cherché dans la FAQ ? http://excel.developpez.com/faq/inde...m#UsfDynamique

Philippe

**jfontaine** · 01/10/2011, 19h22

mais le lien proposé ajoute un bouton de commande dans une feuille alors que mes ajouts seront dans un userform déjà existant

Ce lien propose un exemple de fonctionnement de VBComponent qu'il te faut adapter à ton besoin.

Commence une adaptation et reviens vers nous si tu as une difficulté. (A moins que tu bloques dès le début

)

**dlight** · 02/10/2011, 00h30

Merci à vous deux pour les pistes de solutions. Je vais tester afin de comprendre le fonctionnement et si j'ai des problèmes, le forum en sera informé car sans vos judicieux conseils, ma connaissance n'avance pas très rapidement...

Dlight

**jfontaine** · 03/10/2011, 12h03

pour te mettre sur la piste, ci dessous un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Form_Modif()
 
 
Dim Usf As VBComponent
Dim obj As Object
Dim i As Integer
 
 
Set Usf = ThisWorkbook.VBProject.VBComponents.Item("frm_form1")
 
 
 
                                '###################
                                '### Ajoute les Objets ###
                                '###################
 
Set obj = Usf.Designer.Controls.Add("Forms.ListBox.1")
With obj
    .BackColor = &H80000018
    .BorderStyle = 1
    .SpecialEffect = 0
    .MultiSelect = 2
    .Font.Name = "Courier New"
    .IntegralHeight = False
    .BoundColumn = 0
    .Left = 0
    .Top = 0
    .Width = 600
    .Height = 337
End With
 
 
                                '#################
                                '### Ajoute le code ###
                                '#################
 
 
With Usf.CodeModule
    i = .CountOfLines
    .InsertLines i + 1, "Private Sub UserForm_Initialize()"
    .InsertLines i + 2, "AfficheList"
    .InsertLines i + 3, "End Sub"
End With
 
End Sub

**dlight** · 19/06/2012, 23h02

Bonjour à tous !

J'espère que vous ne me voudrez pas jfontaine si j'ai pris un peu de temps avant de donner suite à votre dernier message.

Le projet avait été mit de coté...

J'ai 2 problèmes avec le code proposé.

1- J'ai une erreur de compilation à Dim Usf as VBComponent. si quelqu'un peut m'expliquer la source je lui serait très reconnaisant.

J'ai temporairement retiré la ligne qui cause l'erreur de compilation afin de comprendre la manipulation de ce code. J'aimerais que plus d'un label s'ajoute par le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub Form_Modif()
 
 
'Dim Usf As VBComponent
Dim obj As Object
Dim i As Integer
Dim j As Integer
 
j = 1
 
 
Set Usf = ThisWorkbook.VBProject.VBComponents.Item("frm_form1")
 
 
 
                                '###################
                                '### Ajoute les Objets ###
                                '###################
 
Set obj = Usf.Designer.Controls.Add("Forms.Label." & j)
With obj
    .BackColor = &H8000000F
    .Font.Name = "Courier New"
    .Left = 6
    .Top = 222
    .Width = 150
    .Height = 25
    .Caption = ""
End With
j = j + 1
 
Set Usf = ThisWorkbook.VBProject.VBComponents.Item("frm_form1")
 
 
 
                                '###################
                                '### Ajoute les Objets - 2 ###
                                '###################
 
 
Set obj = Usf.Designer.Controls.Add("Forms.Label." & j)
With obj
    .BackColor = &H8000000F
    .Font.Name = "Courier New"
    .Left = 160
    .Top = 222
    .Width = 150
    .Height = 25
    .Caption = ""
End With
j = j + 1

Avec ce code, j'ai l'erreur -2147221005 - Chaine de classe incorecte lors de l'ajout du label # 2.

Merci une fois de plus pour l'aide.

Dlight

**AlphaScorpi** · 20/06/2012, 09h34

Code :

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

Usf.Designer.Controls.Add("Forms.ListBox.1")

Forms.ListBox.1 est la designation du controle, tu peux en ajouter 50, c'est par cette designation qu'il faut passer, apres tu peux boucler sur les noms.

Code :

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