Calcul entre deux dates

[StrikeBEH]

Bonjour à tous,

Je souhaiterai, entre une date donnée et la date du jour, le nombre d'année(s), de mois et de jours...

Du style; Résultat = 1 an, 2 mois et 10 jours (pour calculer l'ancienneté)

J'ai bien essayé avec DateDiff mais je n'arrive pas combiner année(s) mois et jours...

Merci à vous

 

[StrikeBEH]

Re : Calcul entre deux dates

En xlsm Victor21

Quand je ferme le classeur, que je change la date système, et que je ré-ouvre le classeur la cellule "C4" ne s'actualise pas...

 

[Victor21]

Re : Calcul entre deux dates

Re,
Entrez =aujourdhui() en A6 par exemple, modifiez votre date système, rouvrez votre fichier. Que voyez-vous ?

 

[ROGER2327]

Re : Calcul entre deux dates

Re...

(...)
Quand je ferme le classeur, que je change la date système, et que je ré-ouvre le classeur la cellule "C4" ne s'actualise pas...

Essayez en ajoutant la ligne

Application.Volatile

après la ligne

Function Age(d As Date) As String

ℝOGER2327
#8128

Vendredi 6 Sable 143 (Saint Navet et Sainte Perruque, humanistes - fête Suprême Quarte)
15 Frimaire An CCXXIV, 9,6599h - chevreuil
2015-W49-7T23:11:01Z

 

[StrikeBEH]

Re : Calcul entre deux dates

Bonjour ROGER2327 et bonjour à tous,

j'ai testé avec Application.Volatile comme indiqué et cela ne fonctionne pas non plus...🙁
Par contre j'ai trouvé une solution, mais peut-être en existe-t-il une meilleurs ?
Faute de mieux, je me contenterai de celle-ci, que je vous expose:

Dans l'objet Excel "ThisWorkbook", j'ai ajouté ceci

Private Sub Workbook_Open()
Range("A1") = "18-04-2014"
End Sub

Quand je ferme le classeur, que je change la date système puis ré-ouvre le classeur, "l'Anciennté" se met à jour...

Ci-joint le fichier

 

[StrikeBEH]

Re : Calcul entre deux dates

Pas d'autre(s) solution(s) plus "académique(s)" que celle que j'ai trouvé ?

 

[JCGL]

Re : Calcul entre deux dates

Bonjour à tous,

Les solutions proposées devraient fonctionner...
Es-tu bien en Calcul Automatique ?

A+ à tous

 

[StrikeBEH]

Re : Calcul entre deux dates

Bonsoir JCGL,
Avec "Applicaton.Volatile" cela ne fonctionne pas... Pourquoi ? Je ne sais pas !

Quant aux calculs automatiques, qu'entends-tu par là ?

 

[JCGL]

Re : Calcul entre deux dates

Bonjour à tous,

Les macros sont activées ?



A+ à tous

 

[StrikeBEH]

Re : Calcul entre deux dates

Bien sûr que les macros sont activées ! 🙂
Si tu regardes l'extension de mon fichier joint, c'est .xlsm...
Mon projet n'est basé que sur des macros et non pas à partir de feuilles avec des formules.
Je n'aime pas cette solution car en plus ce projet est destiné à plusieurs utilisateurs néophytes...
Donc il faut que tout soit "automatisé"... 🙂

 

[JCGL]

Re : Calcul entre deux dates

Bonjour à tous,

Ce n'est pas parce que ton fichier supporte les macros, donc *.xlsm, que celles ci sont activées...
Toutes les solutions proposées fonctionnent parfaitement chez moi.

A+ à tous

 

[StrikeBEH]

Re : Calcul entre deux dates

Et bien pas chez moi...
Peut-être est-ce du au fait que j'ai la version 64 bits et que certaines fonctions ne fonctionnent pas contrairement à la version 32 bits..

 

[le feuvre]

Bonjour

j'essaie d'intégrer la formule age qui a été écrite ci dessus dans un Userform

je rentre donc la date dans un textbox

mais j'ai un décalage d'un jour..

par exemple : on est le 05/02/2017
je rentre le 04/02/2017
et j'obtiens 0 jour en résultat.

petite précision : j'ai remplacé aa = now() par aa = date dans la déclaration de la fonction Age

voici le bout de code

Private Sub TextBox23_Change()
Dim Valeur As Byte
TextBox23.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TextBox23) 'calcul de la longueur de la saisie dans le TextBox
If Valeur = 2 Or Valeur = 5 Then TextBox23 = TextBox23 & "/" 'si 2 ou 5 caractères saisis alors on positionne un /
If Valeur = 10 Then
TextBox38.Value = Age(TextBox23.Value)

End If
End Sub

merci de vos lumieres