[VBA-E]ajouter un textbox sur un formulaire par code?

Bonjour le forum
afin de rendre mon apllication durable dans le temps je susi contraint de prévoir une partie "aministration" qui permet d'ajouter ou supprimer une opération à mon tableau
Ca j'y arrive tres bien
le souci est que pour remplir le tableau j'ai conçu un formulaire avec autant de textbox qu'il y a d'opération présente dans mon tableau
or si j'ajoute une opération je dois aussi ajouté un textbox et vous comprendrez bien que je peux pas demandé à l'utiisateur de le faire !

Est possible de le faire via une macro?

Oui, c'est possible.
2 possibilités:
1°) si tu sais à l'avance quel champ tu devras ajouter, tu peux le faire dans ton formulaire de départ, mais le rendre invisible. Tu n'auras plus alors qu'à changer sa propriété "visible" pour le faire apparaître.
2°) tu rajoutes par du code un contrôle dans ton formulaire. Je ne l'ai pas en tête, mais ça doit être danas la FAQ, ou en faisant une recherche avancée sur le forum.

tres bien merci

je suis obliger de faire la 2ieme solution ...
je vais donc cherché :)

Regarde là, par exemple:
http://vb.developpez.com/faq/?page=Form#ctl_dynamique

:o

j'aimerai utiliser la 2ieme méthode (je l'a comprend mieu) mais j'ai pas trop compris ou il fallais mettre le code ?

Ben ???? Tu le mets à un endroit où il sera exécuté!!
A quel moment veux-tu déclencher la création de ton nouveau contrôle? Tu vas bien mettre un bouton quelquepart qui permettra à tes utilisateurs de l'ajouter, non? C'est par exemple dans le "Click" de ce bouton que tu peux mettre le code.
Ou alors je ne comprend pas ta question...

non tu as bien compris

mais c'est cette phrase qui m'a perturbé

Citation:

---

Auparavant il faut avoir déclaré votre contrôle dans la partie Déclarations du module de la form

---

alors voila j'ai presque réussi en fesant

Code:

---

1 2 3 4 5 6 7

Dim montexte As Control Set montexte2 = Opération.Controls.Add("Forms.TextBox.1") montexte.Left = 50 montexte.Top = 50 montexte.Width = 100 montexte.Height = 25 Opération.Show

---

il faudrait aussi que j'ajoute des labels j'ai essayé de faire la même chose en remplacant Textbox par Label
ca mrche aussi a pars pour l'option caption

j'ai rajouté

montexte.caption="test"
mais a priori ca fonctionne pas

bonjour

tu peux essayer

Code:

---

montexte.Object.Caption="test"

---

bonne journée
michel[/code]

exact michel
merci


encore une question en fesant

Code:

---

Set montexte = Opération.Controls.Add("Forms.Label.1")

---

quel sera le nom du Label ? si c'est Label1 n'y a t'il pas un moyen pour le renommé et l'appelé Label44 par exemple?

rebonjour

il me semble que par défaut le Label va prendre le 1er index de disponible , en partant de 1 ( Label1 , Label 2 ...etc...)

pour le renommer au moment de la creation , tu peux essayer

Code:

---

1 2 3

Dim monTexte As Control Set monTexte = Opération.Controls.Add("Forms.Label.1") monTexte.Name = "Label44"

---

bonne journée
michel

Code:

---

Set monTexte = Opération.Controls.Add("Forms.Label.1", "Label44")

---

la propriété Name est en lecture seule à l'exécution :!:

bonsoir Thierry

ta solution fonctionne tres bien

par contre chez moi la propriété Name est en lecture/ecriture

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim montexte As Control Set montexte = UserForm1.Controls.Add("Forms.Label.1")   With montexte .Left = 50 .Top = 50 .Width = 100 .Height = 25 .Name = "Label44" End With

---

si ensuite j'utilise par exemple

Code:

---

1 2 3

Private Sub CommandButton1_Click() MsgBox Me.Controls(1).Name End Sub

---

"Label44" est bien renvoyé


bonne soiree
michel

Citation:

---

par contre chez moi la propriété Name est en lecture/ecriture

---

Evidemment : si tu crées un contrôle dynamiquement ! la possibilité (il le faudra alors bien) de lui donner un nom te sera bien évidemment alors donnée !!!
Thierry parlait d'un contrôle crée au stade du développement.

Essayes donc de renommer maintenant ce contrôle et tu verras à quel point sa remarque était parfaitement justifiée !

D'où l'intérêt, une fois de plus, d'être précis dans ses explications (tu aurais dû dire que tu créais dynamiquement !)

bonsoir

Citation:

---

D'où l'intérêt, une fois de plus, d'être précis dans ses explications (tu aurais dû dire que tu créais dynamiquement !)

---

...et quel est le titre du fil de discussion ?


bonne soirée
michel

Juste ! celà m'avait échappé (je ne suis pas seul dans ce cas, apparemment).. :oops:
Désolé !

Bonjour lors de la création de la form :

Code:

---

1 2 3 4 5 6 7 8

Set montexte = Opération.Controls.Add("Forms.Label.1") With montexte .Left = 50 .Top = 50 .Width = 100 .Height = 25 .Name = Label14 End With

---

cela va t'il provoqué l'évenement Initialize de l'Userform "Opération"?

bonsoir

la ligne

Code:

---

Set montexte = Opération.Controls.Add("Forms.Label.1")

---

va déclencher l'evenement Initialize du UserForm


bonne soiree
michel

merci pour l'info SilkyRoad


J'ai un souci; en effet je souhaite pouvoir ajouter un label au Userform "Opération" à chaque fois que j'appui sur un bouton or lorsque j'en crée un le label apparait bien mais au coup suivant il n'est plus la

:?
comment faire :?:

bonjour

j'ai du mal à te suivre : ma réponse était basée sur ta macro initiale

Citation:

---

Dim montexte As Control
Set montexte2 = Opération.Controls.Add("Forms.TextBox.1")
montexte.Left = 50
montexte.Top = 50
montexte.Width = 100
montexte.Height = 25
Opération.Show

---

maintenant tu dis ajouter un Label à chaque clic sur un bouton : je présume que tu n'utilises pas la meme procedure , sinon ça va bugguer sur cette ligne

Opération.Show

de plus as tu adapté les autres lignes

Code:

---

1 2 3 4

montexte.Left = 50 montexte.Top = 50 montexte.Width = 100 montexte.Height = 25

---

si tu ne précises pas la position et la dimension des objets dans une variable , tu n'en verra qu'un seul ... car il seront tous superposés ...



bonne soiree
michel