Gestion userform avec groupe de boutons dynamiques sous vba
Soyez le premier à donner votre avis sur cette source.
Vue 19 101 fois - Téléchargée 2 843 fois
Description
J'ai fait ce code car j'ai eu besoin d'une boite où un utilisateur pouvait ajouter, supprimer, ou renommer des boutons à sa guise dans un userform VBA, tout en conservant ces boutons dans un groupe possédant les propriétés d'un CommandBouton, et en sauvegardant la nouvelle boite pour utilisation ultérieure.
Les sauvegardes des boutons est faite tout simplement ici dans une feuille de calcul Excel (cachée), mais il est évident que l'on peut utiliser tout autre moyen (fichier annexe,registre, attribution d'un nom à un tableau, etc.)
Le nombre est limité dans mon cas à 12 boutons, mais on peut facilement modifier le code pour changer ce nombre.
On peut même faire un userform de dimension automatiquement adaptée au nb de boutons choisi.
Je la lègue aux fidèles de Codes-Sources au cas où ceci pourrait servir à quelqu'un...
Tout commentaire sera bienvenu.
(ceci est une nouvelle version, voir l'explication mise à jour)
Le code est commenté
Les sauvegardes des boutons est faite tout simplement ici dans une feuille de calcul Excel (cachée), mais il est évident que l'on peut utiliser tout autre moyen (fichier annexe,registre, attribution d'un nom à un tableau, etc.)
Le nombre est limité dans mon cas à 12 boutons, mais on peut facilement modifier le code pour changer ce nombre.
On peut même faire un userform de dimension automatiquement adaptée au nb de boutons choisi.
Je la lègue aux fidèles de Codes-Sources au cas où ceci pourrait servir à quelqu'un...
Tout commentaire sera bienvenu.
(ceci est une nouvelle version, voir l'explication mise à jour)
Conclusion :
Le code est commenté
Codes Sources
A voir également
- Gestion userform avec groupe de boutons dynamiques sous vba
- VBA Gestion d'un groupe de boutons ✓ - Forum - Visual Basic
- Gestion groupe de textboxs dynamiques - Codes sources - Visual Basic / VB.NET (Control)
- ASP / ASP.NET : Ajout d'images et de boutons dynamiquement dans une page asp .net - CodeS SourceS - Guide
- Afficher des boutons dynamiquement sur votre form - Codes sources - Visual Basic / VB.NET (Control)
- Gestion de la memoire par partitionnement dynamique - Codes sources - Java (Application)
Commentaires
merci
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!
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.
Je viens de déposer sur le site une source qui devrait te convenir:
Elle s'appelle :
FORM AVEC BOUTONS DYNAMIQUES SOUS VB6.
Salut!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.