[XL-2003] Ajout dans un userform

[dlight]

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]

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]

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

[Philippe JOCHMANS]

Bonjour

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

Philippe

[jfontaine]

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]

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]

pour te mettre sur la piste, ci dessous un exemple

Code :

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