VBA, Compter le nombre de date selon le retard en mois

[baptbapt]

Bonjour a tous

Voila, j'ai un nouveau problème qui survient.
J'aimerai déterminer le nombre de référence arrivé en retard.
Ici les dates sont, Date prévisionnel et Date de Reception

15/04/2004	10/05/2004
15/04/2004	10/05/2004
01/07/2004	08/09/2004
01/07/2004	08/09/2004
01/07/2004	08/09/2004
01/07/2004	
10/09/2004	23/12/2004
25/10/2004	28/09/2006
25/10/2004	30/01/2007
22/10/2004	20/01/2006
22/10/2004	20/01/2006

J'aimerai comptabiliser le nombre de référence selon les critères suivant
<1mois, <2mois, <6mois et >6mois

Sacant qu'il est possible de na pas encore avoir de date de réception.
(je pense qu'il faut donc prendre la date la plus éloigné comme date de référence et faire la coparaison a partir de cette date quand il n'y a pas de valeur.

Mais, le problème est la

Je sais comparer par rapport au année, mais pas avec de mois.

Merci d'avance

 

[baptbapt]

Re : VBA, Compter le nombre de date selon le retard en mois

J'arrive a botenir la date de référence (date la plus éloigné)

'Date de référence limite
Dim derldate As Long
derldate = Cells(65536, 13).End(xlUp).Row
g = Cells(1, 13).Value
For yx = 1 To derldate
    If g < Cells(yx, 13).Value Then
        g = Cells(yx, 13).Value
    End If
Next yx

Mais je n'arrive toujours pas a comparer en prenant en compte à la fois le mois et l'année

 

[baptbapt]

Re : VBA, Compter le nombre de date selon le retard en mois

Le problème classement est résolu (Réussi, comme un grand)

'Comparaison <1mois
ii = 0
For yu = 1 To derldate
    If Cells(yu, 14).Value = "" Then
        X = g - Cells(yu, 13).Value
    Else
        X = Cells(yu, 14).Value - Cells(yu, 13).Value
    End If
        If X <= 31 And Cells(yu, 14).Value <> "" Then
            ii = ii + 1
        End If
Next yu
Cells(derl + 10, 10).Value = ii

J'ai réussi a répéter le code pour <2mois, <6mois ...

par contre, nouveau problème auquel j'assiste.

J'aimerai faire ceux classement suivant l'année de la commande

Année cde	Prev	              Recep
10/08/2005	15/08/2005	16/09/2005
22/09/2005	26/09/2005	05/01/2006
11/01/2006	15/03/2006	16/03/2006

Soit ici

2005 1 élément <1mois
1 élément <6mois
2006 1 élément <1mois



Merci

 

[baptbapt]

Re : VBA, Compter le nombre de date selon le retard en mois

Dite le moi, s'il faut plus de détail dans mes explications.


Bon autre chose

j'aimerai arrivé a déterminer les pages de valeur pour effectuer mon classement par ratard

20/09/2004
20/09/2004
20/09/2004
20/09/2005
18/05/2006
18/05/2006
18/05/2006
18/05/2006
18/05/2006

Soit arrivé a déterminer 2004 de valeur 1à 3
2005 de valeur 4 à 4
2006 de valeur 5 à 9