GESTION USERFORM AVEC GROUPE DE BOUTONS DYNAMIQUES SOUS VBA
mirmoleboss
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011
-
12 févr. 2007 à 08:15
cs_okette Messages postés 1 Date d'inscription mardi 30 mars 2010 Statut Membre Dernière intervention 24 octobre 2012 - 24 oct. 2012 à 09:23
cs_okette Messages postés 1 Date d'inscription mardi 30 mars 2010 Statut Membre Dernière intervention 24 octobre 2012 - 24 oct. 2012 à 09:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/41276-gestion-userform-avec-groupe-de-boutons-dynamiques-sous-vba
https://codes-sources.commentcamarche.net/source/41276-gestion-userform-avec-groupe-de-boutons-dynamiques-sous-vba
24 oct. 2012 à 09:23
23 mars 2011 à 11:23
merci
12 nov. 2009 à 00:37
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!
11 nov. 2009 à 22:48
il est super ton code, il m'a beaucoup aidé.
dis moi! est il possible de créer les bouton sur un multipage et non sur l'userform direct? merci de me répondre.
7 oct. 2008 à 18:32
Je viens de déposer sur le site une source qui devrait te convenir:
Elle s'appelle :
FORM AVEC BOUTONS DYNAMIQUES SOUS VB6.
Salut!
2 oct. 2008 à 16:35
Merci d'abord pour ta bonne appréciation: çà fait tj plaisir!
En ce qui concerne ta demande, je te signale que j'ai déjà déposé une source de ce genre sous VB6, il s'agit du code "CRÉATION DE CONTRÔLES DYNAMIQUE" du 19/05/07.
Tu peux t'en inspirer pour tes besoins, sachant que pour sauvegarder tes paramètres (noms contrôles, nombre, taille, etc), il faudra utiliser un fichier annexe car VB6 ne possède pas de feuilles de calcul, bien pratiques pour ceci.
En tout cas, çà te fera un bon exercice pour progresser en VB6...
Bon courage.
Cordialement
2 oct. 2008 à 15:34
11 juil. 2008 à 19:46
Je ne comprends pas ton commentaire...
Il suffit d'avoir besoin d'une boite avec un nb de boutons variable et d'adapter la procédure
Private Sub GroupeBtn_Click()
dans le code du module de classe.
21 juin 2008 à 12:47
Comment le faire fonctionner dans un programme?
6 juin 2007 à 07:36
2 juin 2007 à 22:46
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.
1 juin 2007 à 14:52
30 mai 2007 à 19:35
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
18 mai 2007 à 23:55
L'utilisation des objets range est uniquement pour la mémorisation des boutons et de leurs propriétés (nb,dimension). J'ai mentionné dans la description du code ci-dessus qu'on pouvait utiliser d'autres moyens (registre, fichiers, tableaux nommés,etc).
Au sujet de ton bout de code, il faut utiliser
Set Txtbox1 = Form.Controls.Add("forms.textbox.1")
car Designer n'existe pas sous VBA.
J'espère que celà te servira.
16 mai 2007 à 15:27
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
26 mars 2007 à 10:00
Voila bonne journée ;-)
12 févr. 2007 à 08:15