Générateur de menus hebdomadaires

**pat33bordeaux** · 09/05/2018, 21h35

Bonjour à toutes et à tous,
J'ai récupérer sur internet un petit classeur assez sympa pour générer automatiquement des menus,
Toutefois, je souhaiterais pouvoir le modifier pour l'adapter plus à mes besoins, j'ai commencer à faire certaines modifications ( mise en page, userform ...) mais je bloque
sur le reste et sollicite votre aide.
OBJECTIF 1 = ajouter de façon automatique les données de la feuille " ListeRecettes" à la feuille " Menu "
pour l'instant ne sont pris en compte que les colonnes B à F (de lundi à vendredi) et je souhaiterais rajouter cela aux colonnes G et H (samedi - dimanche)
OBJECTIF 2 = ajouter aussi de façon automatique les données de la feuille " ListeRecettes" à la feuille " Menu " pour
- Fromage ou laitage
- Salade
OBJECTIF 3 = ajouter sous chaque jour de la semaine une date
OBJECTIF 4 = dupliquer le tout pour pouvoir obtenir des menus sur 7 jours déjeuners + dîners

En vous remerciant par avance de l'aide que vous pourrez m'apporter à concrétiser ce projet,
Bien à vous !

**hyperion13** · 10/05/2018, 17h01

Salut,
Peut-être demander au webmaster du site sur lequel vous avez récupéré votre fichier pour les modifs !
Pour ajouter les jours weekend
- copier/coller, 2 fois, le btn "Vendredi" pour le modifier en Samedi et Dimanche
- adapter le code adossé à vendredi comme cela pour Samedi et suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Samedi_Click()
Jour = "Samedi"
Sheets("menu").Select
Range("g1").Select
End Sub

Pour ajouter le fromage, salade
- copier/coller, 2 fois, le btn "Dessert" pour le modifier en Fromage et Salade
- adapter le code adossé à Dessert comme cela pour Fromage et suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Fromage_Click()
ActiveCell.EntireColumn.Cells(1).Select
ActiveCell.Offset(5, 0).Select
Dim Cell As Range
Dim Recette As String
Dim I As Integer, J As Integer
Dim t As String
 
Recettes.Clear
Recette = Fromage.Caption
 
With Sheets("ListeRecettes")
    For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If Cell.Value = Recette Then
            Recettes.AddItem Cell.Offset(0, 1).Value
            Recettes.ListIndex = -1
        End If
    Next Cell
End With
 
With Recettes
    For I = 0 To .ListCount - 1
        For J = 0 To .ListCount - 1
            If .List(I) < .List(J) Then
                t = .List(I)
                .List(I) = .List(J)
                .List(J) = t
            End If
        Next J
    Next I
End With
End Sub

Pour les dates sous les jours
sous Mardi écrire et suivant jusqu'à D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C2=B2+1

Dans le userform ajouter une textBox (nommée DateBox) pour saisir une date et coller :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub DateBox_AfterUpdate()
    Range("B2").Formula = CDate(DateBox.Text) - Weekday(CDate(DateBox.Text), 3)
End Sub

Ce code permet de ramener à la date du lundi quelque soit la date saisie.
Il faudra ajouter une autre code qui vous permettra de vérifier qu'une valeur de type date est saisie dans cette DateBox (keypress et isDate())

Pour l'option repas du soir, copier/coller votre ListBox et adapter les codes pour Entrées, Viandes, etc.

Dans votre tableau des menus
1ère ligne les jours Lun di à Dimanche
2ème les dates calculées
A partir de la 3ème ligne prévoir 2 lignes pour Entrées du midi, Entrées du soir. Et dans la même lignée pour Viandes, Garnitures, etc.
Et adapter le code sur click par item

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Entrées_Click()
ActiveCell.EntireColumn.Cells(1).Select
ActiveCell.Offset(2, 0).Select ...

2 indique décalage vers le bas à partir de la 1ère ligne
Donc mettre 3 pour l'entrée du soir, et ainsi de suite
@+

**pat33bordeaux** · 10/05/2018, 17h13

Bonjour hyperion13,

Impossible de contacter le webmaster du site sur lequel j'ai récupéré ce fichier pour les modifs car je me souviens plus du site et quand je l'ai récupéré, j'ai juste retrouvé
ce fichier par hasard sur un disque dur externe et il m'a paru très intéressant en l'adaptant plus à mes besoins.

Merci pour vos codes, je pense que je devrais m'en sortir avec ces informations complémentaires !

Bonne journée

Bien à vous