Microsoft 365 Liste anniversaires

[JPC33]

Bonsoir à tous
J'ai une liste avec macros et j'ai quelques soucis;
Fichier joint.
Merci de votre aide.

 

[Lu76Fer]

Bonsoir,
Il y a nom de fonction en allemand dans le code, sinon le problème n'est pas clairement exposé ... Le fait d'associer l'évènement OnCalculate à la fonction TagMonatEintragen semble lancer le programme en boucle ...

 

[sylvanu]

Bonsoir JPC, Lu76Fer,
Un essai en PJ.
J'ai simplifié la macro auto open de façon qu'elle ne se réappelle pas en boucle. A tester.
NB1: J'ai aussi modifié le tri qui donnait une erreur, j'ai trié sur le Nom.
NB2: Il y a une erreur sur Claude qui est mort avant de naitre.

 

[JPC33]

Bonsoir,
Il y a nom de fonction en allemand dans le code, sinon le problème n'est pas clairement exposé ... Le fait d'associer l'évènement OnCalculate à la fonction TagMonatEintragen semble lancer le programme en boucle ...

Je vous remercie pour votre recherche. Ce n'est pas évident.

Bonsoir JPC, Lu76Fer,
Un essai en PJ.
J'ai simplifié la macro auto open de façon qu'elle ne se réappelle pas en boucle. A tester.
NB1: J'ai aussi modifié le tri qui donnait une erreur, j'ai trié sur le Nom.
NB2: Il y a une erreur sur Claude qui est mort avant de naitre.

Bonjour Sylvanu et à tous,
Je vous remercie Sylvanu pour votre précieuse aide. C'est une application sur un CD qui date d'une 20ne d'années à laquelle j'ai rajouté le décès, l'âge et le zodiaque. J'aurais préféré que le tri, sur le calendrier, se fasse sur les mois et jours mais c'est déjà mieux et je vous en remercie encore.
Bonne journée.

 

[sylvanu]

J'aurais préféré que le tri, sur le calendrier, se fasse sur les mois et jours

Il suffit de modifier la ligne de tri :

Range("B1:J" & DL).Sort Key1:=[E1], Order1:=xlDescending, Key2:=[F1], Order2:=xlDescending, Header:=xlYes

Si vous le voulez en ordre croissant dans ce cas remplacez "xlDescending" par "xlAscending"

 

[JPC33]

Bonjour Sylvanu et à tous
Mes remerciements au lendemain de votre dernier message ne sont pas passés , veuillez m'excuser. Je joins un dernier fichier, ça fonctionne il faut juste un double-clic sur trier au lieu d'un simple clic.
Merci encore pour votre précieuse aide et bonne journée.

 

[sylvanu]

Bonjour JPC,

ça fonctionne il faut juste un double-clic sur trier au lieu d'un simple clic.

Ca m'étonne. Il faut un simple clic pour trier. ( si c'est bien d'un appui sur le bouton jaune TRIER dont on parle)
Testez cette PJ pour essai. J'ai rajouter un msgbox à l'entrée de la macro. Un simple clic fait apparaitre le message.

 

[JPC33]

Merci Sylvanu
J'ai essayé sur mon PC. Avec un simple clic et OK rien ne se passe (Tri en cours) et double-clic avec OK le tri s'effectue.

 

[sylvanu]

Sur mon PC, Win10 et XL2007, je n'observe pas ce phénomène.
D'ailleurs la macro ne devrait pas nécessiter de double clic pour être exécutée.

 

[JPC33]

J'ai affiché les colonnes E et F
1er clic : tri du mois colonne E s'effectue
2e clic : tri du jour colonne F et le tri complet s'effectue.

 

[JPC33]

Bonsoir à tous
Je viens de m'apercevoir que la feuille 'Astro' n'était plus dans le classeur !
Je joins donc un nouveau fichier.
La feuille 'Anniversaires' n'est pas en tableau structuré car le chiffre 30 s'affiche alors en colonne B dans la feuille Calendrier. Pourquoi ?

 

[JPC33]

Bonjour à tous
Avec les formules de JHA, que je remercie, ainsi que TooFatBoy et Sylvanu, je joins un calendrier anniversaires à partir de 1800 jusqu'en 2070 et un autre à partir de 1900.
Bonne journée à vous.