Dim gw_menu(0 To 20) As New Menu ' Table préparée pour 20 menus, 5 actuellement dans l'exemple
' La procedure activate est utilisée à la place d'initialize parceque initialize est lancée au moment du Load
' Les labels Bouton n'etant pas créés, la procedure se planterait
' Le bouton sur la feuille charge l'usf, et place les boutons, ensuite montre l'USF
' Crée la table pour traitement module de classe
Private Sub UserForm_Activate()
Dim h As Byte
For h = 1 To Sheets("Menu").Range("A65536").End(xlUp).Row - 1
Set gw_menu(h).gw_menus = Controls("Menu_" & h)
Next h
End Sub