[WD-2010] Utilisation de Controls indexés [Résolu]

[knarf44]

Bonjour,
Je voudrais créer un form au moment de l’exécution et je ne trouve pas les commandes (add.userform ?). Une fois créé je voudrais lui ajouter des controls et je n’y arrive pas non plus les exemples de l’aide ne marchent pas celui-ci notamment :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Mycmd As Control
Private Sub CommandButton1_Click()
 
    Set Mycmd = Controls.Add("MSForms.CommandButton.1", "CommandButton2", Visible)
 
    Mycmd.Left = 18
    Mycmd.Top = 150
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "This is fun." & Mycmd.Name
 
End Sub
 
 
Private Sub UserForm_AddControl(ByVal Control As MSForms.Control)
    Label1.Caption = "Control was Added."
End Sub

Une fois que j’aurais fait ça je voudrais accéder à mes contrôles façon indexée (par exemple CommandButon(1), CommandButon(2)…)

Tout aide est la bienvenue.

Merci

[Heureux-oli]

Salut,

Peut-être une piste là : http://silkyroad.developpez.com/VBA/VisualBasicEditor/

[knarf44]

Merci Oli,
Il y a des pistes, je les explore.
Fks

[knarf44]

Bon grace à cet article (merci oli) j'ai réussis à modifier une userform en lui ajoutant des contrôles redimmensionnés.

Par contre je suis toujours incapable :

• d'ajouter un userform;
• De lire l'état de mes nouvelles checkbox pour réagir (je ne parle pas de répondre à l'évenement mais bien de lire toutes les CB lors de l'appuis sur le bouton ok)
• De créer un bouton ok et la réaction à son appui (mais j'ai des pistes si j'arrive à créer la userform).

Pourtant j'y arrive à l'ancienne (avec l'objet automation WordBasic).

Merci de m'aider encore.

[Heureux-oli]

Salut,
Peut-être comme ça :

Code :

ThisDocument.VBProject.VBComponents.Add vbext_ct_MSForm

[knarf44]

Bon j'ai fini par réussir avec un for each control et un test sur le nom.
Pour la form, j'ai créé une feuille vierge. Je n'ai pas testé ta dernière proposition mais je le fais bientôt.

Merci de ton aide Oli.