Budgets 1 : création des produits

Bonsoir,

L'erreur est humaine !
Et bien tant mieux, tout est ok maintenant ?

Non, le numéro de création pose problème, j'avais refait une autre formule.
Mais je pense que ce numéro est inutile.

Cordialement

Bonjour BUDGETS,

Oui, bien vu pour les crochets ! Tu peux remplacer les doubles par des simples, il n'y a pas d'incidence mais c'est plus logique. Il y a quelquefois des doubles crochets quand on veut accéder à plusieurs entités de la table comme par exemple Range("TabProduits[#All,[Nom produit]]"), chaque entité étant elle même entre crochets.

Pour le numéro de création, il n'y a pas de noms définis, c'est juste une numérotation des lignes, qui est redontante avec le code article. Ce numéro n'étant pas utilisé par la suite il me paraît inutile.

Cordialement

Bonjour BUDGETS,

Bien sur que si tu reprends la procédure InsérerMMR tu devras modifier des lignes, le principe reste néanmoins le même, il faut recopier des données d'une feuille de saisie vers une ou plusieurs autres feuilles, mais tu peux faire beaucoup plus simple que ce qui était fait, parce que le contexte n'est pas le même.

Avant de commencer, prends le temps de répondre à quelques questions :
a) que veux-tu faire exactement, ou quel tableau final veux-tu obtenir ?
b) la table BD Produits est-elle nécessaire ?
c) de quelles informations as-tu réellement besoin, quelles sont-celles qui sont vraiment nécessaires ?
d ) la table Articles produits alimentaires (et les suivantes) est-elle bien celle que tu veux ?
e) quelles sont les informations qui te seront utiles pour la gestion de tes dépenses et recettes, ou iras-tu les chercher ?

Essaie de mettre noir sur blanc les différentes opérations à réaliser (d'un point de vue vba) et/ou essaie de décortiquer les différentes parties des procédures InsérerMMR et GénérerDonnéesABDA pour ne garder que ce qui est-utile.

Bon courage

Bonjour BUDGETS,

As-tu testé le code que tu as rajouté dans ton fichier ?
Si oui, comment ?
Si non, pourquoi ?

Cordialement

Re,

J'ai simplement remarqué que le code n'était pas suffisant pour aller au bout du process de création article.
Que manque-t-il pour y arriver ?
C'est cette partie qu'il faut terminer avant toute chose, mais si tu attends d'avoir écrit le code complet de ton application ça va être long et compliqué.

Cordialement

PS
Je peux te fournir un code qui fonctionne, mais ...
Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson. Confucius

Re,

En fait tu as commencé par la fin. Tu as le code pour insérer des informations dans les tables, mais rien pour appeler cette procédure. Il manque la partie entre la feuille Saisie articles alimentaires et cette procédure.

Bon courage

Dans le moduleABDA_CréerABDA, il n'est pas fait appel à InsérerDonnéesABDA, c'est cela qui manque ?
Pas exactement à cet endroit là.

Ah pardon, je n'avais pas fait attention, toi tu parlais de module et moi je parlais de procédure.
L'important c'est la procédure, les modules permettent juste (en gros) de regrouper les procédures, d'ailleurs à ce propos je regrouperais toutes les procédures (macros) traitant des articles ABDA dans un seul module sinon à la fin tu risques d'en avoir un bon paquet de modules.

Cordialement,

Cela donnerait ça pour le moment.
https://www.cjoint.com/c/ILfoKKfIVaK

Je ne crois pas qu'avoir une seule feuille shArticlesProduits te simplifiera la tâche, cela va t'embrouiller.
J'insiste, écris et teste la procédure que tu as nommée ValiderCréationArticlesBudgétairesDépensesAlimentaires

Cordialement

Tu confonds modules et procédures. Un module contient une ou plusieurs procédures. On met dans un module de préférence les procédures qui traitent des mêmes infos, mais il n'y a pas obligation, c'est une question d'organisation, (tiens j'ai l'impression que je l'ai déjà dit). Tu choisiras le mode de gestion qui te conviendra le mieux. Dans mon exemple, j'ai mis toutes les procédures traitant des articles ABDA dans le module ABDA et supprimé les modules devenus vides.

Dans le module ABDA !

Ou histoire d'embrouiller un peu plus, tu le mets dans un module à part que tu appelles comme tu veux et une fois au point tu le transfères dans le module ABDA.

Bonjour BUDGETS,

Il y a plusieurs anomalies car la structure et la position des tables n'est pas la même que celles de Menus.

a) les tableaux ne commencent pas en ligne 1, il faut adapter en conséquence les indices de lignes (I, Ici, IciBis) pour se positionner sur la première ligne vide en dessous des tableaux

b) l'insertion dans la table Article Alimentaires doit se faire de la même manière que celle de la table Produits alors que dans Menus on parcourait avec une boucle la première colonne pour insérer les infos à la bonne date, ce qui n'est pas le cas ici

c) Il faut trier le table produits sur deux critères , le nom catégorie puis le nom article, il faut trier la table Article Alimentaire sur un seul critère le nom article (à adapter de MMR)

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

Je n'ai pas le temps d'en faire plus aujourd'hui

Bon courage

Bonsoir BUDGETS,

Qu'est-ce qui te chagrines dans le Tri BDProduits ?
Cela dit dans la procédure TrierBDProduits les commentaires et le code ne sont pas cohérents, mais pour le moment cela ne change pas rien.

Pour les procédures Modifier et Supprimer je ne préfère rien du tout, je pense qu'il vaut mieux tout regrouper dans le module ABDA.
Comment vas-tu choisir le produit à modifier ou supprimer ?

Cordialement

Je t'ai déjà dit, l'instruction Cells(n°ligne, n°colonne) permet d'accéder aux cellules de la feuille connaissant la ligne et la colonne. Cette instruction est placée dans une boucle For qui parcourt toutes les lignes de la Table Produits depuis 1 jusqu'au nombre total de lignes (shBDProduits.Range("TabProduits[Code produit]").Count).
Quand I vaut 1, l'instruction shBDProduitsCells(I + 3, 3) pointe sur la ligne n° 4 colonne n° 3 de la table Produits, c'est à dire le premier code article.
Si ce code article est égal à celui saisie sur la feuille SaisieAA cellule B9 alors il y a un message qui indique que le code existe déjà dans la table (MsgBox)
Sinon on passe à l'indice I suivant (Next I), donc la deuxième ligne de la table produits, et par conséquent la ligne n° 5 de la feuille et ainsi de suite jusqu'à la fin de la table produits (shBDProduits.Range("TabProduits[Code produit]").Count

C'est dit dans les commentaires, Ici est la première ligne vide en dessous du tableau dans la table Produits, et Icibis c'est pareil mais dans la table ArticleAlimentaire.
On insère donc les nouvelles données à la fin de chacune des tables, puis on trie les tables pour mettre les codes articles en ordre croissant.

    'Sur la feuille shBDProduits, récupérer le numéro de la première ligne vide en dessous du tableau
    Ici = shBDProduits.Range("A3").End(xlDown).Row + 1

Bonjour BUDGETS,

C'était le sens de ma question #96
Comment vas-tu choisir le produit à modifier ou supprimer ?
et ta réponse #97
Pour la modification, d'après le code produit et si à modifier est à oui
Très bien c'est tout à fait logique, mais ma question va plus loin, comment pratiquement vas-tu choisir le code article ?

Cordialement

Et oui, c'est une bonne solution et certainement la plus simple.
Tu vois bien qu'une procédure est adaptée à un contexte donné et qu'on ne peut pas la reprendre telle quelle dans un autre contexte. Donc soit tu la réécris soit tu reprends celle de MENUS que tu modifies fortement pour l'adapter à ton besoin et au contexte actuel du fichier BUDGETS.

Bon courage