GESTION USERFORM AVEC GROUPE DE BOUTONS DYNAMIQUES SOUS VBA

Commentaire de mirmoleboss le 12/02/2007 08:15:57

le programme en lui meme est bien mais il peu claire dans la partie code

Commentaire de jullouyot_46 le 16/05/2007 15:27:33

Joli !

le programme fait, à priori ce dont j'ai besoin...
je cherche à créer des controles (textbox et label) sur un form, à partir d'une liste (colonne d'une feuille de mon classeur Excel).

ex: la colone 1 de la feuille CONTROLES a 2 cellules: type, commande.
en lançant le form, il doit comporter 2 label ("type" et "commande") avec en face un textbox.

********

Ce que je ne comprend pas dans ce code, c'est l'utilisation d'objets range.
Est ce qu'on ne peut pas ajouter directement un controle, et en spécifier les caractéristiques ? (position, nom, caption, ...)

J'ai trouvé ce bout de code par ailleurs, que je ne parviens pas à exploiter:

Dim Txtbox1 as Object
Set TxtBox1 = Form.Designer.Controls.Add("forms.textbox.1" )
With TxtBox1
  .Left = 60
  .Top = 20
End With

Commentaire de jeannicolas1 le 30/05/2007 19:35:04

Salut,

Ton code est vraiment super, je suis débutant en VBA est je cherche à créer une boite de dialogue avec un nombre de textbox variable.

Le nombre de textbox est défini suivant deux variables propres à mon problème:

Le nombre de pièces par échantillon & le nombre d'échantillons.

Mais j'aimerais aussi, pouvoir les recopier sur une page Excel, pour pouvoir travailler les valeurs.

Pour Exemple:

            | Pièce N°1| Pièce N°2| Pièce N°3
            | -------------------------------
Echant N°1  |    23    |     21   |    22
---------------------------------------------
Echant N°2  |    19    |     20   |    23
---------------------------------------------
Echant N°3  |    21    |     18   |    22
---------------------------------------------

J'aimerais pouvoir faire ce tableau qui sera variable dans un
userform avec des barres de défilements.

J'espère que ma demande est compréhensible, et merci d'avance pour ta réponse que elle m'est très précieuse.

Merci encors

Commentaire de mimiZanzan le 02/06/2007 22:46:35

jeannicolas1,
je vais préparer un code qui devrait répondre à ton besoin.
Je le mettrai bientôt sur le site Code Sources VB, au cas où çà intéresse d'autres personnes.
Surveille son arrivée...
A bientôt.

Commentaire de ericyakam2008 le 21/06/2008 12:47:18

BRAVO pour ton aplicatif, je l'aime. Mais, subsiste un doute!
Comment le faire fonctionner dans un programme?

Commentaire de boboda le 02/10/2008 15:34:46

C'est très bon comme code, je te donne 9/10. Mais Est-ce que tu pourrai le retranscrir en VB, je suis débutant en VB en je suis pas familier avec VBA.

Commentaire de mimiZanzan le 07/10/2008 18:32:10

Boboda,
Je viens de déposer sur le site une source qui devrait te convenir:
Elle s'appelle :
FORM AVEC BOUTONS DYNAMIQUES SOUS VB6.

Salut!

Commentaire de mimiZanzan le 12/11/2009 00:37:31

Salut FOZAORANA,
Pour un multipage, il faut modifier la partie de code concernant la construction des boutons dans la feuille frmBtn:
remplacer:
Set m_Btn = Me.Controls.Add("Forms.CommandButton.1", , True)
par:
Set m_Btn = MultiPage1.Pages(0).Add("Forms.CommandButton.1", , True)
pour la 1ère feuille par exemple, et si ton contrôle se nomme MultiPage1.
Ca devrait marcher, mais n'oublie de redimensionner aussi le contrôle MultiPage1 en même temps que la form.
Il y a sans doute qq autres adaptations que je te laisse le soin de faire...
Il faudra aussi créer un groupe de bouton par page du contrôle multipage (déclaration Dim Bouton0() As New GrBtn pour la page indice 0 par ex).
Bonne chance!