Discussion :

[loacast]

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.

[ouskel'n'or]

Tu peux déjà essayer ça.

Code :

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

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)

[loacast]

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

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 :

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
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 :

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
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.

[ouskel'n'or]

je suis pas con non plus

Mais non, t'es pas con !
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...

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+

[leroissejp]

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

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
 
 
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

[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").

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 :

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

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 .

[loacast]

Voici actuellement ce que je fais :

Code :

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

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

[ouskel'n'or]

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 :

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

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

A+

[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?

[ouskel'n'or]

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

A+

[loacast]

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

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
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 ? ).