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

Bonjour à tous,

En fait j'ai deux problémes.
1 - Je ne parviens plus à créer de collection de bouton depuis que je suis passé en Office 2003 ! ? . Glups. :-(

2 - J'ai voulu contourner le probléme en générant les boutons lors de l'initialisation de la UserForm.
 Erreur : Chaî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é avec ou sans les " avec la même erreur
'                  Avec UserForm, avec ... lol
' en fait, j'ai essayé pratiquement tout les bouts de codes que j'ai pu trouver sur les
' forums avec le même code erreur.

' Erreur : Chaîne de classe incorrecte

End Sub
-----------------------------------------------------------------------------

Virtuellement vôtre !!! ;-))

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

Bonjour,

jpleroisse Merci mille fois, ça marche, même si je ne sais pas encore pourquoi il faut rajouter le ".1" :-)

CanisLupus Merci à toi, mais j'avais écrit comme ça au départ, et ça ne fonctionne pas non plus, mon code n'allait pas plus loin que le "Set" puisque c'est la création du control qui ne passait pas, mais merci de ta collaboration.

Virtuellement vôtre !!! ;-))

Bonjour, 

   Au fait, je ne sais tout de même pas pourquoi je n'ai plus les collections de controls dans VB6 sous Excel 2003.
LoL

Virtuellement vôtre !!! ;-))

Bonjour,

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

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