Utilisation de Controls.add en VBA6 ou création de collection. Résolu

Question

Bonjour &#224; tous,

En fait j'ai deux probl&#233;mes.
1 - Je ne parviens plus &#224; cr&#233;er de collection de bouton depuis que je suis pass&#233; en Office 2003 ! ? . Glups. :-(

2 - J'ai voulu contourner le probl&#233;me en g&#233;n&#233;rant les boutons lors de l'initialisation de la UserForm.
 Erreur : Cha&#238;ne de classe incorrecte



-----------------------------------------------------------------------------
Private Sub UserForm_Initialize()


    Dim Essai As TextBox
    Set Essai = Controls.Add("VB.textbox", "txtProd ", "ChoixCourbes")


' Remarque : " ChoixCourbes" est le nom de ma UserForm que je veux remplir.
'                  J'ai essay&#233; avec ou sans les " avec la m&#234;me erreur
'                  Avec UserForm, avec ... lol
' en fait, j'ai essay&#233; pratiquement tout les bouts de codes que j'ai pu trouver sur les 
' forums avec le m&#234;me code erreur.


' Erreur : Cha&#238;ne de classe incorrecte


End Sub
-----------------------------------------------------------------------------

Virtuellement v&#244;tre !!! ;-))

jpleroisse · Accepted Answer

Bonjour,
Essaye de tirer partis de ce code.

Dim Mycmd As Control
Private Sub CommandButton1_Click()
Set Mycmd = Controls.Add("Forms.CommandButton.1")
    Mycmd.Left = 18
    Mycmd.Top = 150
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "C&#146;est amusant." & Mycmd.Name
End Sub

cs_CanisLupus · Answer

Salut, et avec :

  Dim essai As TextBox
  Set essai = ChoixCourbes.Controls.Add("vb.textbox", "txtProd")
  'essai.Width = ....
  'essai.Height = ....
  'essai.Top = ....
  'essai.Left = ....
  'essai.Text = "...."
  essai.Visible = True

Ce nest pas mieux ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_Celeborn · Answer

Bonjour,

436964  jpleroisse Merci mille fois, &#231;a marche, m&#234;me si je ne sais pas encore pourquoi il faut rajouter le ".1" :-)

=169075 CanisLupus Merci &#224; toi, mais j'avais &#233;crit comme &#231;a au d&#233;part, et &#231;a ne fonctionne pas non plus, mon code n'allait pas plus loin que le "Set" puisque c'est la cr&#233;ation du control qui ne passait pas, mais merci de ta collaboration.

Virtuellement v&#244;tre !!! ;-))

cs_Celeborn · Answer

Bonjour, 

   Au fait, je ne sais tout de m&#234;me pas pourquoi je n'ai plus les collections de controls dans VB6 sous Excel 2003.
LoL 

Virtuellement v&#244;tre !!! ;-))

ouassou81 · Answer

Bonjour,

et pour un checkbox on fait comment. vb.checkbox ne marche pas chez moi avec VB6 ?
merci

holocost · Answer

dim Checkbox1 as checkbox
Set essai = Controls.Add("vb.checkbox", "Checkbox1", form1)
'c'est le 1ier poste dans ce forum :)

Utilisation de Controls.add en VBA6 ou création de collection.

6 réponses

Discussions similaires