GESTION USERFORM AVEC GROUPE DE BOUTONS DYNAMIQUES SOUS VBA

Signaler
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011
-
Messages postés
1
Date d'inscription
mardi 30 mars 2010
Statut
Membre
Dernière intervention
24 octobre 2012
-
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

Messages postés
1
Date d'inscription
mardi 30 mars 2010
Statut
Membre
Dernière intervention
24 octobre 2012

Merci du partage excellent travaille
Messages postés
8
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
25 mars 2011

super top
merci
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

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!
Messages postés
5
Date d'inscription
dimanche 25 octobre 2009
Statut
Membre
Dernière intervention
16 mai 2010

bonjour,
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.
Afficher les 17 commentaires