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

XL 2019 Dates Anniversaires dans l'ordre

Caninge

XLDnaute Accro
Bonjour à tous,

Mon exemple est un extrait d'un arbre généalogique, Il y a une multitude de dates de naissances, baptêmes, décès...
(A partir de deux colonnes (Personnes + dates)
J'aimerais bien connaître les prochains anniversaires à partir de la date actuelle.
Bien entendu je veux connaitre la date des personnes encore vivantes.
Dans la feuille "Prochains Anniversaires "
Sur la première ligne : Louise va avoir 38 ans le 28 Avril 2021 et ainsi de suite pour tous les autres.
J'en appelle à vos talents exceptionnels d'utilisateurs d'Excel
CANINGE
 

Pièces jointes

  • Les Prochains Anniversaires V_1.xlsx
    11.7 KB · Affichages: 46
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Caninge à dit:
Elle est dans la feuille prochains anniversaires. Je n'arrive pas à trouver...Je te crois bien entendu
Cliquez pour agrandir...
Re..
Ce n'est pas une MFC
mais des cellules peinturlurées à la main et qui se baladent au gré des filtres à chaque mise à jour.
Pour supprimer
-Sélection des colonnes c:g
-Menu accueil==>section police
-Sélection du pot de peinture==>Aucun remplissage
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
Caninge à dit:
Je suis bête c'est pas possible...
Pas pensé à ça : n'importe quoi.
Merci Jacky. Tu es un être bien sympa.
Je dirais du bien de toi.
Cliquez pour agrandir...
Re..
Attention toutefois, si tu utilises cette version (V_2)
il y a une petite erreur sur cette ligne (Range("d3")..... et [g3],
Range("d3").CurrentRegion.Sort key1:=[g3], Order1:=xlAscending, Header:=xlNo
A remplacer par
Range("d4").CurrentRegion.Sort key1:=[g4], Order1:=xlAscending, Header:=xlNo
 

Pièces jointes

  • Les Prochains Anniversaires V_2.xlsm
    25.6 KB · Affichages: 16
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
Caninge à dit:
Bonjour à tous,
je reviens sur mon arbre généalogique.
Cette macro marchait très bien et maintenant elle bogue !
Je ne comprends pas ! Pouvez-vous me dépanner !
Merci
Cliquez pour agrandir...
Re..
Fonctionne donc plus de 1 an et maintenant bogue....
Il va falloir en dire un peu plus
Bogue ==> OK Y a t'il eu modification ?
Bogue ==> OK Sur quel ligne ?
Bogue ==> OK Y a t'il un message ?
Mettre le classeur avec ce bogue en PJ
 
Vote positif 0 Vote négatif

Caninge

XLDnaute Accro
Bonjour Jacky67,
La macro de la pièce jointe est identique au fichier de mon arbre généalogique.
Si tu trouves le problème (je n'en doute pas).
Je ferai simplement un copier-coller de la macro.
Merci
 
Vote positif 0 Vote négatif

Caninge

XLDnaute Accro
Ah ok, il y a bien longtemps que je n'ai pas utilisé ce fichier.
Alors si j'ai fait des modifications je ne m'en rappelle plus.
Cela provient peut-être de mon application EXCEL
C'est la ligne qui déconne :
For Each C In Feuil1.Range("d3.d" & Feuil1.Cells(Feuil1.Rows.Count, "d").End(xlUp).Row)
Erreur d'Exécution 1004 La méthode 'range' de l'objet '_Worksheet' a échoué
A plus
 

Pièces jointes

  • Les Prochains Anniversaires V_2.xlsm
    25.6 KB · Affichages: 7
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Caninge, Jacky67,

Il suffit de remplacer :
For Each C In Feuil1.Range("d3.d" & Feuil1.Cells(Feuil1.Rows.Count, "d").End(xlUp).Row)

par :
For Each C In Feuil1.Range("d3:d" & Feuil1.Cells(Feuil1.Rows.Count, "d").End(xlUp).Row)

A+
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
job75 à dit:
Bonjour Caninge, Jacky67,

Il suffit de remplacer :
For Each C In Feuil1.Range("d3.d" & Feuil1.Cells(Feuil1.Rows.Count, "d").End(xlUp).Row)

par :
For Each C In Feuil1.Range("d3:d" & Feuil1.Cells(Feuil1.Rows.Count, "d").End(xlUp).Row)

A+
Cliquez pour agrandir...
Hello job75
Merci d'avoir pris la relève
Une bizarrerie de mon vieux Excel qui se fiche de cette erreur et fonctionne aussi bien avec le "." qu'avec le ":"
Mapomme avait déjà solutionné une de mes erreurs du même genre
Il faudra que je fasse plus attention à mes fautes de frappe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…