Format de Date et Calcul d'une durée sous VBA

:cry:Bonjour à tous,
je rencontre un petit soucis sur VBA: en fait je souhaite que excel me calcule la différence entre la date du jour (Datetime.now) et une date saisie dans une feuille excel, seulement il ne semble pas comprendre que la cellule de la feuille est une date.
Pour info voici ma macro:

Code:

---

1 2 3 4 5 6 7 8 9

Dim anc_voit As Range Dim nb_anc_voit As Integer   Sheets("Voiture").Select nb_anc_voit = 0 For Each anc_voit In Range("H2", Selection.End(xlDown)) If Date.Now - date.value("anc_voit") >= 5 Then nb_anc_voit = nb_anc_voit + 1 Next

---

Mon objectif étant de calculer le nombre de voiture ayant un âge d'au moins 5 ans.
Seulement avec cette macro, excel bug au niveau du IF

Si quelqu'un a une solution j'en serais extrement reconnaissante :)
Ayant passé ma journée dessus je désespère!!!

en vous remerciant
Bien cordialement;
Julie

bonjour,

tu définis une variable : anc_voit comme Range autrement dit comme une cellule il faut donc utiliser cette variable comme une variable et non pas comme une référence de cellule

Code:

---

If Date.Now - date.value("anc_voit")

---

devient alors

Code:

---

If date - anc_voit.value >= 5 then

---

maintenant un simple formule aurait pu te le faire et plus rapidement

Bonjour,

Une autre solution en utilisant DateDiff

Code:

---

1 2	If DateDiff("yyyy", Now, anc_voit.Value) >= 5 Then nb_anc_voit = nb_anc_voit + 1

---

Bonjour jérôme et wilfried !

Je vous remercie de votre intérêt mais il semble que la boucle for each ne prend en compte que des données types variant ou object, ainsi sauf erreur de ma part vos solutions me renvoient à un résultat de 0,
toutefois je viens juste de trouver une solution qui me convient et que je vous soumet :

Code:

---

1 2 3 4

For Each anc_voit In Range("H2", Selection.End(xlDown)) Selection.NumberFormat = "dd/mm/yyyy" If Year(Date) - Year(anc_voit) > 5 Then nb_anc_voit = nb_anc_voit + 1 Next

---

Elle a le défaut de ne prendre en compte que l'année de la date en cours mais ça me suffira pour l'instant.

En vous remerciant très sincèrement.

Cordialement,
Julie

re:

il y a d'autre incohérences dans ton code, tu selectionnes une feuille, mais pas de cellule, où est la selection ?

Code:

---

1 2 3 4 5 6

Dim anc_voit As Range Dim nb_anc_voit As Integer nb_anc_voit = 0 For Each anc_voit In sheets("Voiture").Range("H2:H" & sheets("Voiture").range("H65536").End(xlUP)) If Date.Now - date.value("anc_voit") >= 5 Then nb_anc_voit = nb_anc_voit + 1 Next

---

re wilfried
La feuille en question a été sélectionné au dessus de ce code
le problème c'est qu'avec la formule

Code:

---

Date.Now - date.value("anc_voit")

---

excel me renvoie systématiquement la valeur de 0 ayant tester à plusieurs reprises, je pense que la valeur de ma feuille

mais pour avoir tester mon code je puis vous assurer qu'il fonctionne :

Code:

---

1 2 3 4 5 6 7 8

Dim anc_voit As Range, nb_anc_voit As Integer Sheets("Voiture").Select Range("H2").Select nb_anc_voit = 0 For Each anc_voit In Range("H2", Selection.End(xlDown)) Selection.NumberFormat = "dd/mm/yyyy" If Year(Date) - Year(anc_voit) > 5 Then nb_anc_voit = nb_anc_voit + 1 Next

---

en vous remerciant,
julie

Citation:

---

elle a le défaut de ne prendre en compte que l'année de la date en cours mais ça me suffira pour l'instant

---

Je ne sais pas si cela marche comme en VB6, mais pourquoi ne pas spliter la date du jour en trois variables (année, mois et jour) et ainsi tu pourrai gérer les mois et jours.

re:

Code:

---

Date.Now - date.value("anc_voit")

---

je ne comprends pas cette ligne

Code:

---

1 2 3 4 5

Sub essai() MsgBox Now ' donne la date et l'heure MsgBox Date ' donne la date MsgBox DateValue("01/01/2011") ' transforme en format date End Sub

---

Date.value je ne connais pas
date.now je ne connais pa
Mais datevalue("anc_voit") donnera 0
dans mon premier poste : je t'expliquais comment utiliser une variable de type range : Dim anc_voit as Range : c'est ton programme
je ne comprends pas pourquoi cela ressort maintenant

dans le 2eme message : je te dis que tu selectionnes une feuille mais pas de cellule. tu me reponds si la selection est faite au dessus effectivement tu selectionnes une feuille et toujours pas une cellule. es tu certain de savoir quelle cellule est selectionnée ?

Code:

---

1 2 3 4 5 6

Dim anc_voit As Range Dim nb_anc_voit As Integer nb_anc_voit = 0 For Each anc_voit In sheets("Voiture").Range("H2:H" & sheets("Voiture").range("H65536").End(xlUP)) If Date - anc_voit.value >= 5 Then nb_anc_voit = nb_anc_voit + 1 Next

---