Bonjour,

Voici mon problème.

Dans une feuille Excel (nommée base_brute), j'ai plusieurs colonnes dont 2 contiennent des dates (au format date) mais certaines cellules peuvent être vides.

Voici un exemple :
colonne M colonne R
04/02/2008 04/02/2008
30/01/2008
30/03/2007
30/01/2008 30/01/2008

Il faut que je repère les dates aberrantes, c'est à dire compter le nombre de fois où la date1 (colonne M) est supérieure à la date2 (colonne R). Je ne sais pas si je suis très claire ?!

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Tant qu'il y a des données dans la 1ere colonne
Do Until Sheets("base brute").Cells(i, 1) = ""
 
date_1 = Cells(i, 13)
date_2 = Cells(i, 18)
 
Diff = DateDiff("d", date_2, date_1)
 
If Sheets("base brute").Cells(i, 13) <> "" And Sheets("base brute").Cells(i, 18) <> "" And Diff > 0 Then
cpt = cpt + 1
i = i + 1
Else
i = i + 1
End If
Loop
 
Sheets("indicateurs_fiabilité").Cells(63, 5) = cpt
Ce code me renvoie "0".

Quelqu'un peut-il me donner des pistes ?? Je suis despérée Merci