XL 2021 Problème VBA

[Bensi]

Bonjour,

Après construction du fichier ci-joint. Je bloque sur deux petits points.

Pour contexte, c'est un fichier qui permet à un client de choisir ses menus.
Les menus changent en fonction du nombre de personnes.
Le client saisit le nombre de convives dans la cellule D7. Puis choisit son menu via la liste qui s'affiche en E7.
Actuellement, il n'y a que 3 menus qui s'affichent (ce sont les menus si D7>25).

1. J'aimerais que la macro propose 3 autres menus dans la cellule E7 si le nombre de convives est inférieurs à 25. J'ai bien écris le code avec les Else If mais elle ne le prend pas en compte. Auriez-vous une idée de la raison ?

Une fois le menu choisit, le client peut choisir ses plats qui s'affichent dans F15:H15.
2. J'ai voulu modifié les cellules dans lesquelles le choix des plats apparaissaient. Au lieu des F15:H15, j'ai tout passé à B15😀15 mais alors... plus rien ne s'affiche :-(

Je me permets de vous joindre le fichier.

Un grand merci encore pour votre aide.

 

[Gégé-45550]

Bonjour,

Après construction du fichier ci-joint. Je bloque sur deux petits points.

Pour contexte, c'est un fichier qui permet à un client de choisir ses menus.
Les menus changent en fonction du nombre de personnes.
Le client saisit le nombre de convives dans la cellule D7. Puis choisit son menu via la liste qui s'affiche en E7.
Actuellement, il n'y a que 3 menus qui s'affichent (ce sont les menus si D7>25).

1. J'aimerais que la macro propose 3 autres menus dans la cellule E7 si le nombre de convives est inférieurs à 25. J'ai bien écris le code avec les Else If mais elle ne le prend pas en compte. Auriez-vous une idée de la raison ?

Une fois le menu choisit, le client peut choisir ses plats qui s'affichent dans F15:H15.
2. J'ai voulu modifié les cellules dans lesquelles le choix des plats apparaissaient. Au lieu des F15:H15, j'ai tout passé à B15😀15 mais alors... plus rien ne s'affiche :-(

Je me permets de vous joindre le fichier.

Un grand merci encore pour votre aide.

Bonjour,
C'est ça que vous voulez ?
Cordialement,

 

[sylvanu]

Bonjour Bensi, et bienvenu sur XLD, bonjour Gégé.
Un essai en PJ avec :
- Feuille Liste les deux listes déroulantes des menus ( feuille masquée )
- En E7 la liste déroulante :

=SI($D$7>=25;MenuSup25;MenuInf25)

- Dans le code on ajoute si le type de menu n'est pas compatible du nombre de convives :

Case Else
    MsgBox "Le choix du menu ne correspond pas au nombre de convives."

Une fois le menu choisit, le client peut choisir ses plats qui s'affichent dans F15:H15.

Par contre pour ce point, pas compris, il n'y a rien en F15:H15. Pouvez vous être plus explicite. 😉
Peut être que les menus pourraient être détaillés dans la feuille Listes ?

 

[fanfan38]

Bonjour à tous
Je l'ai fait donc ci joint ma proposition

A+ François

 

[Bensi]

Un grand merci à tous.
Avec vos différents retours, j'ai pu créer le fichier comme je le souhaitais.
Il me reste juste un petit soucis à régler.
Quand le nombre de convives est inférieur à 25.
Si le client choisi le menu à 49€, j'ai fait inséré les choix des plats sur les cellules B15&B16, C15&C16 puis D15&D16.
Mais si on repasse avec un menu à 29€, les lignes restent renseignées. A quel niveau doit je indiquer que pour un changement de menu, les cellules B15&B16, C15&C16 puis D15&D16 doivent être effacées ?

Un grand merci.

 

[Gégé-45550]

Un grand merci à tous.
Avec vos différents retours, j'ai pu créer le fichier comme je le souhaitais.
Il me reste juste un petit soucis à régler.
Quand le nombre de convives est inférieur à 25.
Si le client choisi le menu à 49€, j'ai fait inséré les choix des plats sur les cellules B15&B16, C15&C16 puis D15&D16.
Mais si on repasse avec un menu à 29€, les lignes restent renseignées. A quel niveau doit je indiquer que pour un changement de menu, les cellules B15&B16, C15&C16 puis D15&D16 doivent être effacées ?

Un grand merci.

Bonjour,
Voyez ma proposition, celle du #2, ce problème n'y existe pas.
Cordialement

 

[Bensi]

Un grand merci à tous.
Je suis à deux doigts d'arriver là ou je le souhaitais.
Il n'y a plus que deux points bloquants.
1. Dans le nouveau fichier, en colonne B21, je souhaite insérer une petite notification "Choix à l'ardoise le soir de la prestation".
Cette notification ne doit apparaitre que pour les menus à 49 et à 75€. J'aimerais qu'elle disparaisse systèmatiquement avec le choix de tout autre menu.
2. J'ai une liste déroulante qui s'affiche en D20. Impossible de la supprimer :-(

Encore un grand merci à tous.

 

[sylvanu]

Re,
1- Rajoutez en début de macro :

Range("B21").Value = ""
et ajoutez en Menu à 75€ :
Range("B21").Value = "Choix à l'ardoise le soir de la prestation"

2- En D20 faites Données/Validation de données et cliquez sur "Effacer tout".

 

[Bensi]

C'est parfait.
Merci à tous pour votre aide.
Tout est bon !!