Programme Création menus transposable ailleurs ?

Hello,

Juste en passant, ta création menus ne fonctionne pas !

Bonjour Bigoudiii,

Pour la création menu, il ne faut pas cliquer sur création menu mais sur soit menu midi retraite, soit menu journalier ou soit sur menu viande midi weekend. Il faut supprimer création menu de la liste du tableau structuré TabNatureréation (tu peux le faire si tu veux, moi, je viens de le faire chez moi). Mille excuses pour l'absence de cette indication.

Ceci dit, mon problème est de savoir si pour menu retraite, menu journalier et menu viande midi weekend, je peux utiliser :

Dim dic_produits_MMR_légumes As Object, dic_produits_MMR_viandes As Object, dic_produits_MMR_desserts As Object, dic_produits_MJ_légumes As Object
Dim dic_produits_MJ_viandes As Object, dic_produits_MJ_desserts As Object, dic_produits_MVMW_viandes As Object
'génération dictionnaires dic_produits_MMR_légumes, dic_produits_MMR_viandes et dic_produits_MMR_desserts
    Set dic_produits_MMR_légumes = CreateObject("Scripting.Dictionary")
    Set dic_produits_MMR_viandes = CreateObject("Scripting.Dictionary")
    Set dic_produits_MMR_desserts = CreateObject("Scripting.Dictionary")
    Set dic_produits_MJ_légumes = CreateObject("Scripting.dictionary")
    Set dic_produits_MJ_viandes = CreateObject("Scripting.dictionary")
    Set dic_produits_MJ_desserts = CreateObject("Scripting.dictionary")
    Set dic_produits_MVMW_viandes = CreateObject("Scripting.dictionary")

S oui, quelles sont les modifications à apporter et où doivent-elles être insérées (tant pour le code que pour le ou les tableaux structurés concernées) ?

Bonjour Bigoudiii,

Cela semble normal puisque certaines instructions sont absentes. Donc, tu penses ne pas pouvoir répondre à mon problème.