Quelle formule pour remplir les cellules H à L incluses ?

Bonjour

J’ai plusieurs autres remarques :

Si tu ajoutes des feuilles dans le fichier, il va falloir différencier les noms des feuilles Accueil (Produits et Menus) et modifier le code VBA en conséquence.

Ta gestion du nom CodesLégumes avec la fonction DECALER est risquée car elle nécessite que la feuille Produits soit triée correctement, sinon elle est fausse, de même si tu ajoutes ou supprimes un produit dans la table Produits

Je suppose que tu veux créer une table des menus sur une autre feuille et pas simplement sur les colonnes H à L de la feuille SM, il serait bien que tu précises les colonnes constituant cette table.

Sur ta feuille SM, quels sont les codes (légumes, viande, dessert) qui dépendent des codes menus CD01, CD02, CD03, que tu as appelé destination dans les feuilles Référentiels et Produits.

En clair, précise le mode opératoire que tu veux mettre en œuvre.

Cordialement

Bonjour,

Sur ta feuille SM, je ne comprends pas l'intérêt des colonnes G à AZ car apparemment tu aurais les mêmes informations dans les colonnes A et B. De plus tu vas chercher les infos dans la feuille Produits à l'aide de listes basées sur la fonction DECALER qui sont difficiles à mettre au point et pas très évolutives.

Je veux bien t'aider et te proposer quelque chose, mais il faut que tu me donnes le mode opératoire exact de ce que tu veux : quelles cellules sont à renseigner, à quoi correspondent des 3 types de menus, quels en sont les dépendances, ...

Cordialement

Merci, je regarde tout cela dans la soirée et je peux peut-être te proposer une première version demain ou après-demain en fin de journée.

Cordialement

Bonjour,

Je te joins une première ébauche de ce que j'ai compris.
J'ai pas mal modifier les procédures, modules et noms pour pouvoir prendre en compte la création des menus
J'ai fortement restructuré les feuilles Accueil Menus et Saisie Menus
Pour le moment, seule la création MMR est en partie implémenté
Regarde tout ça pour voir si ça te convient, navigue dans le code et sur les formules
Dis-moi s'il y a quelque chose que tu ne comprends pas ou qui ne va pas

https://www.cjoint.com/c/IHCkkNouDXT

Bon appétit !!!!

Bonjour,
BD MMR signifie Base de Données Menus Midi Retraite
La feuille Menus est très embryonnaire, je n'ai rien fait sir les numéros de menus
Cordialement

Bonsoir,

Ci-joint une version un peu plus avancée et dans laquelle j'ai pu tenir compte de tes remarques https://www.cjoint.com/c/IHCrf5FCnET

Le tableau Destination se trouve dans la feuille Référentiels car j'ai commencé à éclaté la liste CodeProduit en plusieurs petits tableaux beaucoup plus facile à gérer en créant les noms correspondant, je n'utilise plus les listes avec la fonction DECALER qui sont trop compliquées à modifier
Pour le moment le tableau JoursFériés (automatique selon l'année) me sert à renseigner automatiquement la cellule Observation quand on crée un menu pour un jour férié
La génération des dates dans le tableau Menus MMR est elle aussi automatique en fonction de l'année choisie (sauf erreur résiduelle)

J'ai fait un peu le forcing aujourd'hui car d'ici la mi septembre je ne vais être dispo que 2 jours en début de semaine prochaine alors profite de bien regarder cette version et pourquoi pas de l'améliorer et la compléter.
Dis-moi surtout si cela te convient et si je continue dans ce sens. il y a toujours des améliorations ou des évolutions à apporter.

Cordialement

Bonsoir,
Ci-joint fichier qui devrait fonctionner
https://www.cjoint.com/c/IHCtG5JWHNT
J'ai remplacé Intitulé et n° création qui me semblait inutiles par Code menu et Nom menu qui serviront si on mets tous les menus dans la même BD
Cordialement

Bonsoir,

INDEX(TableProduits#Données;EQUIV(B$12;TableProduits[Code produit];0);EQUIV($A13;TableProduits#En-têtes;0));"-")
La syntaxe de la fonction INDEX est INDEX(Tableau; n° ligne;n° colonne), elle va chercher dans le Tableau la cellule située à l'intersection N° Ligne et N° Colonne, ici TableProduits#Données c'est toutes données de la TableProduits, soit de A2 à O146

EQUIV(B$12;TableProduits[Code produit];0) permet de connaître le N° de ligne du contenu de la cellule B12 dans la colonne Code produit de la table Produits soit de E2 à E146

EQUIV($A13;TableProduits#En-têtes;0) permet de connaître le N° de colonne du contenu de la cellule A13 dans la première ligne de la table produits (en tête) soit de A1 à O1
En imbriquant ces deux EQUIV dans INDEX on atteint la cellule souhaitée

Cela paraît compliqué mais on n'a plus à gérer de Listes avec la fonction DECALER
De plus en mettant correctement les symboles $ dans les cellules B12 et A13, on peut copier cette formule dans les différents emplacements sans avoir à la modifier. Magique, n'est ce pas?

Sur ce je vais me coucher, travaille bien, tu peux peux-être initialiser les feuilles Saisie MJ ou saisie MVWE sur le modèle de Saisie MMR et écrire le code correspondant ou tout autre chose.

A plus tard

Bonjour,

Il s'agit peut-être d'un problème de version d'excel.
Tu peux supprimer l'appel de la fonction TrierTableMenus en fin de procédure ValiderCréationMMR ou essayer de coder la procédure TrierTableMenus comme l'est la procédure TrierTableProduits.
Je n'ai pas le temps d'en faire plus.

Bon courage

Bonjour,

Non, la mise sous forme de tableau, au sens Excel, ne génère pas automatiquement la création de noms définis, hormis celui du tableau. C'est probablement que tu as récupéré les noms déjà existants lors de ta copie.
Poste ton fichier et je ferai une vérification dessus.

Pour Modifier Menus et Supprimer Menus tu souhaites que j'initialise les feuilles, et/ou le code VBA ? De toutes façons il faut savoir quelle info va nous permettre de sélectionner le menu à modifier ou supprimer. moi je pense à la date mais comme il y aura beaucoup de menus (>100) une liste déroulante de me paraît pas adéquate. As-tu des idées ?

Comme je te l'ai dit, j'ai juste deux jours cette semaine et pas trop de temps.

Cordialement

Bonjour BUDGETS,

Ci-joint une proposition pour tout ce qui concerne les menus midi retraite.
J'ai vérifié qu'elle fonctionnait avec Excel 2010.

Teste cette version, il peut encore y avoir des bugs ou des disfonctionnements, et dis-moi ce que tu en penses.
(Tiens d'ailleurs, je me rends compte à l'instant que je n'ai pas traité le oui ou le non dans la colonne "A modifier" )
https://www.cjoint.com/c/IIeo4BrRVuj

Finalement j'ai encore un peu de dispo cette semaine, mais pas du tout la semaine prochaine.

Cordialement

Bonjour BUDGETS,

Désolé pour le manque d'infos mais je voulais te faire parvenir le fichier au plus vite.
Ci-joint quelques explications ainsi que le fichier corrigé des quelques erreurs indiquées.
https://www.cjoint.com/c/IIfjQiub5RL
https://www.cjoint.com/c/IIfjSbIAo2L

Je n'ai pas trop compris ce que tu voulais faire sur la feuille Produits. Tes produits sont déjà créés, alors restructurer les feuilles Accueil, Saisie et Modification produits risque de d'entraîner dans pas mal de soucis.
Mais tout est possible avec du temps !

Cordialement

Bonjour,
OK, alors après le 15.
Bon courage

Bonjour BUDGETS,

Dans ton cas l'ordre d'écriture des procédures n'a pas vraiment d'importance, tout dépend de la fonctionnalité que tu veux implémenter (et tester !).
Les procédures dans les modules sont celles qui seront déclenchées par un bouton d'action (exemple validation création menu) tandis que celles des feuilles sont les procédures évènementielles qui seront déclenchées par un évènement (exemple le changement de valeur d'une cellule, le choix dans une liste).

Par contre il vaut mieux que tu nommes proprement tes feuilles avant de coder, ce sera plus facile.

Et surtout, teste ton code dès que tu as écrit une procédure partiellement ou totalement, sinon la mise au point sera plus difficile.

Cordialement

Bonjour BUDGETS,

C'est un début !
Quelques remarques :
Tu as des erreurs de compil. (shSaisieVWE au lieu de shSaisieMVWE)
Tu as saisi ta liste des jours (1 à 31) sous forme de texte, c'est embêtant, il vaudrait mieux le mettre sous forme de nombre et l'afficher avec un format personnalisé 00
Dans la feuille Menus VWE tu as saisi les dates apparemment à la main, c'est fastidieux, on peut mettre des formules pour les générer automatiquement
Attention dans la procédure Créer VWE les cellules de date à tester sont dans les colonnes O, P Q et non plus C, D, E
Dans la feuille BD Menus supprime les lignes de l'année 2020 si tu veux faire les tests sur l'année 2019 (mélange d'années pas prévu)
Et peut-être d'autres choses après ...

Surtout bien mettre au point la création VWE avant de passer à la suite, suppression, modification, ...

Si tu veux je peux te faire ces modifs et te renvoyer ton fichier

Cordialement

Bonjour,

Voilà les modifs que je t'ai indiquées.
https://www.cjoint.com/c/IIrjsGoMny6

Je te laisse faire la suite, ...
N'hésite-pas si besoin.

Cordialement

Bonsoir,

Liste des jours : j'ai juste transformé en format nombre et mis un format personnalisé uniquement sur la feuille Accueil Menus car c'est là qu'ils sont utilisés

ModuleMR_GénérerMenusMMR : je n'avais pas vu tes commentaires, la syntaxe de la collections Cells est Cells (n° ligne, n° colonne). Donc dans la procédure I représente la ligne courante dans la feuille BD menus et J représente la ligne courante dans la feuille menus MMR, en gros pour chaque ligne (colonne date) de la feuille BD Menus on boucle sur toutes les lignes (colonne date) de la feuille Menus MMR jusqu'à trouver une égalité de dates. IciBis représente alorsla ligne de la feuille Menus MMR dans laquelle on va insérer les éléments.

Ces variables sont de type Long entier allant jusqu'à 2 147 483 648 pour pouvoir atteindre toutes les lignes de la feuille (1 048 576), mais un Integer entier allant jusqu'à 32 767 aurait largement suffit.

On utilise très souvent les indices I, J, K dans les tableaux ou les boucles comme en mathématique mais n’importe quel autre nom ferait aussi bien l'affaire, c'est plus une convention.

Cordialement

Bonjour BUDGETS,

Tu as raison d'insister, j'ai fait vite et je n'ai mis ce format personnalisé que sur les cellules O7, 11 et 15 de Accueil Menus !
Il faut prendre le format personnalisé et dans Type mettre 00 pour les cellules C7, 11 et 15 et I7, 11 et 15.
Pour que ce format soit appliqué dans la liste déroulante il faut également le mettre dans le tableau Liste jours.
00 signifie afficher les nombres avec deux chiffres minimum et afficher un zéro sur les chiffres non significatifs, en clair 1 est affiché 01, mais c'est réellement un nombre et non pas du texte?

Pour accéder directement à la fenêtre Format Nombre tu peux utiliser la petite flèche en bas à droite du groupe Nombre de l'onglet Accueil (et qui s'appelle Lanceur de boites de dialogues)

Cordialement