[RESOLU]Commandbutton dynamique

[Bearn 64]

Bonjour le Forum,

Je demande de l'aide pour créer des commandbutton dynamique dans Multipage qui sont les valeurs de données de la Feuil1.

CATEGORIE BBBBB nom de la Page, PRODUITS et PRODUIT1 nom du bouton et valeur du caption. Disposer les boutons sur la page1 etc....


Le tout pour réaliser une application sur écran tactile.

Merci de toute l'aide que vous pourrez m'apporter.

 

[Regueiro]

Bonsoir le Forum, Bearn 64
Bonne Année a Tous
1er Code :

Private Sub UserForm_Initialize()
 Set f = Sheets("BD")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
  If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
  Next i
 ' MsgBox Me.MultiPage1.Pages(2).Caption
  i = 0
  For Each c In mondico.keys
  Me.MultiPage1.Pages(i).Caption = c
  i = i + 1
  Next c
 
 End Sub

Pour le Reste on verra demain
Bonne Nuit

 

[Bearn 64]

Bonjour le Forum, Regueiro
Bonne Année a Tous

Code appliquer avec succès.
Projet avance

pour mettre les nom des produits sur les boutons ???

Merci de votre aide

A++

 

[Bearn 64]

Ma configuration Ecran 10,1',

Définition : 1368 x 768

Taille Userform 545,25 x 1030

A++