Calcul entre deux dates

S

StrikeBEH

XLDnaute Occasionnel

• 6 Décembre 2015

• #16

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...

 

Pièces jointes

• Test Age.xlsm

  15.6 KB · Affichages: 53
• Test Age.xlsm

  15.6 KB · Affichages: 51

Dernière édition: 6 Décembre 2015

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 6 Décembre 2015

• #17

Re : Calcul entre deux dates

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Décembre 2015

• #18

Re : Calcul entre deux dates

Re...

StrikeBEH à dit:

(...)
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...

Cliquez pour agrandir...

Essayez en ajoutant la ligne

Code:

Application.Volatile

après la ligne

Code:

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

 

Vote positif 0 Vote négatif

S

StrikeBEH

XLDnaute Occasionnel

• 7 Décembre 2015

• #19

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

Code:

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

 

Pièces jointes

• Test Age.xlsm

  17.1 KB · Affichages: 53
• Test Age.xlsm

  17.1 KB · Affichages: 53

Vote positif 0 Vote négatif

S

StrikeBEH

XLDnaute Occasionnel

• 7 Décembre 2015

• #20

Re : Calcul entre deux dates

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Décembre 2015

• #21

Re : Calcul entre deux dates

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

S

StrikeBEH

XLDnaute Occasionnel

• 7 Décembre 2015

• #22

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à ?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Décembre 2015

• #23

Re : Calcul entre deux dates

Bonjour à tous,

Les macros sont activées ?



A+ à tous

 

Pièces jointes

• Capture 1.png

  4.5 KB · Affichages: 64

Vote positif 0 Vote négatif

S

StrikeBEH

XLDnaute Occasionnel

• 7 Décembre 2015

• #24

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é"...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Décembre 2015

• #25

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

 

Vote positif 0 Vote négatif

S

StrikeBEH

XLDnaute Occasionnel

• 8 Décembre 2015

• #26

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..

 

Vote positif 0 Vote négatif

L

le feuvre

XLDnaute Nouveau

• 5 Février 2017

• #27

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

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

 

Dernière édition: 5 Février 2017

Vote positif 0 Vote négatif