Les listes en cascade ou listes de validation imbriquées deviennent très compliquées à mettre en oeuvre au delà de 2 niveaux.
Voici comment passer à 4 niveaux avec un simple paramétrage.
Les macros étant trop complexes, voir le fichier joint.
Private Sub Workbook_Open() ' à l'ouverture du classeur
prep_menu ' Préparation du menu
cre_menu ' Génération du menu
End Sub
Reprendre les macros ci_dessus en les plaçant au bon endroit, et reprendre complètement le Module Menu_bdd.
Paramétrez votre feuille menu avec soin, Colonne AB, cellules Bleues, la ligne 1 en fonction de vos besoins (Bien laisser une colonne vide avant la colonne WilIndex). La feuille est commentée.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' Interruption click Droit
If Not Intersect(Range(Sheets("Menu").Range("B8").Value), Range(Target.Address)) Is Nothing Then ' Contôle de la plage
Cancel = True ' Abandon de l'action clickdroit d'origine
Call aff_menu ' Affichage du menu
End If
End Sub
Avec à peu pret la même structure que le fichier précédent, voici comment faire des menus dans des UserForms.
Mais la programmation est un peu plus lourde avec un module (gw_menu) et un module de classe (Menu) : voir dans fichier joint.
' Macro de lancement des differents choix des menus
Sub LanceMacro()
USF_menus.Hide
Select Case Application.CommandBars.ActionControl.Tag ' Sur le Nom du menu
' Faire des cases en fonction des titres des menus
Case Else ' Si la procedure n'existe pas : message
MsgBox "Procedure : " & Application.CommandBars.ActionControl.Tag & " Non écrite"
End Select
USF_menus.Show
End Sub
Reprenez Le Module de Classe (Menu) , le Module (Gw_menu), la Macro Code Userform (UserForm_Activate).
Préparez votre UserForm (sans les boutons ils sont créés automatiquement).
Préparez votre feuille Menu et cliquez sur le bouton (tout en adaptant la macro liée)
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
Il est assez compliqué de programmer des menus contextuels. Voici un outil qui vous permettra d'en créer facilement.
Une Macro de création de menus est associé à une feuille nommée Menu.
Voir fichier joint Expliqué
Seul le code à modifié est expliqué ci-dessous
' Macro de lancement des differents choix des menus
Sub LanceMacro()
Select Case Application.CommandBars.ActionControl.Tag ' Sur le Nom du menu
' Faire des cases en fonction des titres des menus
Case Else ' Si la procedure n'existe pas : message
Selection = Application.CommandBars.ActionControl.Caption
End Select
End Sub
Phase 1 : Copier tout le contenu du module1 puis, Préparez votre menu selon la
feuille exemple.
Phase 2 : Modifiez dans Module1 la macro montrée ci-dessus.
Phase 3 : Dans la feuille concernée, Mettre le code que l'on trouve dans le fichier
exemple, Module Worksheet (Essai) en modifiant la plage des cellules
concernées.
