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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Caninge
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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

Trier par date Trier par votes
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
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

Vote positif 0 Vote négatif
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
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
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

Vote positif 0 Vote négatif
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…