Budgets 1 : création des produits

Et s'il y a plusieurs produits qui ont la même date de création ? Et comment vas-tu choisir pratiquement la date de création ?

Et oui, si tu places un objet avec un fond non transparent sur une feuille Excel, tu n'as pas accès aux cellules derrière.
Dans MENUS, c'était juste un fond de couleur entourant les boutons.
Ici cela donnerait quelque chose comme ceci, ça prend un peu plus de place.
https://www.cjoint.com/c/ILiqLWDQG6o

Bonne continuation

Bonjour,

Il ne s'agit que de mise en forme, suppression rectangle, ajout et redimensionnement de colonnes, couleur de remplissage et bordure.

Bonne continuation

C’est ton choix, il faut personnaliser chaque cellule dans laquelle tu veux voir 01 pour 1.

BUDGETS,

Je te laisse faire, mais là je crois que tu t'embarques dans une grosse galère !

a) le numéro de création n'obéit pas aux instructions
Je t'ai déjà dit à plusieurs reprises qu'il y avait un problème avec le numéro de création et que j'avais refait une formule qui fonctionne et que voici

="DA"&TEXTE(LIGNE()-LIGNE(TabArticlesProduitsAlimentaires[[#En-têtes];[Numéro création produit alimentaire]]);"000")

Et je t'ai dit aussi plusieurs fois que ce numéro de création me paraissait inutile.

b) Pourquoi cette erreur de else sans if dans CréerABDA
Parce que tu n'as pas respecté la syntaxe de l'instruction IF précédente, tu as placé l'instruction qui suit le then sur la même ligne que celui-ci, dans ce cas l'instruction If est considérée comme complète et le mot clé Else qui suit est considéré comme orphelin (sans If)
De plus ne coupe pas tes instructions n’importe comment en bout de ligne mais à des endroits judicieux pour la lisibilité du code.
Voici un code qui fonctionne

        'Initialiser ou effacer la date création
        If shAccueilArticlesBudgétaires.Range("E7").Value <> "" And _
           shAccueilArticlesBudgétaires.Range("D7").Value <> "" And _
           shAccueilArticlesBudgétaires.Range("C7").Value <> "" Then
            .Range("B7").Value = DateSerial(shAccueilArticlesBudgétaires.Range("E7").Value, _
                                            Month("01 " & shAccueilArticlesBudgétaires.Range("D7").Value), _
                                            shAccueilArticlesBudgétaires.Range("C7").Value)
        Else
            .Range("B7").ClearContents
        End If

Je pense aussi que, comme le numéro de création, cette date de création me semble inutile.

C'est toi qui définit tes besoins.

Cordialement

Ça part de tous les bords !
Tu remets les formules, et tu effaces juste les cellules de choix (avec liste déroulante)

Bon courage

Bonjour BUDGETS,

Bien pour ta procédure EffacerDonnéesSaisiesAA.
Pour le numéro de création c'est bien automatique mais supprime toutes tes lignes vides ne contenant que ce numéro, cela ne sert à rien. On n'est pas dans un tableau de type MENUS !

Il y a aussi deux choses qui m'énervent, c'est ton mot de passe, supprime-le une bonne fois pour toutes, et la procédure Masquer les feuilles, c'est peut-être bien à la fin mais en phase de mise au point c'est casse-pieds ou alors fait au moins une procédure d'affichage de toutes les feuilles.

Cordialement

Bonsoir BUDGETS,

Tu supprimes les quelques 450 (!) lignes vides de la table (supprimer et pas simplement effacer), tu te positionnes en F6 et tu utilises la poignée de recopie, le petit carré noir en bas à droite, pour tirer la formule jusqu'en bas de la colonne (F13).
Maintenant ça doit être bon quand tu ajoutes un article.

Justement ce que je veux dire avec MasquerFeuilles, c'est que quand tu fais Valider création article, tu masques les feuilles à la fin de la procédure et il faut systématiquement les ré-afficher pour voir le résultat.
Soit tu mets MasquerFeuilles en commenatires, soit tu crées une procédure AfficherFeuilles et un bouton qui permet facilement de les réafficher toutes en une seule fois.

Cordialement

Bonjour BUDGETS,

Comme souvent, tu prends le problème à l'envers, ce n'est pas ton fichier qu'il faut à tout prix adapter à une macro qui était vraie dans un autre contexte, mais plutôt l'inverse.

La règle dans une base de données c'est d'avoir un identifiant unique qui permet de référencer un enregistrement, ici une ligne de la Table produits (ou Table Article alimentaire).
La date de création n'est pas unique
Le numéro de création dans sa version actuelle est juste un numéro d'affichage du numéro de ligne dans la table et est donc variable selon le remplissage de la table
Le code article (ou nom article) est unique puisqu'on interdit d'un avoir un deuxième lors de la création
et tu sais aussi ce que je pense de la date et du numéro de création !

(Dans MENUS, un menu était identifié par une date unique, pas la date de création mais la date calendaire)

C'est toi qui décides.

Cordialement

Bonjour,

Dans ton raisonnement, la date de création variable n'est donc plus une date de création mais un moyen d'identifier de manière unique un article, mais cela tu l'as déjà via le code ou le nom article et de manière plus simple.
Dans MENUS, le choix de la date se faisait par trois listes déroulantes (jour, mois, année) et il fallait reconstituer la date calendaire, avec le code article (ou le nom) il n'y a qu'une seule liste et il n'y a rien à reconstituer. Que veux-tu dire par "en le déclarant comme dim codearticle as string" ?

Maintenant pose-toi aussi la question de l'utilité de la fonction Modification, est-elle vraiment nécessaire, quels sont les éléments d'un article que tu vas vouloir modifier ?

Cordialement

Bonjour BUDGETS,

Désolé pour le délai mais j'étais très occupé depuis hier.
Très bien si tu as pu résoudre des problèmes.
Pour l'interdiction de modification, il y a ce genre de mécanisme dans MENUS feuille Modif Produit (shMP), je te laisse voir où.

Cordialement

Problème d'indice de boucle, il faut faire Ici = I+3 (la table démarre en ligne 3)

Remplace l’instruction

        If shBDProduits.Cells(I + 3, 11).Value = DateCréationArticleAlimentaire And shBDProduits.Cells(I + 3, 10).Value = "Oui" Then Ici = I + 3

par celle-ci

        If shBDProduits.Cells(I + 3, 11).Value = DateCréationArticleAlimentaire Then Ici = I + 3

et tant qu'on y est remplace plus loin

    'Date création
    shBDProduits.Range("K" & Ici).Copy 'Colonne K de la feuille shBDProduits : date création
    shModifABDA.Range("B7").PasteSpecial Paste:=xlPasteValues 'Cellule B7 de la feuille shModifABDA : Date création articles budgétaires dépenses alimentaires

simplement par

       shModifABDA .Range("B7").Value = shBDProduits.Range("K" & Ici) 

et à suivre pour les autres

Bon courage

Ouh là là !!! Si c'était pour moi la réponse serait Non.
Mais ai-je bien compris ta question, est-ce une question générale ou juste sur l'aspect Modification ?

Un exemple de la modification avec le code produit à la place de la date de création. Je n'ai pas changé le reste.
https://www.cjoint.com/c/ILmrDFcJWyZ