Discussion :

[milton]

Bonjour,

Je cherche à faire un QCM dynamique à partir d'une feuille EXCEL (pour ne plus avoir à m'en occuper une fois livrée, l'utilisateur ne connaissant pas VBA).

J'ai donc un formulaire avec une grande Frame (frame1) dans laquelle vont venir s'inscrire d'autres frame avec une question en "Label" et deux boutons "oui" et "non".

Je commence tout juste et j'ai déjà un soucis. Dans UserForm_Activate
si je met le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Obj As Control
Set Obj = Me.Controls("Frame1").Add("forms.Frame.1")
With Obj
        .Name = "Frm" & 1
        .Caption = "xxxxxx"
        .Left = 6
        .Top = 6
        .Width = 366
        .Height = 54
End With

Sur la ligne set Obj, j'ai l'erreur :
-2147417848 (80010108)
Erreur Automation
L'objet invoké s'est déconnecté de ses clients.

Je passe alors en mode débogage et je change la ligne comme suit :

Code :

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

1
2
 
Set Obj = Me.Controls("Frame1").Add("forms.Label.1")

et le F8 fonctionne !
Le label est bien inséré dans la Frame

Y a t-il une contre-indication à gérer en dynamique une frame dans une frame ?

Par avance, merci.

[milton]

J'étais reparti d'un formulaire précédent avec les questions "en dur".

Je suis parti d'un classeur tout neuf et ai importé le formulaire, puis supprimé Frame1 avant de le re-crééer.

Et ça marche ...

Pas terrible comme solution, mais bon. Sinon apparement en dynamique, on n'a pas accès à toutes les propriétés des contrôles (ex : Font pour un Label). Si vous avez des infos, je suis preneur