Microsoft 365 Image gâteau d'anniversaire

laurent3372

XLDnaute Impliqué

Supporter XLD

• 4 Février 2020

• #2

Bonsoir,
Il n'y a pas de date de naissance dans ton fichier exemple.

 

Vote positif 0 Vote négatif

P

Piksaw

XLDnaute Junior

• 4 Février 2020

• #3

laurent3372 à dit:

Bonsoir,
Il n'y a pas de date de naissance dans ton fichier exemple.

Cliquez pour agrandir...

dans la feuille variable j'ai fait une liste fictif prénom et date anniversaire

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 4 Février 2020

• #4

J'ai codé les formules qui permettent de dire s'il faut afficher le gâteau ou pas.
Pour afficher le gâteau, il faudrait une macro en VBA. Je ferai ça plus tard.
En PJ, le fichier avec VRAI ou FAUX dans la colonne B de la feuille Journalier.
J'ai remplacé le =AUJOURDHUI() de la case $C$1 par une date saisie manuellement, pour pouvoir effectuer des tests.
J'ai défini les noms suivants:

Nom	Fait référence à
Anniversaire	=DATE(AnCourant;MOIS(Journalier!DateNaissance);JOUR(Journalier!DateNaissance))
Anniv_est_Férié	=NON(ESTNA(EQUIV(Anniversaire;Feriés;0)))
Anniv_hors-F érié	=SI(Anniv_est_Férié;Anniversaire+1;Anniversaire)
Anniv_hors_WE	=SI(JOURSEM(Anniv_hors_Férié;11)>5;Anniv_hors_Férié+(8-JOURSEM(Anniv_hors_Férié;11));Anniv_hors_Férié)

 

Pièces jointes

• Anniv.xlsx

  36 KB · Affichages: 15

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #5

Bonjour @Piksaw, @laurent3372,

Voyez le fichier joint qui n'utilise qu'une formule dans les cellules de la colonne B et utilise un caractère en police "Webdings" pour afficher un verre (et non une image qui complique tout).

Formule en B3 à copier et coller sur les autres cellules concernées de la colonne B
=SI(SOMMEPROD((A3=Variables!$J$5:$J$16)*(TEXTE($C$1;"jjmm")=TEXTE(Variables!$K$5:$K$16;"jjmm")))>0;"å";"")

Les cellules concernées de la colonne B sont en police "Webdings".

 

Pièces jointes

• Piksaw- Anniversaire- v1.xlsx

  35.5 KB · Affichages: 15

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 5 Février 2020

• #6

@mapomme: Bonsoir,
tu ne testes pas les WE ni les jours fériés.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #7

laurent3372 à dit:

tu ne testes pas les WE ni les jours fériés.

Cliquez pour agrandir...

J'avais sauté cette demande 🙁 😵. Une formule plus complexe devrait faire l'affaire. Je m'y remets mais demain seulement...
ça va être difficile à tester ; il faudra attendre ce week-end ? 😉

Bonne-nuit !

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 5 Février 2020

• #8

J'ai fait la synthèse de nos deux solutions. Voici le résultat:

Bonne nuit à tous

 

Pièces jointes

• Anniv (1).xlsx

  36.1 KB · Affichages: 25

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #9

Re @laurent3372 🙂,

Puisque c'est comme ça, je vais me coucher serein 😳. Piksaw a sa solution (grâce à toi).

Bonne-nuit.

 

Vote positif 0 Vote négatif

P

Piksaw

XLDnaute Junior

• 5 Février 2020

• #10

Hello ! merci beaucoup jolie surprise en me réveillant ce matin 🙂

tout fonctionne parfaitement !!!

est-ce possible tout de même d'avoir une version VBA avec le gâteau ça serait la cerise sur le gâteau hahaha bon ok la vanne un peu pourri j'avoue

Une bonne journée

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 5 Février 2020

• #11

La voilà, la cerise !

Il faut penser à remettre =AUJOURDHUI() en $C$1 lorsque les tests sont terminés

 

Pièces jointes

• Anniv (2).xlsm

  57.7 KB · Affichages: 17

Vote positif 0 Vote négatif

P

Piksaw

XLDnaute Junior

• 5 Février 2020

• #12

laurent3372 à dit:

La voilà, la cerise !

Il faut penser à remettre =AUJOURDHUI() en $C$1 lorsque les tests sont terminés

Cliquez pour agrandir...

hahaha merci beaucoup parc contre quand je vais dans la feuille variable pour entré les vrai prénom et les dates anniversaires il me renvoie une erreur visual basic erreur d'exécution il me dit l'élément portant ce nom est introuvable

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 5 Février 2020

• #13

Peux-tu poster ton fichier mis à jour ?

 

Vote positif 0 Vote négatif

P

Piksaw

XLDnaute Junior

• 5 Février 2020

• #14

laurent3372 à dit:

Peux-tu poster ton fichier mis à jour ?

Cliquez pour agrandir...

Re, voilà le fichier avec les bonne date et prénom

 

Pièces jointes

• Anniv (2).xlsm

  57.4 KB · Affichages: 4

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 5 Février 2020

• #15

J'ai arrangé les noms de champs, et créé des tables structurées dans la feuille Variables pour que tous les tableaux soient de taille dynamique.

 

Pièces jointes

• Anniv (3).xlsm

  59.6 KB · Affichages: 17

Vote positif 0 Vote négatif