Fichier Menus 10 ne fonctionne pas Résolu/Fermé

Question

Bonjour,
Le fichier Menus2V4.xlsm s'exécute correctement.
Le fichier Menus10.xlsm fonctionne correctement pour la création. Par contre, le tri tableau, Modifier produit, supprimer produit ne répondent pas aux instructions. Sauf erreur ou omission de ma part, le fichier Menus10.xlsm est une copie conforme du fichier Menus2V4.xlsm.
merci de m'apporter votre aide.
Ci-dessous le fichier Menus 10.xlsm
 https://cjoint.com/c/IHmo2Dq5Pb6
Ci-dessous le fichier Menus2V4.xlsm
https://cjoint.com/c/IHmo4QIMch6


BUDGETS

eriiic · Answer

Bonjour,

si c'est une copie conforme et bien refais-en une depuis celui qui fonctionne.
eric

ALS35 · Answer

Bonjour,

Quand on regarde tes deux fichiers, on voit qu'ils sont différents : pas le même nombre de feuilles, noms de feuilles différents, code VBA différents.
Alors quand tu dis "copie conforme", c'est étonnant !

Les dysfonctionnements sont à chercher dans les modifications que tu as faites pour passer de l'un à l'autre ! Quitte à les refaire progressivement depuis le début !

Bon courage

BUDGETS · Answer

Sauf erreur ou omission de ma part, j'ai tenu compte du changement de nom des feuilles. Donc une copie conforme en tenant compte du nom des feuilles. 
Alors merci de me dire où sont mes erreurs dans le code VBA

BUDGETS · Answer

Désolé, mais j'ai refait mon fichier entièrement puis j'ai créé les macros et leur code ligne par ligne en modifiant, le cas échéant, les noms quand cela s'imposait. Pour moi, j'ai tenu compte du changement de nom des cbo, des colonnes, du nom du tableau, etc. Or, malgré cela, mon programme ne fonctionne toujours pas en qui concerne les modifications, les suppressions et le tri tableau. J'ai relu ligne par ligne mon programme avec  celui qui fonctionne que j'ai d'ailleurs imprimé et je n'ai trouvé aucune différence. Alors qu'on m'explique où se trouve (ent) l'erreur (les erreurs).

BUDGETS · Answer

Pour ce qui est de mon fichier initial (Menus2v4, que je n'ai pas construit en totalité puisque quelqu'un y a participé, il fonctionne correctement. À partir de ce fichier initial, j'ai construit le mien (Menus 10) en créant les différentes feuilles, en les nommant, en les remplissant le cas échéant. Puis j'ai écrit les instructions pour les feuilles Accueil et MP, puis les instructions pour les divers modules. À chaque fois, j'ai cliqué sur CompilerVBAProject qui des fois m'a sorti une ou plusieurs erreurs que j'ai corrigées et j'ai sauvegardé (je fais beaucoup de sauvegardes). Puis j'ai imprimé Le code des deux fichiers que j'ai comparé et je maintiens, persiste et signe, je n'ai trouvé aucune différence. Malgré cela, mon fichier ne s'exécute pas normalement en ce qui concerne le tri tableau, la modification (le combo box modifier produit ne se remplit), la suppression (le combo box supprimer produit reste vide). De plus, la feuille Produits ne se remplit pas à partir de la ligne A, colonne 1 (c'est peut-être l'origine des problèmes ci-dessus énoncés). Je suis d'accord pour commenter mon code mais je ne suis pas assez expert pour le faire normalement. Malgré mes demandes faites avec un fichier commenté, personne n'a voulu me confirmer ou infirmer mes commentaires. Donc, sans que quelqu'un le fasse lui-même, je voudrais qu'un membre du site me dise "regarde tel module, examine telle macro de ton fichier, telle ligne et compare-la avec le fichier Menus2V4". Je pense que je ne demande pas la lune, quand même !

BUDGETS · Answer

J'ai regardé la procédure TriTableau : j'ai bien tenu compte du nom  de la feuille (Produits), du nom du tableau (TabRéfProduits).
ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort. _
            SortFields.Clear
     ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort. _
            SortFields.Add Key:=Range("TabRéfMenus[Code produit]"), SortOn:= _
                           xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Message d'erreur : la méthode 'Range' de l'objet '_global' a échoué.

Pour moi, l'erreur devrait plutôt venir de la procédure ValiderSaisieProduit, et particulièrement de cette ligne que je n'ai pas comprise : 
Ici = range("B65000").End(xlup).Row + 1 '.Select

BUDGETS · Answer

Merci ALS35,
Ma méthode est la bonne : faire lire mon programme par quelqu'un car à force de le lire et de le relire , je ne vois pas l'erreur. Toi, tu as vu aussitôt où était le problème. Rectification effectuée, tri tableau s'exécute.
 De plus, la ligne 2 se déplace après la dernière création faite et reste vide, deuxième problème résolu. Maintenant, reste à régler le problème du combo box Modifier produit de la cellule D5 de la feuille Accueil qui ne se remplit pas quelque soit le choix fait dans la liste déroulante de la cellule C5 (j'ai testé après les modifications effectuées pour le tri tableau).

BUDGETS · Answer

Cellule C5 de la feuille Accueil : validation des données : Autoriser : Liste, Source : Nom_Catégorie. Cellule D5 de la feuille Accueil : Selon le choix effectué dans la cellule C5, le combo box de la cellule D5 doit se remplir du contenu de la colonne Code produit  de la feuille Produits à condition que dans la colonne À modifier de la feuille produits il y ait l'expression Oui. Dans ce cas, on choisit le code produit, clic sur Modifier produit de la feuille accueil, on arrive dans la feuille MP : Les modifications ne peuvent concerner que les cellules B8 à B16 de ladite feuille après qu'elle se soit remplie avec les informations de la feuille SP;je modifie ce que je souhaite modifier, je clique sur Valider modification produit, les changement doivent être enregistrés et visibles dans la feuille Produits sans qu'il y ait création d'une ligne.
Demain, enfin j'espère, je te donnerai d'autres explications. Mais pour l'instant, je pense que cela devrait suffire pour que le combo box Modifier produit de la feuille Accueil se remplisse enfin.
Bonnes fin de soirée, nuit et continuation.

BUDGETS · Answer

Regarde le code de la feuille Accueil. J'ai mis des commentaires. Quand je ne sais pas, j'ai mis À expliquer. Impossible de faire le debogage Pas à pas détaillé. Quand ce problème des combo box qui ne se remplissent pas sera réglé, je ferai de nouveaux commentaires pour d'autres instructions. Il semblerait que le pas à pas détaillé ne puisse se faire que sur des modules.
Mon fichier menus 10 :
 https://cjoint.com/c/IHomPdGK5C6
Le fichier modèle (impossible d'effectuer le débogage pas à pas détaillé)
https://cjoint.com/c/IHomQ71DsU6

Dans le fichier menus2V4.xlsm (comme dans le mien), module Modifie (ou Module Modifier), le pas pas détaillé sort une erreur à l'instruction ci-après alors que le programme de Menus2V4 fonctionne bien :
If ActiveSheet.cboModifierRéférentielsMenus.ListIndex = -1 Or ActiveSheet.cboModifierRéférentielsMenus = "Pas de référentiels à modifier" Then Exit Sub
Erreur : propriété ou méthode non gérée par cet objet.

BUDGETS · Answer

J'ai enfin trouvé l'erreur que j'avais commise. Dans le code de la feuille Accueil, il ne fallait pas mentionner Code produit mais Nom Catégorie tant pour la modification que pour la suppression

BUDGETS · Answer

Bonsoir ALS35,

Dans ton message, c'est surtout les commentaires qu tu as modifiés, le code semble identique tant pour le tri tableau que pour la feuille Accueil.
Merci pour ton aide pour ces trois problèmes. Pour ce qui es du code des autres feuilles et des modules, souhaites-tu que je l'écrive moi-même et que je te l'envoie (solution que je préfère car cela me permet d'essayer de comprendre l'instruction) ou tu le confectionnes toi-même et me le fais parvenir ensuite.
Bonne soirée, nuit et continuation. Joyeux 15 août.

pour YG_BE, pour l'instant, je ne souhaite pas clôturer le dossier car je souhaiterais qu'on s'attaque aux commentaires pour les autres feuilles et les modules comme l'a si bien fait ALS35.

BUDGETS · Answer

Bonjour ALS35,

J'ai la version Microsoft office professionnel 2010.
Dans ce programme, Intitulé est utilisé à certains endroits mais je pense que cette colonne peut être supprimée et toutes les instructions faisant référence à Intitulé peuvent être abrogée. Il faudrait faire un essai pour voir ce que donnerait.
"Dans la feuille MP quand on change la catégorie le code produit n'est plus cohérent avec la liste de choix, ne faudrait-il pas effacer alors ce code produit". Je n'ai pas compris. Donnes-moi un exemple.
"Dans la feuille SP y-a--il des valeurs obligatoires à saisir, faut-il remettre à zéro certaines valeurs plutôt que de laisser les dernières utilisées, la date de création est en saisie manuelle peut-elle être automatique". Je pense que oui, on peut remettre les  valeurs à zéro mais à condition que cela n'efface pas les validations des données ni les formules si erreur index. La date de création pourrait être automatique.
"Dans la feuille Accueil pourquoi la combobox Modifier utilise le code produit et la combobox Supprimer utilise l'intitulé, peut-on harmoniser les deux". Tu ne dois pas avoir le bon fichier car chez moi, Modifier produit, supprimer produit ont une validation des données dont la source est Nom_catégorie.
"Dans la feuille Référentiels la gestion de la liste Code produit (utilisée en feuille SP) est plutôt difficile à faire évoluer, les colonnes C et D sont-elles susceptibles de modifications". Les colonnes C et D ne sont pas susceptibles d'être modifiées.
J'espère avoir répondu à tes questions.
Bonnes journée et continuation.

BUDGETS · Answer

À quel endroit vois-tu Code produit pour la modification, Intitulé pour la suppression ? 
Pour la suppression, je crois avoir trouvé : dans le Module supprimer, il y a cette instruction :
Intitulé = shProduits.Range("A" & Ici).
Donc il faudrait remplacer A par E ?
Pour la modification, je n'ai pas trouvé.
Pour la feuille SP, on peut supprimer les mentions déjà affichées. Malheureusement, Clear efface toutes les formules si erreur index or je voudrais les conserver (ainsi que les validations des données). Je n'ai pas trouvé de solution qui répondrait à mes désirs.
Table produits : le tableau est vide : je créé la formule de la colonne Intitulé dans la cellule A2. Je crée un produit : la création s'enregistre dans la feuille produits, à partir de la cellule A2. La cellule A2 vierge reste vierge mais descend d'une ligne  et se positionne en A3 et ainsi de suite. Une utilité : aucune idée.
J'ai fait ceci d'après un modèle qui m'a été fait par une ou plusieurs personnes. Et comme je ne suis pas un expert, et que cela fonctionne ainsi, je l'ai gardé sans savoir si cela était ou pas utile.

BUDGETS · Answer

Ouf, mieux vaut tard que jamais. Je viens de comprendre enfin ce que tu veux dire. Alors ma nouvelle question : où se trouvent les instructions qui font que le combo box modifier produit se remplit du code produit, que le combo box supprimer produit se remplit de l'intitulé ?

BUDGETS · Answer

Une fois, j'ai dit quelque chose à quelqu'un? Je ne sais pas quelle mouche l'a alors piqué il ne m'a jmais répondu à mes messages.
Je vais te redire la même chose en espérant que cela ne vas pas t'offusquer alors que pour moi c'est un compliment sincère. Merci ALS35 pour ton aide, dommage que je ne t'ai pas connu plus tôt, je serai beaucoup plus avancé dans mon travail.
Pour moi, c'est un compliment et non je ne sais quoi de méchant.
Grâce à toi, j'ai compris certaines instructions, entre autres celles que tu mentionnes dans ton message concernant la feuille Accueil.
Nouveau fichier : feuille Accueil : rien à redire. Création, modification, suppression : je verrai cela dimanche. Demain c'est le jour réservé à mes romans.
Merci beaucoup ALS35 pour ton aide très précieuse et ta patience.
Bonnes fin de soirée, nuit et continuation.

BUDGETS · Answer

Bonjour ALS35,

Je viens d'effectuer diverses manipulations sur ton fichier. C'est extraordinaire : tout fonctionne correctement : la création, la modification la suppression (pour cette dernière, je n'ai pas accepté la suppression) et, de plus, ce qui a été un point noir jusqu'ici, la modification donne bien les renseignements enregistrés et, pour les champs modifiables, un changement de code change le nom et l'enregistrement modifie bien les données dans la feuille Produits et ne créée pas enfin une nouvelle ligne.
Merci beaucoup pour ton aide précieuse..

BUDGETS · Answer

Bonsoir ALS35,

Sauf erreur ou omission de ma part, dans le combo box supprimer, le numéro   qui est affiché dans la deuxième colonne correspond au numéro de création (colonne B) et non au numéro de ligne. Je souhaiterais le garder.
Feuille accueil : Tu avais souhaité que la référence qui apparaissait dans le combo box Modifier produit soit de la même nature que celle du combo box Supprimer produit. Or, actuellement, ce n'est pas le cas.

BUDGETS · Answer

J'ai agrandi le combo box supprimer. En effet, le numéro de ligne apparaît. Lui, il peut disparaître, cela ne me dérange pas.
-3 : cela signifie avancer de 3 colonnes ?
-3 : cela signifie reculer de 3 colonnes ?

BUDGETS · Answer

Je parlais de ces deux instructions dans la procédure Accueil. Il me semblait qu'on allait plutôt vers la droite que vers la gauche (à partir de la colonne A). À moins qu'on ne parte de la colonne E.
 
cboModifierProduit.AddItem Ele.Offset(0, 1) Modifier
cboSupprimerProduit.AddItem Ele.Offset(0, -3) Supprimer
BUDGETS

BUDGETS · Answer

Je répète ce que j'ai dit écrit et dit hier : avec toi j'en apprends beaucoup et j'ajouterai même que j'en apprends plus qu'en trois ou quatre ans.
À part tes contributions très intéressantes ici,  dans la vie tu es programmeur, analyste ou les deux à la fois ?
Bonnes fin de soirée, nuit et continuation.

BUDGETS · Answer

Pour DMR et DS, pas de problèmes puisqu'ils n'ont chacun qu'un produit. Par contre, à partir de DWE, le numéro de création reste toujours à 1 alors que dans la formule il y a bien les accolades qui sont sensées d'augmenter le numéro création de 1. Sinon, création (mis à part le numéro création), modification, suppression, afficher tableau, tout est correct et se passe normalement et donne les résultats escomptés. 
https://cjoint.com/c/IHsnkDaePL6

BUDGETS · Answer

J'ai trouvé où était l'erreur dans la formule de la cellule B3 de la feuille shSP.  Comment on fait : je te la dis ou tu me la dis ?

BUDGETS · Answer

Bonjour ALS35,

Dans la formule, au lieu de Code produit, j'ai mis Nom catégorie et transformé B6 en B5 et cela fonctionne.

BUDGETS · Answer

Oui, ta formule fonctionne également. J'ai modifié le code conditionnement en COCO01 et suivants.

BUDGETS · Answer

Je voudrais imprimer les feuilles Accueil, Produits, SP, MP (pas le code). Comment procéder afin que tout sorte. Je crois qu'il faut aller dans outils ou je ne sais quoi du ruban et cocher une case mais je ne souviens pas de la manipulation à faire.

BUDGETS · Answer

Chez toi, prépare la feuille Accueil en vue d'une impression (tu pourras ou pas l'imprimer réellement). En aperçu avant impression et en impression les colonnes A et B n'apparaissent pas et ne s'impriment pas.

BUDGETS · Answer

Merci. Je vais essayer. Très bons résultats, évidemment puisque cela vient de toi.
Voilà, j'ai imprimé le code des feuilles qui en ont un et le code des modules et les feuilles. Demain, je créerai tous mes produits. Quand la feuille produits sera complète, je pourrais passer à la deuxième phase du projet. Merci à toi encore une fois. C'est grâce à toi que la première phase de mon projet va être réalisé entièrement et selon mes souhaits.  Un grand merci encore.

BUDGETS · Answer

Oui. Mais je serai très content, si un problème survenait pour la deuxième phase, que ce soit toi qui réponde et t'occupe des éventuels problèmes. La deuxième phase consistera en  la création  des différents menus avec la feuille produits comme liste de choix et sur le modèle de ce qui vient d'être fait. Donc, normalement, il ne devrait pas avoir de soucis.
 Bonnes soirée, nuit, continuation.

BUDGETS · Answer

Bonjour, 
Je voudrais faire un signalement mais dans le bon sens. Je tiens à remercier ALS35 qui est le seul à avoir compris ce que je voulais, à me donner les instructions adéquates pour mener mon projet à bien, contrairement à certains qui ne trouvaient pas mieux de me dire que depuis que j'étais là, je devrais laisser tomber tout. Il a toujours répondu à mes interrogations, à mes suggestions et ne m'a pas laissé tomber au bout de quelques messages. Que ADS35 soit vénéré comme un bienfaiteur sinon de l'humanité, tout au moins de la bureautique en général, de VBA Excel en particulier. Beaucoup devraient prendre de la graine chez lui. Ils ne seraient pas déçus de leur choix.

BUDGETS · Answer

Bonjour ALS35,

J'espère que vu vas avoir ce message.

Ci-joint le fichier Menus-10 ASL35.xslm qui a fonctionné correctement grâce à toi. Maintenant, pour la deuxième phase, dont le résultat souhaité est visible dans le fichier menus 2019.xlsm, je voudrais tes conseils.
Dans ton fichier, je pense créer des noms définis dans la feuille Produits. Dans la feuille Accueil, créer de nouveaux boutons de commande (Créer Menus, Modifier menus, supprimer menus, Afficher menus,  impression menus ou créer menus journaliers, créer menus midi retraite, créer menus viandes weekend, modifier menus journaliers, modifier menus midi retraite, modifier menus viandes weekend, supprimer menus journaliers, supprimer menus midi retraite, supprimer menus viandes weekend, imprimer menus journaliers, imprimer menus midi retraite, imprimer menus viandes weekend) ou créer une nouvelle feuille accueil qui se nommera Accueil menus avec les boutons de commande avec les noms figurant dans la parenthèse précédente. Les combo box seront Modifier menus et supprimer menus ou modifier menus journaliers, modifier menus midi retraite, modifier menus viandes weekend, impression menus journaliers, impression menus midi retraite, impression menus viandes weekend (pour ces trois impressions, une impression mensuellement détaillée, supprimer menus journaliers, supprimer menus midi retraite, supprimer menus viandes weekend. Pas de suppression d'impression.
Fichier Menus-10 ALS35.xlsm :
https://cjoint.com/c/IHvkBmWYcr6
Fichier Menus 2019.xlsm :
https://cjoint.com/c/IHvkCBDeRL6
Selon ta réponse, je modifierai en conséquence les codes de ton fichier menus-10  ALS35.xlsm ou celui de mon fichier Menus 2019.xlsm. Pour les feuilles quantités, il n'a pas de code mais uniquement des formules. D'avance merci pour tes précieux conseils.

Fichier Menus 10 ne fonctionne pas

30 réponses

Discussions similaires