Me.Controls.add sauvegarde non effectuée

Version imprimable

Bonjour tout le monde,

j'ai un code qui ajoute un control dans une forme (USFModel).
Lorsque j'execute ce code, tout se passe bien, et l'affichage de ma forme contient bien le control textbox ajouté et la caption du commandButton est bien modifiée.

Lorsque je ferme ma forme, je retourne dans le VBEditeur ma forme n'est pas modifiée. Pourquoi donc??

Je cherche depuis ce matin si il aurait un code genre me.save mais je ne trouve pas et lorsque je lis les codes sur les forums, personne ne relève ce problème

Any idea??

d'avance merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub aa() Dim obj As Object ' Load USFModel USFModel.CommandButton1.Caption = "coucou" Set obj = USFModel.Controls.Add("forms.Textbox.1") With obj .Name = "monTextBox" .Left = 140 .Top = 30 .Width = 50 .Height = 20 .Visible = True End With Set obj = Nothing ' Unload USFModel USFModel.show End Sub

30/08/2007, 15h43
ouskel'n'or

Citation:

Envoyé par XineMA

Lorsque je ferme ma forme, je retourne dans le VBEditeur ma forme n'est pas modifiée. Pourquoi donc??

C'est normal -> Qui dit "dynamique" dit "volatile".
Un contrôl créé dynamiquement disparaît à la désactivation de l'userform... et c'est heureux ! S'il ne disparaissait pas, à la prochaine activation de la form, tu aurais deux contrôles, à la suivante, trois... etc.
Et c'est pas ça qu'on veut.
Bill Gates l'a bien compris, allez !!! :mouarf:
30/08/2007, 15h45
XineMA

Cela veut-il dire qu'il n'est pas possible de creer un Userform et ses controles dynamiquement?

Je ne comprends pas quand tu dis qu'a l'activation suivante j'aurais un controle de plus.

Mon code ne dépend pas du userform et est indépendant de celui-ci.

j'avais ptetre pensé à un export avant désactivation puis un import...
30/08/2007, 16h00
ouskel'n'or

Citation:

Envoyé par XineMA

Cela veut-il dire qu'il n'est pas possible de creer un Userform et ses controles dynamiquement?

Je n'ai pas dit ça, je dis simplement que si tu crées des contrôles en dynamique, il est normal qu'ils disparaissent à la désactivation de la form. Le comportement d'une form n'a rien à voir avec le comportement d'une feuille de calculs où tu peux ajouter tout ce que tu veux en dynamique et qui y reste. Images, boutons, zones de texte, graphique... etc.
Selon les contrôles que tu veux ajouter, il y a de nombreux avantages à les créer dynamiquement.
Qu'est-ce qui t'empêche de créer dynamiquement tes contrôles en début de procédure ?.
Jète un oeil à DoEvents dans l'aide, puis un autre oeil dans la FAQ ici où SilkyRoad développe tout ça en long en large et en travers...
Bon courage
A+
30/08/2007, 16h02
zoidy

Le truc c'est que tes controls créés dynamiquement n'existent que le temps de l'affichage du userform (donc entre le "userform.show" et le "unload userform").
Donc ces controls ne seront modifiables que par code, jamais à partir de la Form de VBEditor.

*Argh, devancé par Ousk' ;)*
30/08/2007, 16h18
ouskel'n'or

Edit
Je viens de comprendre ton dilemme. Dans ton premier post, tu poses la question sur la création de contrôles en dynamique.
Dans ton dernier post, tu poses la question de la création d'un userform en dynamique à incorporer dans ton projet.
Ce n'est pas la même chose.
Pour ajouter un userform à un projet, l'URL que je t'ai passée t'indique la voie à suivre. Pour ajouter dynamiquement lors de la création de l'userform, un contrôle dans CET Userform là, le code t'est également donné.
Les restrictions dont j'ai fait état ( et zoidy aussi ) concernaient l'ajout dynamique et définif d'un contrôle dans un userform existant.
Est-ce plus clair ?
A+
30/08/2007, 16h35
XineMA

en fait mon 2eme poste généralisait.

Si j'ai bien compris on ajoute des contrôles à un userform existant et ceux-ci sont actifs le temps de l'activation.

On crée un nouveau userform et ses contrôles et la

je vais donc creer un nouveau userform sur base d'un existant et ajouter les controles que je voulais dans le userform existant.

J'ai basé mon code sur la FAQ de SilkRoad qui est super bien faite mais j'étais partie d'un userform existant et ca fonctionnait bien sauf la "sauvegarde".

Merci des infos, je laisse encore ce poste ouvert jusque demain.

Merci de votre dévouement

bonsoir

Tu peux utiliser:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Lancement()
Dim objUsf As Object, objTxtBox As Object
 
Set objUsf = ThisWorkbook.VBProject.VBComponents("USFModel")
Set objTxtBox = objUsf.Designer.Controls.Add("forms.TextBox.1")
 
With objTxtBox
    .Name = "monTextBox"
    .Left = 140
    .Top = 30
    .Width = 50
    .Height = 20
    .Visible = True
End With  
 
VBA.UserForms.Add("USFModel").Show
End Sub

bonne soirée
michel

30/08/2007, 19h39
LeForestier

Bonjour à tous,
Je vais un peu poussé la polémique, quel est l'avantage de créer des contrôls et des UF en Dynamique ?, personellement je n'y vois aucun avantage, le code nécessaire pour les créer compense l'espace disque nécessaire à leur création lors du design. Si le nombre de contrôle dépend des besoins il est plus façile de les copier plutôt que de les créer!!
Bien entendu ce n'est que mon avis et je le partage .:lol:
En conclusion, mieux vaux les mettre au design.
(J'attend vos critiques):mouarf:
A+
Edit: Zoydi dit ... dans une autre discution
Finalement je laisse tomber la création des événements dynamique vu que je sens que ça va me prendre plus la tête qu'autre chose... surtout que ça ne sert qu'à apporter du confort d'utilisation (donc négligeable )
31/08/2007, 10h21
XineMA

Leforestier,

En fait j'ai une application qui, sur base de userform créé qui sont des formulaires, sont par la suite importés en format XML.
il est plus facile pour un uilisateur de 'dessiner' un formulaire dans un userform plutot que de le coder dans un fichier Xml.

Le but de créer un userform est l'importation d'un fichier xml pour en obtenir le useform "formulaire" .

Ca marche nickel, merci SilkRoad :)

et merci à tous

Xine