XL 2019 Dates Anniversaires dans l'ordre

[Caninge]

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

 

[Caninge]

Merci Jacky,
Je voulais savoir c'est quoi la MFC en jaune ?
A plus

 

[Jacky67]

Merci Jacky,
Je voulais savoir c'est quoi la MFC en jaune ?
A plus

Re..
Je n'ai pas de MFC en jaune, du moins pas dans la dernière version.
S'il devait en avoir une, je n'en suis pas à l'origine, je le jure ✋

 

[Caninge]

Elle est dans la feuille prochains anniversaires. Je n'arrive pas à trouver...Je te crois bien entendu

 

[Jacky67]

Elle est dans la feuille prochains anniversaires. Je n'arrive pas à trouver...Je te crois bien entendu

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

 

[Caninge]

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.

 

[Jacky67]

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.

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

 

[Caninge]

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

 

[Jacky67]

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

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

 

[Caninge]

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

 

[Jacky67]

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

Re..
C'est que je n'ai pas de problème avec le dernier classeur que j'ai mis en ligne
Tu ne réponds à aucune de mes questions🙄

 

[Caninge]

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

 

[job75]

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+

 

[Jacky67]

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+

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

 

[Caninge]

Et bien voilà j'aurais pu voir l'anomalie peut-être ! mais je suis pas assez calé pour trouver cela.
Merci bien à tous les deux et à la prochaine fois.
Caninge