Peut on ajouter un textbox sur un formulaire par c

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #2

Bonjour

Voici la ligne de code à construire et à adapter pour répondre à ta question

ActiveSheet.OLEObjects.Add(ClassType:='Forms.TextBox.1', Link:=False, DisplayAsIcon:=False, Left:=180, Top:=130, Width:=110, Height:=25).Select

tu renseignes les valeurs pour la positionner et déterminer sa taille.
Bon courage

Message édité par: Jacques87, à: 14/03/2006 10:49

 

Vote positif 0 Vote négatif

A

Angelo

Guest

• 14 Mars 2006

• #3

et comment lui dire sur quel formulaire il doit se mettre car la il se met au milieu du tableau

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #4

Re

comme je ne savais pas où tu désirais le 'coller' j'ai choisis la feuille (ActiveSheet)
Donc tu dois remplacer AvtiveSheet par par exemple UerForm1 ou Mon_Formulaire suivant le nom de ce formulaire

A+

 

Vote positif 0 Vote négatif

A

Angelo

Guest

• 14 Mars 2006

• #5

Lorsque je met le nom de mon formulaire

Code:

Opération.OLEObjects.Add(ClassType:='Forms.TextBox.1', Link:=False, DisplayAsIcon:=False, Left:=180, Top:=130, Width:=110, Height:=25).Select

cela me fait une erreur : membre de methode ou de données introuvable en me surlignant le OLEObjects :S

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #6

Re

en effet Angelo, je n'ai pas réfléchi plus loin que le bout de mon nez
Cette méthode ajoute des controls sur une feuille mais pas dans un userform (formulaire).

Je dois quitter (cause repas)
Je regarderai en début d'après midi et si tu n'as pas de réponse je te recontacterai

Bon appétit

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #7

Angelo,

Après un petit repas rapide, voici la solution à ton problème

Dim montexte As Control
Set montexte = UserForm1.Controls.Add('Forms.TextBox.1')
montexte.Left = 50
montexte.Top = 50
montexte.Width = 100
montexte.Height = 25

attention, tu devras adapter ce code en particulier en ce qui concerne le nom du formulaire

Bon courage

 

Vote positif 0 Vote négatif

A

Angelo

Guest

• 14 Mars 2006

• #8

apres mettre battu vaillaimant contre mon code j'ai hélas perdu :angry:


En effet il m'indique chaine de classe incorrect pour la ligne Set montexte = UserForm1.Controls.Add('Forms.TextBox.1')

 

Vote positif 0 Vote négatif

A

Angelo

Guest

• 14 Mars 2006

• #9

j'ai trouvé ca sur le net mais je n'arrive pas à l'utiliser

http://vb.developpez.com/faq/?page=Form#ctl_dynamique

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #10

Angelo

voici un fichier exemple

je vais regarder ce que tu as trouvé et te recontacterai [file name=ajouter.zip size=11545]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajouter.zip[/file]

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #11

Angelo

Ce que tu as trouvé est identique à ce que je t'ai proposé

A ta disposition

 

Vote positif 0 Vote négatif

A

Angelo7891

XLDnaute Junior

• 15 Mars 2006

• #12

j'ai réussi à faire des textbox ainsi que des label

mais j'ai un souci car il faudrait que j'ai le nom de ces nouvelles form.

j'ai voulu l'impossé en mettant

Code:

montexte.Object.Name = Label44

ou

Code:

montexte.Object.Name = 'Label44'

j'hésitais pour les guillemets mais dans les 2 cas meme résultats :
propriété ou méthode non géré par l'objet

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 15 Mars 2006

• #13

Bonjour Angelo

Tu as intérêt à leur donner leur nom au moment de la création

Dim montexte As Control
Set montexte = UserForm1.Controls.Add('Forms.TextBox.1')
montexte.Left = 50
montexte.Top = 50
montexte.Width = 100
montexte.Height = 25
montexte.Name = 'toto'

PS: je t'ai envoyé un message perso dans ta BAL

Bonne journée

 

Vote positif 0 Vote négatif