Variable objet ou variable de bloc with non définie Résolu/Fermé

Question

Bonjour à toutes et à tous,

Dans le fichier TESTS CCM THEV.xlsm, tout ce qui concerne dic_produits était prévu pour la création des menus midi retraite, des menus journaliers et des menus viande midi weekend.

Dans le fichier MENUSV2;XLLSM, je tente vainement d'employer également dic_produits pour la création des articles menus. Actuellement, j'ai le message d'erreur Variable objet ou variable de bloc with non définie. Peut-être le nom des dic_produits est-il incorrect ou des instructions sont absentes.

D'avance merci à la personne qui pourra m'apporter la solution à ce problème.

Fichier TESTS CCM THEV.xlsm  :

https://cjoint.com/c/MDrraxKedbp

Fichier MENUSV2.xlsm :

https://cjoint.com/c/MDrrbHPvmop

Bonnes soirée, nuit et continuation à toutes et à tous. Prenez bien soin de vous.

bigoudiii · Accepted Answer

Hello,

Pour info, j'ai une solution simple de quelques lignes sans dictionnaire à ton pb d'articles menus, mais comme tu as posé la même question sur un autre forum : https://forum.excel-pratique.com/excel/variable-objet-ou-variable-de-bloc-with-non-definie-183341, et que tu y as entrepris une formation sur les dictionnaires qui ne semble pas avoir encore abouti, j'attends de voir ce que tu vas produire pour comparer les deux codes.

Explique nous au moins pourquoi utiliser des dictionnaires et ce que tu en attends, alors que tu maîtrise mal (c'est un euphémisme) les fonctionnalités de base du vba

@ f894009 : salut ami, quand cessera-t-on de tout lui dire et de tout lui faire ?

f894009 · Answer

Bonjour,

Erreur de doigt

Test ccm tev:

Option Explicit
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

Vous dans Menusv2:

Option Explicit
Dim dic_produits_MMR_légumes As Object, dic_produits_MMR_viandes As Object, dic_produits_DMR_dessert As Object, dic_produits_MJ_légumes As Object, dic_produits_MJ_Viandes As Object, _

BUDGETS · Answer

Bonjour f894009,

Je suppose que tu as voulu mettre Erreur de dim au lieu de doigt. J'avais essayé avec la même chose que dans le programme TESTS CCM THEV, mais j'avais le même problème.

f894009 · Answer

Re,

C'est bon ou pas?

BUDGETS · Answer

Je n'ai pas encore modifié. Je vais le faire cette après-midi. Je te tiendrai au courant.

BUDGETS · Answer

j'ai modifié mais le problème persiste toujours. Dans la procédure cbNomArticlesMenus_Change, la première instruction se colore en jaune et, si je passe la souris dessus, j'ai Me.tbCodeArticlesMenus = ""

Me.tbCodeArticlesMenus = dic_produits_DMR(cbNomArticlesMenus.Value)

f894009 · Answer

Re,

Vous n'avez rie modifie, c'est

Option Explicit
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
Me.tbCodeArticlesMenus = dic_produits_MMR(cbNomArticlesMenus.Value)

BUDGETS · Answer

Je vais essayer avec ces indications.

BUDGETS · Answer

Bonjour f894009,

J'ai été occupé, c'est la raison pour laquelle je n'ai pas pu vous répondre plus tôt. J'espère avoir apporté les modifications que vous avez souhaitées mais le problème persiste toujours. Dans le cas contraire, merci de me présenter ce que les dim devraient être sinon pour tout, tout au moins pour DMR, à charge pour moi de compléter avec les autres. Si nécessaire, prévoir également les procédures qui devraient être modifiées pour DMR ou pour dessert midi retraite, je continuerai pour les autres. D'avance merci.

https://cjoint.com/c/MDtpwoiqadp

BUDGETS · Answer

Bonjour f894009,

Avez-vous pu trouver une (ou la) solution à mon problème ? D'avance merci pour votre réponse.

f894009 · Answer

Bonjour,

Vous n'avez pas de code pour remplir vos dictionnaires.

Il y a une procedure qui pourait en rempli un, mais elle n'est jamais appeler: Sub Générationdic_produits()

Dans le ficher Budgets_TESTS-CCM-THEV, ily a du code pour remplir les dico.

Dans votre fichier, il faudrait ajouter du code pour faire la meme chose.

BUDGETS · Answer

Bonjour f894009,

Dans le ficher Budgets_TESTS-CCM-THEV, il y a du code pour remplir les dico

Il s'agit d'un code comme celui-ci :

Va permettre d'afficher la liste des desserts menu midi retraite.
    Me.tbCodeDessert = dic_produits_MMR_desserts(cbNomDessert.Value)

Cela va permettre de supprimer l'erreur de variable objet ou variable de bloc non définie ? Peut-être sera-t-il nécessaire, éventuellement, de modifier le nom des tb et cb ?

Dans le fichier MENUSV2.xlsm, il y a la procédure cbNomArticlesMenus dans laquelle il y a du code faisant référence à dico. Peut-être serait-il mieux de modifier le formulaire afin de supprimer cbNomArticlesmenus pour le remplacer  respectivement par cbNomArticlesDesserts, cbNomArticleslégumes et cbNomArticleslégumes et de même pour le tb.

bigoudiii · Answer

Hello,

@ f894009, comment fais-tu pour ne pas t'énerver ?

@ BUDGETS

En complément du beau travail de f894009, 3 autres propositions pour le choix de tes articles

la 1 et la 3 basées sur les tables articles séparées et judicieusement renommées, la 1 à la mode de ton fichier modèle MENUS 2023, (que tu aurais quand même pu reprendre), la 3 basée sur les colonnes des combobox, on a eu la même idée avec f894009

la solution 2 basée sur la table globale TabProduits et avec un dictionnaire

Avec la proposition de f894009 tu choisiras celle que tu comprends le mieux, ou celle qui te dépasse le moins !

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

f894009 · Answer

@ f894009, comment fais-tu pour ne pas t'énerver ?

Suis peut-etre pas humain, mais une AI...

on a eu la même idée avec f894009

He oui, perso j'utilise les dico seulement si c'est la meilleur solution. Dans son cas pas vraiment utile, y a pas de recherche sans doublon seulement des listes en partant d'un critere

BUDGETS · Answer

Bonsoir Bigoudiii et f894009,

Pourquoi tant de messages, que je juge inutiles, pour arriver à un message avec trois propositions dont la 2 (le dico) ne fait plus apparaître le message non souhaité.

Merci Bigoudiii. Je n'ai pas encore testé les propositions 1 et 3 (pour l'instant, elles ne me semblent pas utiles). Maintenant, je vais essayer de remplir le reste.

Tests effectués : Desserts soir et viandes midi retraite, viandes midi weekend et viandes soirs : cbNomNatureArticlesMenus reste vide.

https://cjoint.com/c/MEfr5PUp0Up

BUDGETS · Answer

Problème résolu.  j'ai trouvé où était l'erreur  : discordance entre le contenu du tableau structuré TabNatureArticles menus, colonne Nom nature articles menus et le tableau structuré TabProduits, colonne Libelléproduit. Correction effectuée dans ce dernier tableau et tout est rentré dans l'ordre. Bigoudiii, crois-moi ou pas, mais j'ai fait ces rectifications moi-même, sans aucune aide extérieure. D'ailleurs, je me demande maintenant si ce n'est pas ce même problème qui se posait dans MENUSV2

BUDGETS · Answer

Bonjour Bigoudiii,

Le dico, outre les procédures que tu as citées dans ton message, doit-il être utilisé dans d'autres procédures ? D4avance merci pour ta réponse

BUDGETS · Answer

Bonsoir Bigoudiii,

Dans la procédure private sub NomArticlesMenus, Généeze numéro création articles menus,  il y a format(application.countif. Dans ce tte instruction, quand je tape Format(Application. dans la liste déroulante qui surgit, il n'y a pas de countif. Dans un autre fichier, impossible hélas de me souvenir duquel il s'agit, dans la liste déroulante, il y avait bien countif. Merci de me proposer une solution dans laquelle countif serait présent. là, cela semble marcher tout de même. J'ai retrouvé mon fichier mais il s'agit de countifs et elle était dans une autre procédure (récupérationmenus) Je vais essayer les deux.

https://cjoint.com/c/MEhrO6WbxLp

BUDGETS · Answer

Bonjour Bigoudiii,

Le tbCodePériodeArticlesMenus ne se remplit pas, que la partie With [Produits] de la procédure cbNomPériodeArticlesMenus_Change soit comme ici ou mise en commentaires. Peut-être ne faut-il pas faire référence à dico ?

D'avance merci pour ton aide.

https://cjoint.com/c/MEjpTJal7op

BUDGETS · Answer

Bonjour Bigoudiii,

Dans un message, autant que je m'en souvienne, tu avais proposé que je refasse le code outil par outil. Dans cette perspective, accepterais-tu, toi et f894009, de m'aider en cas de problème. D'avance merci pour ta réponse. Je vais travailler à partir de ta solution 2 (le dico).

Bonnes journée et continuation. Bon weekend. Prends bien soin de toi.

BUDGETS · Answer

Bonjour f894009,

Pourquoi le cbNomNatureArticlesMenus et cbNomArticlesMenus (tout comme les tb respectifs d'ailleurs) ne se remplissent-ils pas. D'avance merci pour ta réponse.

https://cjoint.com/c/MEmlh00Nkfp

Le Pingou · Answer

Bonjour,
juste au passage, simplement les instructions qui manquent, le système ne fait que reproduire ce que vous avez programmé.

Bonne suite.

BUDGETS · Answer

J'ai trouvé : il y avait une erreur dans le nom de la procédure.  Maintenant, il faut remplir le cbNomArticlesMenus.

Variable objet ou variable de bloc with non définie

23 réponses

Discussions similaires

Newsletters