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

**DonKnacki** · 14/03/2006, 10h39

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?

**Megaxel** · 14/03/2006, 11h33

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.

**DonKnacki** · 14/03/2006, 11h42

tres bien merci

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

**Megaxel** · 14/03/2006, 11h46

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

**DonKnacki** · 14/03/2006, 11h58

: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 ?

**Megaxel** · 14/03/2006, 12h24

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...

**DonKnacki** · 14/03/2006, 12h40

non tu as bien compris

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

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

**DonKnacki** · 15/03/2006, 10h40

alors voila j'ai presque réussi en fesant

Code :

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

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

**SilkyRoad** · 15/03/2006, 10h43

bonjour

tu peux essayer

Code :

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

montexte.Object.Caption="test"

bonne journée
michel[/code]

**DonKnacki** · 15/03/2006, 10h46

exact michel
merci

encore une question en fesant

Code :

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

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?

**SilkyRoad** · 15/03/2006, 11h43

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 :

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

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

bonne journée
michel

**ThierryAIM** · 15/03/2006, 11h50

Code :

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

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

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

**SilkyRoad** · 15/03/2006, 20h34

bonsoir Thierry

ta solution fonctionne tres bien

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

Code :

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

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 :

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

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

"Label44" est bien renvoyé

bonne soiree
michel

**jmfmarques** · 15/03/2006, 21h22

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 !)

**SilkyRoad** · 15/03/2006, 21h54

bonsoir

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

**jmfmarques** · 15/03/2006, 21h58

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

Désolé !

**DonKnacki** · 20/03/2006, 16h54

Bonjour lors de la création de la form :

Code :

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

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"?

**SilkyRoad** · 20/03/2006, 22h08

bonsoir

la ligne

Code :

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

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

va déclencher l'evenement Initialize du UserForm

bonne soiree
michel

**DonKnacki** · 21/03/2006, 11h02

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

:

**SilkyRoad** · 21/03/2006, 18h24

bonjour

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

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 :

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

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager