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

XL 2019 Compte à rebours Résolu

Paulle

XLDnaute Occasionnel
Bonjour,

J’ai tenté, mais sans y parvenir un compte à rebours du nombre de mois et de jours avant la date anniversaire.

S’il y a une date de décès, les cellules jours et mois anniversaire restent vides.

Comment faire ?

Merci.
 

Pièces jointes

  • Anniversaire01.xlsm
    19.8 KB · Affichages: 9

Paulle

XLDnaute Occasionnel
C'est normal s'il y a une date de décès que les cellules restes vides.
Je veux le nombre de mois et le nombre de jours pour atteindre le prochain anniversaire.
Ce sont les formules en I et J qui ne sont pas les bonnes.
Les mois et les jours restants ne correspondent pas à la réalité.
 

Paulle

XLDnaute Occasionnel
Merci JHA, je vérifie.

Merci patrick, mais ça ne colle pas. Si je prends la première date : 26/04/1963 pour aller au 26/04/2023 il y a moins de 9 mois et 7 jours comme cela est dit dans ton fichier.
 

Paulle

XLDnaute Occasionnel
JHA, j'ai vérifié et cela fonctionne.

Patrick, j'ai quelques notions de vba. Je veux bien que tu me donnes le lien sur le forum de la fonction datedifAMJ. J'ai fait la recherche mais je n'ai pas trouvé.
 

Paulle

XLDnaute Occasionnel
Patrick, je me suis servi de la fonction DATEDIFF_AMJ4.
Pour l'age, j'ai résolu. Mais pour le nombre de mois et de jours entre aujourd’hui et le prochain anniversaire je n'ai pas trouvé.
 

Pièces jointes

  • Anniversaire02VBA.xlsm
    26 KB · Affichages: 6

patricktoulon

XLDnaute Barbatruc
re
j'ai modifier ma fonction rien que pour toi
elle renvoie les années ou mois ou jours restant

principe
pour les années
=datediffAMJ4( unedate ; une autre date ; 1)
pour les mois restants
=datediffAMJ4( unedate ; une autre date ; 2)
pour les jours restants
=datediffAMJ4( unedate ; une autre date ; 3)

une autre date peut valoir 0 dans ce cas là c'est considéré par ma fonction comme aujourd'hui
donc exemple pour ton tableau on met quand mème la colonne deces memes i elle est vide
=DATEDIFF_AMJ4([@[Date_Naissance]];[@[Date_Deces]];1)
je répète
1 pour les ans
2 pour les mois
3 pour les jours


donc pour les colonnes mois et jour tu fait comme avant

mois
=SI([@[Date_Deces]]="";DATEDIFF_AMJ4([@[Date_Naissance]];0;2);"")

jour
=SI([@[Date_Deces]]="";DATEDIFF_AMJ4([@[Date_Naissance]];0;3);"")

terminé
 

Pièces jointes

  • Anniversaire02VBA.xlsm
    19.3 KB · Affichages: 6

Paulle

XLDnaute Occasionnel
Ligne 4, la date de naissance est 26/04/1963. Il est affiché anniversaire 9 mois 8 jours.
Aujourd'hui le 03/02/2023.
Le 03/03/2023 = 1 mois.
Le 03/04/2023 = 2 mois.
Et du 03/04/2023 au 26/04/2023 = 23 jours.
Donc 2 mois 23 jours.

Il n'y a que la ligne 6 qui me semble correcte.
 

Pièces jointes

  • Anniversaire03VBA.xlsm
    25.9 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
re
26/04/1963 + 4 jours et 8 mois on arrive à 31/12/1963 a minuit révolu
31/12/1963 + 59 ans on arrive à 31/12/2022
aujourd'hui le 03/02/2023 c'est 1 mois et 3 jours toujours minuit révolu
donc 59 ans +8 mois + 1 mois + 4 jours + 3 jours
on arrive à 59 ans 9 mois et 7 jours
ben chez moi c'est bon

 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…