Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Utilisation de Controls.add en VBA6 ou création de collection. [ Archives Visual Basic / VBA ] (Celeborn)

mercredi 14 septembre 2005 à 17:29:29 | Utilisation de Controls.add en VBA6 ou création de collection.

Celeborn

Membre Club

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


mercredi 14 septembre 2005 à 18:07:37 | Re : Utilisation de Controls.add en VBA6 ou création de collection.

jpleroisse

Réponse acceptée !
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’est amusant." & Mycmd.Name
End Sub

mercredi 14 septembre 2005 à 19:20:46 | Re : Utilisation de Controls.add en VBA6 ou création de collection.

CanisLupus

Membre Club Administrateur CodeS-SourceS
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  !?

jeudi 15 septembre 2005 à 09:28:02 | Re : Utilisation de Controls.add en VBA6 ou création de collection.

Celeborn

Membre Club
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 !!! ;-))

jeudi 15 septembre 2005 à 09:56:39 | Re : Utilisation de Controls.add en VBA6 ou création de collection.

Celeborn

Membre Club
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 !!! ;-))



Cette discussion est classé dans : erreur, add, controls, userform, collection


Répondre à ce message

Sujets en rapport avec ce message

probleme avec COLLECTION [ par klini ] Salut tlmJ ai decidement du mal a me remttre a VB...Bref je suis donc sous VB6 et je n arrive pas a faire fonctionner les 4 lignes de code suivante... vba.collection [ par billy21121 ] Bonjour,je voudrais dans une application en vb.net 2005 utiliser un objet de type vba.collection mais dès que je fais un new dessus pour l'instancierà Manipuler les collections Controls et Forms [ par MicOriolis ] Boujour amis developpeurs !J'ai un peu de mal a comprendre comment fonctionne les collections Forms et Controls. Malheureusement j'ai besoin de deux p impossibilite d'ouvrir un userform [ par ecthug ] bonjourje veux ouvrir un userform sur exel 2007 mais en lancant la macro j'ai toujours l'erreur "incompatibilité de type" erreur 13.mon code bloque su Problème de type! [ par aurelien2723 ] Bonjour,j'ai une erreur folle en VB6.J'ai une collection de label   (appelé "carreau")Je veux passer un des labels de ma collection à une fonction , q Pb d'ouverture d'un UserForm [ par ecthug ] Bonjour j'ai un probleme à l'ouverture d'un userForm avec VBA 'utilisant office 2007 pro'en utilisant   Userform1.show  pour afficher mon interface j' erreur de compilation [ par eastpeople ] Bonjour, sur un de mes codes, j'ai une erreur de compilation -->  qualificateur  incorrect alors que  j'appelle juste un userform  par MODIFICATION.Sh Collection de Recordset [ par MasterH ] Je veux faire une collection de recordset pour faire afficher les champs de diverse requetes. J'ai fait ça:Public Tables As New Collection...Tables.Ad Controls dans les menu [ par JulieChoui ] Bonjour,Voiçi mon code :Set menu_selection = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup) menu_selection.Caption = " Re : Controls.Add( [ par Arnaud01 ] Pour ta 1ere question :C'est pas compliqué, sur l'évènement clic du textbox, tu mets une chaîne vide dans le texte :TextBox1.text=""Tu peux rajouter u


Nos sponsors

Sondage...

CalendriCode

Téléchargements



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,452 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.