Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.

Lu76Fer

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

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

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éponses
9
Affichages
448
  • Question
Microsoft 365 Listbox
Réponses
3
Affichages
260
Réponses
11
Affichages
474
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…