Planing repas cuisine

[CIBERICK]

Bonjour a tous

J'ai essayé de faire un planing repas mais il y a aparemment un bug dessus.

Principe:

une liste de repas est enregistré (onglet liste)
dans l'onglet grille, les jours de la semaine avec les deux repas par jour (midi/soir)
un bouton TIRAGE pour sortir une liste de repas aléatoire dans la grille
il ne faut pas qu'on retrouve le meme repas le meme jour et dans la semaine.

Probleme:

on retrouve les memes repas dans la semaine et ne reconnais pas les repas enregistré apres la ligne 230.

je vous met en piece jointe mon programme, si quelqu'un pouvais me le corriger,

Merci d'avance

 

[Gruick]

Re : Planing repas cuisine

Bonjour Chef CIBERICK.

Tu t'es compliqué l'existence, 2 boucles, et des comparaisons sur le passé suffiront. Sur les 499 plats, ça réduit déjà les doublons.

Je te prépare une "maquereau" plus adéquate.

Ad'taleur

Gruick

 

[CIBERICK]

Re : Planing repas cuisine

Merci beaucoup.

En fait je connais pas excel, et c'est mon premier programme que je fait benevolement pour une maison de retraite. J'ai essayé de faire avec se que j'ai trouvé dans les livre Excel :lol:

bien content de vous avoir trouvé :lol:

 

[Gruick]

Re : Planing repas cuisine

re,

Tu m'as donné faim...
J'ai eu un petit problème, dès que je faisais appel à une feuille, Excel ne voulait rien savoir. J'ai donc recopié tout sur un nouveau document, et retiré le superflu.

Voilà ce que ça donne en PJ. (j'ai corrigé les fautes)

Maintenant, miam miam... et glou glou aussi pendant qu'on y est...

Gruick

 

[CIBERICK]

Re : Planing repas cuisine

Merci bcp pour le coup de main, effectivement ta formule a l'air bcp plus simple :lol:

 

[CIBERICK]

Re : Planing repas cuisine

Bonjour tout le monde

Apres utilisation pendant quelques mois, me revoila avec mon planing de repas de cuisine et je remonte un petit probleme:

Quand on clic sur "Bouton" on se retrouve dans le tableau avec plusieurs fois le meme repas (generalement 2 ou 3 fois). Ce que je voudrais, c'est qu'un repas ne reviennent pas lorsqu'il est deja present dans le tableau.

Je vous joint le fichier de base, car celui utilisé par le centre est modifié avec le design et l'adresse de la maison de retraite et prefere ne pas le divulgué en public. Si quelqu'un pouvait jeter un coup d'oeil dessus et me le corriger, je le remercie d'avance car je n'ai aucune connaissance en excel

Je vous souhaite a tous une tres bonne fin d'année et de passer de bonne fetes.

 

[bqtr]

Re : Planing repas cuisine

Bonjour CIBERICK, Gruick

Voici un exemple qui semble fonctionner.

Sub tirage()

Dim k As Byte, Coln As Object, y As Long, n As Long, c As Byte, l As Byte
Dim Tablo(), i As Integer

Set Coln = CreateObject("Scripting.Dictionary") ' collection de Numéro unique sans doublon

With Sheets("Liste")
  y = .Range("C65536").End(xlUp).Row 'N° de la dernière ligne feuille non vide "Liste"
    Do 'la boucle se fait tant que k est < 14 (14 repas à choisir)
      Randomize 'Initialise le générateur de nombres aléatoires
      n = Int((y) * Rnd + 1) 'détermination d'un Numéro aléatoire entre 1 et y
      If n <> 1 Then 'pour ne pas prendre en compte la ligne 1 de la feuille "Liste"
        If Not Coln.Exists(n) Then 'si le N° "n" n'existe pas dans la collection "Coln"
           Coln.Add n, n ' on l'ajoute
           k = k + 1
           ReDim Preserve Tablo(1, 1 To k) 'mise dans un tableau des repas
           Tablo(1, k) = .Cells(n, 3)
        End If
      End If
    Loop While k < 14
End With

c = 3 ' colonne 3
l = 5 'ligne 5

For i = 1 To UBound(Tablo, 2) ' boucle sur les éléments du tablo (de 1 à 14)
  With Sheets("Grille")
    .Cells(l, c) = Tablo(1, i) 'remplissage des celulles de la feuille "Grille"
    c = c + 1 ' incrémente le n° des colonnes 3 à 9, ligne 5
    If c = 10 Then c = 3: l = 8 'pour passer à la ligne 8 colonne 3 (cellule C8)
  End With
Next

Set Coln = Nothing

End Sub

A+, bonnes fêtes

Edit : macro et fichier en PJ modifié, c'est mieux comme ça je pense .
Salut François et bon courage, c'est pas un vélo c'est un monocycle, y a qu'une roue

 

[Gruick]

Re : Planing repas cuisine

Bonjour CIBERICK,

Absent du forum pour raisons de santé, c'est une bonne âme qui m'a averti de ton problème.
Je me suis rendu compte que je t'ai posté une version d'essai au lieu de la définitive. Je viens de la revoir avec une approche différente. Maintenant, ça devrait être impeccable.
Ceci dit, dans la liste il y a des "doublons" dans le plat principal, que j'ai noté en colonne D.
Le hasard peut tirer 2 couscous de suite puisqu'il y en a 2, ça m'est arrivé. Donc revoir la liste aussi.

Bonne adaptation.

Gruick

Edit : Bonjour Pierre Olivier, plus rapide, normal avec un vélo...

 

[CIBERICK]

Re : Planing repas cuisine

Merci bcp a vous deux, je vais voir vos fichiers.

Prompt retablissement Gruick!

A bientot et encores bonnes fetes à tous

 

[pascal21]

Re : Planing repas cuisine

bonsoir à vous
je ne suis pas un spécialiste de la cuisine
mais j'ai essayé ton fichier je suis tombé sur saucisses lentilles le midi et couscous le soir le même jour
ça fait peut-être beaucoup pour des ptits vieux
une idée comme ça
deux listes une pour le midi et une pour le soir avec une liste de menus plus légers
et pour être sure de ne pas tomber sur 2 jours de suite avec (par exemple des féculents) en plat principal ne serait-il pas judicieux de coder les menus en fonction de leur nature légumes verts, féculents,etc......
après je suis bien incapable de sortir un tel code,
c'était juste pour donner un ptit coup de main ou pour embrouiller lol!!!

 

[capricorne68]

Re : Planing repas cuisine

Bonjour CIBERICK,pascal21 et tous les exceliens

tu as bien fait pascal 21 de preciser cette remarque , ainsi que pour le dimanche un menu plus elaborer par exemple "filet mignon et garniture de legumes" au lieu de "saucisse purée" pour un dimanche !!!!! ce serait un plus pour ces personnes agées et du poissons pour le vendredi lol

au plaisir de vous relire

bonne soirée

 

[pascal21]

Re : Planing repas cuisine

+1 POUR LES DIMANCHES
dans ce cas, pourquoi ne pas travailler sur plusieurs listes (1 par jour) et par repas (midi soir)
ça ne changerais pas grand chose à la macro
il faudrait simplement une macro de tirage par repas