Discussion :

[julieko]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devient alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If date - anc_voit.value >= 5 then

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

[jfontaine]

Bonjour,

Une autre solution en utilisant DateDiff

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[julieko]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

re:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[julieko]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[petit rabot]

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.

[wilfried_42]

re:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je ne comprends pas cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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