Microsoft 365 Liste anniversaires

JPC33

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

Pièces jointes

  • Anniversaires essai.xlsm
    47.5 KB · Affichages: 12
Solution
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Anniversaires essai (V2).xlsm
    43.3 KB · Affichages: 10

JPC33

XLDnaute Junior
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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"
 

Pièces jointes

  • Anniversaires essai (V3).xlsm
    43.6 KB · Affichages: 11

JPC33

XLDnaute Junior
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.
 

Pièces jointes

  • Anniversaires Z.xlsm
    45.6 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Anniversaires Z ESSAI.xlsm
    43.2 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
Test4.gif
 

JPC33

XLDnaute Junior
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 ?
 

Pièces jointes

  • Anniversaires ZODIAQ.xlsm
    43 KB · Affichages: 7

JPC33

XLDnaute Junior
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.
 

Pièces jointes

  • ANNIVERSAIRES 1800.xlsm
    85.9 KB · Affichages: 1
  • ANNIVERSAIRES 1900.xlsm
    55.3 KB · Affichages: 0
  • ANNIVERSAIRES 1800TFB.xlsm
    80.9 KB · Affichages: 2
Dernière édition:

Discussions similaires

  • Résolu(e)
Microsoft 365 kutools
Réponses
29
Affichages
1 K

Statistiques des forums

Discussions
313 329
Messages
2 097 234
Membres
106 883
dernier inscrit
Papalo