Quelle formule pour remplir les cellules H à L incluses ?

Bonsoir,
Je n'ai pas le temps ce soir, je regarde demain matin.
Cordialement

Bonjour BUDGETS,

J'espère que tes problèmes de connexion sont résolus.

Quelques remarques sur ton dernier fichier :

Feuille Sasie VWE
1) la cellule B4 n'est pas remplie
2) la cellule H4 ne se remplit pas toujours correctement
3) la cellule B12 n'est pas correctement renseigné

Code VBA
Procédure InsérerDonnéesVWE : tu as une erreur non détectée à la compilation mais lors de l'exécution
Toujours Procédure InsérerDonnéesVWE : le commentaire après la ligne ActiveSheet.Range("H3").Copy est erroné

Feuille Référentiels
liste Noms Jours : tu n'as pas mis le format personnalisé 00

Ré afficher la feuille origine permet de revenir sur la feuille qui était active (shSaisieMVWE) lors du lancement de la procédure, en effet après les différentes copies il y a un changement de feuille active pour repositionner le pointeur sur la cellule A1( feuille BD Menus et Menus VWE) ( Voir 'Se positionner en A1 sur la feuille BD Menus et 'Se positionner en A1 sur la feuille Menus MMR)

Et peut-être d'autres choses que je n'ai pas vu , ...

Je sais corriger ces erreurs ou omissions, mais je te laisse chercher, dis-moi si tu as des doutes.

Cordialement

Bonjour,
Pour liste jours tu sélectionnes tes 31 jours et tu appliques le format personnalisé 00 comme pour une cellule unique.
Pour H4 c'est un peu plus vicieux, regarde bien quand tu fais créer menu viande à partir de la feuille Accueil Menus !
Bon courage

Feuille shAccueilMenus : cellules E7, E11, E15, il y un code dans la procédure de la feuilleand la feuille est activé. Tu peux le supprimer et/ou mettre dans ces cellules la formule =$D$1
Liste jours : dans la feuille Référentiels, tu sélectionnes les 31 jours colonne AM et tu appliques le format en une seule fois
Feuille shSaisieVWE : cellule H4, le problème vient de la cellule H3 qui est mal renseignée dans la procédure CréerMVWE, c'est subtil regarde bien. Si on modifie H3 avec la liste déroulante ça doit être bon.
Module InsérerDonnéesVWE Commentaire après H3, oui aussi pour l’orthographe mais surtout il n'y a qu'une seule cellule et une seule colonne et non pas deux

On avance petit à petit, n'est-ce-pas ?

Ok pas mal !
Attention dans la feuille référentiels laisser toujours une colonne entre tes tableaux, sinon tu risques d'être embêté.
shAccueilMenus, finalement supprime c

Ok pas mal !
Attention dans la feuille référentiels laisser toujours une colonne entre tes tableaux, sinon tu risques d'être embêté.
shAccueilMenus procédure Worksheet_Activate finalement supprime carrément les 3 lignes concernant E7, E11, E15 et mets =$D$1 dans ces cellules

On est sur le bon chemin !

Un envoi intempestif.

Non, c'est un envoi intempestif du message que je n'avais pas encore terminé, tu as du recevoir le complet depuis ?

Bonjour BUDGETS,

J'ai vu ce qui n'allait pas.

1) Ne mélange pas les années 2019 et 2020.
Dans ta BD Menus tu as des dates en 2019 et tu veux générer des Menus pour 2020 !
Mets toutes tes dates la même année comme je te l'ai déjà dit.

2) Et surtout, du fait du rajout des menus VWE il faut faire évoluer les procédures GénérerMenus...

Dans les procédures GénérerMenusMMR et GénérerMenusMVWE il faut rajouter un test sur le type de menu sinon dans la deuxième boucle on ne trouve pas de correspondance de dates.

Je te propose cette modification d'une partie du code pour GénérerMenus MMR

    'Pour toutes les lignes de la table BD Menus
    For I = 2 To shBDMenus.Range("BD_Menus[[#All],[Date menu]]").Count
    
        'Si c'est un menu MMR
        If shBDMenus.Cells(I, 2) = "CD02" Then
    
            J = 1
            IciBis = 0
            
            'Boucler sur la table Menus MMR pour trouver la date correspondante
            Do
                If shBDMenus.Cells(I, 1).Value = shMenusMMR.Cells(J, 1).Value Then
                    IciBis = J
                    'Copier les valeurs
                    shMenusMMR.Cells(J, 2).Value = shBDMenus.Cells(I, 7).Value  'Légume
                    shMenusMMR.Cells(J, 3).Value = shBDMenus.Cells(I, 16).Value 'Viande
                    shMenusMMR.Cells(J, 4).Value = shBDMenus.Cells(I, 25).Value 'Dessert
                    shMenusMMR.Cells(J, 5).Value = shBDMenus.Cells(I, 32).Value 'Observation
                End If
                J = J + 1
            Loop Until IciBis > 0
        End If
    Next I

Il faut appliquer également cette modification dans la procédure GénérerMenus MVWE en faisant bien attention aux changements nécessaires.
Je te laisse faire les modifs.

Ces procédures GénérerMenus... ne servent qu'à recréer les Feuilles Menus MMR et VWE quand on les a effacés complètement pour des raisons pratiques de test et mise au point, à condition évidemment que la table BD Menus soit toujours renseigné.

Cordialement

Bonsoir BUDGETS,

Ta BD Menus comporte encore des lignes vides, je ne crois pas que cela soit gênant, mais supprime les quand même. Ta table BD Menus vide ne doit comporter que la ligne des titres et malgré tout une ligne vide que tu ne peux pas supprimer.

Avant de tester GénererMenus, il faut créer des menus correspondants.
A priori pas de soucis pour les MMR, par contre pour les MVWE tu as toujours une erreur dans InsérerDonnéesVWE (non détectable à la compil mais lors de l'exécution), je te laisse la trouver .
Une fois le pb résolu tu crées quelques menus MVWE, tu effaces ta table Menus VWE et tu la régénères (idem pour MMR)

Quand tu testes, il ne faut pas tester seulement une ou deux fois, il faut aller voir aux particularités ou aux limites. Crée des menus le premier et dernier jour du mois, du semestre, les jours fériés de la semaine, du weekend, car c'est justement ça qui sert pour la colonne Observation.

Bon courage

Oui, bien sur que c'est l'erreur ! La syntaxe d'une plage de cellules est bien avec : et non pas avec . !!

Mais normalement quand tu crées un menu VWE tu as une erreur d'exécution et si tu cliques sur Déboggage l'instruction erronée est surlignée en jaune, tu l'as bien vue ?

Et d'après toi , pourquoi cette erreur n'est-elle pas détectée lors de la compilation ?

Bonne réflexion

Bonsoir,

Elle est bien bonne celle là. Je viens de tester avec Excel 2010 et effectivement je n'ai pas d'erreur lors de l'exécution !!! Moi j'ai la dernière version d'Excel via Office 365.

D'après Microsoft pour définir une plage de cellule on peut utiliser Range("B19:B20") ou Range ("B19", "B20") Avec un point je n'avais jamais vu, mais on ne connaît pas tout.
Cela dit je te conseille quand même de corriger pour éviter les problèmes de portabilité.

Cette erreur (??) n'est pas détectée lors de la compilation car B19:B20 est entre guillemets, et vba considère par conséquent que c'est une chaine texte qui peut être tout à fait libre comme les messages d'erreurs dans l'instruction Msgbox par exemple. Ce n'est pas un mot réservé ou une déclaration ou un nom de variable, il n'y pas de contrôle.

Je n'ai pas vu le problème de ta dernière phrase.

Cordialement

Bonsoir,

Très bien, tu avances.

Par contre je n'ai pas vraiment compris quel est le but de "A modifier"
Si c'est "Oui" on peut modifier et supprimer
Si c'est "Non" que doit t-on faire exactement, ne pas modifier ? ne pas supprimer ? et en plus si on l'a mis à "Non" il n'existe actuellement aucun moyen de le remettre à "Oui" (sauf à aller le changer à la main dans la BD)

Par exemple dans la table Produits tu les a tous mis à "Non", donc actuellement tel que c'est codé on ne peut modifier aucun produit mais on peut les supprimer. Est-ce bien cela que tu veux ?

Quel est le but de champ, est-il vraiment utile ?

Cordialement

Bonsoir,

Ben oui, il faut affecter la macro au bouton. clic droit sur le bouton, choisir Affecter une macro et sélectionner la macro voulue.
Attention, dans SupprimerVWE, à la partie 'Effacer les données qui doit être modifiée selon ta feuille Menus VWE

Cordialement

Bonsoir,

Dans la procédure SuprimerVWE, je ne suis pas d'accord avec toi pour les données à effacer sur la feuille Menus VWE, (dans la BD Menus c'est ok). Regarde bien ta feuille Menus VWE.

Pour le numéro de menu, comme je te l'ai déjà dit, teste aux limites, crée un menu pour le dernier jour du premier semestre et un autre pour le premier jour du second semestre et tu verras qu'il y a une erreur sur le numéro. l'explication viendra demain.

C'est tout pour ce soir

Cordialement

Bonjour BUDGETS,

Dans la feuille Menus VWE que tu as faite, les cellules à effacer sont celles des colonnes B, C et F.
Les colonnes A, D et E comportent des formules qu'il ne faut pas effacer.

Dans la procédure SuprimerVWE l'instruction suivante
shMenusVWE.Range("B" & IciBis & ":" & "Q" & IciBis).ClearContents
efface les cellules, sur la ligne n° IciBis, des colonnes B à Q.
Tu as donc tout effacé, de B à Q même les formules !

Pour le numéro de menu, je t'ai déjà donné un début d'explication dans un fichier Word, regarde le si tu l'as toujours, sinon je te redonnerai les infos, car en plus la feuille Menus VWE est légèrement différente de la feuille Menus MMR.

Cordialement

Bonjour,

1) A priori, c'est correct ce que tu as fait dans la procédure SupprimerMVWE, il fallait bien un instruction pour les colonnes B à C shMenusVWE.(Range"B9:C9").ClearContents et une instruction pour uniquement la colonne F shMenusVWE.Range("F9").ClearContents (ici c'est un exemple pour la ligne 9)
Le : dans Range("B9:C9") signifie jusqu'à.
Par contre les formule des colonnes D et E des lignes 9 et 34 de la feuille Menus WE ont disparues et sont à remettre en les recopiant des cellules au dessus

2) Le centre de la formule est l'instruction NBVAL($A$5:A5), le reste c'est de l'enrobage ou presque. Cette instruction permet de compter le nombre de cellule dans la colonne A, à partir de la cellule $A$5 (qui reste fixe car en référence absolue) jusqu'à la ligne courante (ici A5, qui est variable car en référence relative).
Donc NBVAL($A$5:A5) donne 1, c'est le premier menu et sur les cellules en dessous NBVAL($A$5:A6) donne 2, c'est le deuxième menu, et ainsi de suite, on verra pour l'enrobage et le NB.VIDE plus tard.
D'ailleurs tu peux remplacer la formule complète en E5 par simplement NBVAL($A$5:A5), tu la recopie jusqu'en bas du tableau et tu vois ce qui se passe quand tu crées des menus pour diverses dates.

3) Les commentaires semblent corrects et les significations des indices sont en principe toujours les mêmes dans les différentes procédures.

Cordialement