[VBA Excel] Créer plusieurs contrôles dynamiquement

Version imprimable

08/12/2005, 15h25
loacast

[VBA Excel] Créer plusieurs contrôles dynamiquement

Bonjour,

Je souhaiterais pouvoir créer plusieurs contrôles dynamiquement. Seul hic, je ne connais pas le nombre de contrôles dont j'ai besoin (puisque ce nombre peut varier durant l'exécution de l'application).

Nota bene : Créer un contrôle n'est pas le problème en soit, c'est pouvoir le dupliquer qui l'est.

NB2 : La FAQ VB montre comment résoudre ce problème mais ça ne marche pas en VBA.

Tu peux déjà essayer ça.

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub AjouterUnControleDynamique_Click()
    Dim MonControle As Control
    Set MonControle = Controls.Add("Forms.1", "CommandButton2", Visible)
    With MonControle
        .Left = 18
        .Top = 50
        .Width = 175
        .Height = 20
     End With
End Sub

Précise ton pb.

A+

En fait je crois que tu crées bien plusieurs boutons mais qu'ils tous au même endroit (superposés)

Ton exemple ne marche pas chez moi et de plus je n'arrive plus moi meme à en créer dynamiquement ... je crise :cry:

Ce que je veux c'est que dans une frame, soit créé plusieurs labels les uns en dessous des autres. Le problème n'est pas de les mettre les uns en dessous des autres (je suis pas con non plus) c'est de pouvoir les faire. Hors, je n'y arrive pas.

edit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim WithEvents obj1 As CommandButton Private Sub CommandButton1_Click() Set obj1 = Controls.Add("VB.CommandButton", "btn1") obj1.Visible = True obj1.Top = 100 obj1.Left = 100 obj1.Caption = "Valider" End Sub Private Sub obj1_Click() MsgBox "Bonjour" End Sub
Je ne comprend pas je suis quasi certain que ce code fonctionnait il y'a une heure.

Edit 2 :

Voilà j'ai retrouvé comment créer dynamiquement un contrôle, dans cet exemple c'est un bouton :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Option Explicit Dim WithEvents obj1 As CommandButton Private Sub CommandButton1_Click() Set obj1 = Controls.Add("Forms.CommandButton.1", "btn") obj1.Visible = True obj1.Top = 100 obj1.Left = 100 obj1.Caption = "Valider" End Sub Private Sub obj1_Click() MsgBox "Bonjour" End Sub
Malheureusement, impossible (pour moi en tout cas) de faire reproduire ce bouton.

08/12/2005, 16h42
ouskel'n'or

Citation:

je suis pas con non plus

Mais non, t'es pas con ! :D
Désolé, mais on ignore le plus souvent si la question n'émane pas d'un développeur distrait ou qui expérimente une nouvelle procédure... :wink:

Ceci dit, tu n'as pas précisé ta version VBA
Dans VBA 97, j'utilise DoEvents. Cela permet de gérer les événements des controls ce qui n'est pas le cas autrement. Si c'est ta version et que ça t'intéresse, tu dis.

A+

Bonsoir,
Dans cet exemple le code crée deux Label dynamique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Option Explicit
Dim Mycmd As Control
 
Private Sub CommandButton1_Click()
 
Set Mycmd = Controls.Add("Forms.Label.1")
    Mycmd.Left = 18
    Mycmd.Top = 50
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "C’est amusant."
Set Mycmd = Controls.Add("Forms.Label.1")
    Mycmd.Top = 70
    Mycmd.Left = 18
    Mycmd.Width = 175
    Mycmd.Height = 20
 Mycmd.Caption = "deuxième Label"
End Sub

jpleroisse

08/12/2005, 16h53
loacast
En fait, je n'ai pas besoin d'évènement, du moment que la création dynamique de contrôles fonctionne I'm happy.

Pour ma version, j'aurai apparement excel 2002 (je me trompe peut etre, c'est ce que j'ai vu dans "? / à propos de Microsoft Excel").

Citation:

Désolé, mais on ignore le plus souvent si la question n'émane pas d'un développeur distrait ou qui expérimente une nouvelle procédure

Mais en fait quand j'ai essayé de faire
Code:

1 2 obj1(1).Top = obj(0).Top + 100 obj1(1).Visible = True
Ca ne s'exécute même pas.

A défaut de me répéter, je souhaiterais dupliquer autant de fois que nécessaire mon contrôle.

Merci pour les efforts que tu as fourni jusqu'ici :D .

Voici actuellement ce que je fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim obj1 As Control
 
Private Sub CommandButton1_Click()
 
    Set obj1 = Controls.Add("Forms.Label.1", "label", True)
 
 
    obj1.Visible = True
    obj1.Top = 100
    obj1.Left = 100
    obj1.Caption = "Valider"
 
 
End Sub

Je précise que je fais du VBA.

Et lorsque je veux faire

Load obj1(1)

Il n'appréci pas beaucoup :?

08/12/2005, 17h12
ouskel'n'or
Citation:

obj1(1).Top = obj(0).Top + 100
obj1(1).Visible = True

Ca ne s'exécute même pas.

Pour ça, essaie de désigner la feuille
Code:

1 2 3 4 With MaForm.obj1 .Top = MaForm.obj(0).Top + 100 '.... end with
Avec moi, ça marche toujours

Mais je te laisse avec leroissejp, c'est un pro des contrôles dynamiques :wink:

A+
08/12/2005, 17h18
loacast

De quelle feuille tu parles? Je travailles sur un formulaire :?

EDIT :

je n'avais pas vu que leroissejp avait répondu. Ton code marche à merveille, néanmoins, comment accéder àa ces contrôles une fois créés?
08/12/2005, 17h23
ouskel'n'or

J'ai bien relu tous tes messages, de formulaire... point :cry:
Je parle d'userform "MaForm"

A+

Et bien je vous remercie tous les deux, je suis finalement arrivé à ce que je voulais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
 
Dim Mycmd(10) As Control
 
Private Sub CommandButton1_Click()
 
Set Mycmd(1) = Controls.Add("Forms.Label.1")
    Mycmd(1).Left = 18
    Mycmd(1).Top = 50
    Mycmd(1).Width = 175
    Mycmd(1).Height = 20
    Mycmd(1).Caption = "C’est amusant."
Set Mycmd(2) = Controls.Add("Forms.Label.1")
    Mycmd(2).Top = 70
    Mycmd(2).Left = 18
    Mycmd(2).Width = 175
    Mycmd(2).Height = 20
 Mycmd(2).Caption = "deuxième Label"
 
 Mycmd(1).Caption = "Test"
 
End Sub

Merci encore et à dans pas trop longtemps pour de nouvelles quêtes (qui a dit questions chiantes ? :evil: ).