Ajout en dynamique d'une frame dans une frame
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:
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:
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.
Pas vraiment une réponse, mais bon
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
