Discussion :

[delfine69]

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

[aalex_38]

Bonjour,

En reprenant ton code, j'en ai écrit un autre pour tester (à adapter)
Ceci fonctionne chez moi (si j'ai bien compris) :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub testdatediff()
 
Dim Maplage As Range
Dim MaFeuille As String
Dim Macellule As Range
Dim Cpt As Long
Dim date_1 As Variant
Dim date_2 As Variant
 
MaFeuille = "TestDif"
Set Maplage = Sheets(MaFeuille).Range("A10:A35")
 
For Each Macellule In Maplage
    date_1 = Cells(Macellule.Row, 1).Value
    date_2 = Cells(Macellule.Row, 2).Value
 
    If Not IsDate(date_1) Or Not IsDate(date_2) Then
        Cpt = Cpt + 1
    Else
        Diff = DateDiff("d", date_2, date_1)
        If Diff > 0 Then
            Cpt = Cpt + 1
        End If
    End If
Next
 
MsgBox Cpt
 
End Sub

Tu dis.

Edit : Cpt en type Long

[BATISSEUR]

bonjour,
si j'ai bien compris, avec les données de ton exemple il est normal que cpt=0 car les trois conditions ne sont jamais remplies ensemble,ou plutot on n'a jamais DIFF>0 . (DIFF = 0 )
si j'ai bien compris..

[delfine69]

Merci pour vos messages.

J'ai essayé de reprendre le code d'aalex_38, mais ça ne fonctionne pas. Le compteur s'incrémente et fait planter le PC.

J'ai tenté un code plus simple :

Code :

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

1
2
3
4
5
6
7
 
If Sheets("base brute").Cells(i, 13) <> "" And Sheets("base brute").Cells(i, 18) <> "" And Sheets("base brute").Cells(i, 13) > Sheets("base brute").Cells(i, 18) Then
    cpt = cpt + 1
    i = i + 1
Else
    i = i + 1
End If

Ce code fonctionne. J'ai bien une valeur qui m'est retournée cependant le résultat est faux. C'est donc un problème de format ?!
Si je fais la différence entre les dates (avec dateval sous Excel), j'obtient le bon nb de cellules où date1>date2.

Je suis débutante. Ayez un peu d'indulgence car ma requête doit peut être vous paraitre bête

[aalex_38]

Mon exemple plante, peux être Cpt devrait être de type long ?
Désolé.

[Invité]

Bonsoir,

Le code de Aalex_38 fonctionne très bien chez moi, si l'une des 2 cellules ne contient pas une date ou si la date de la 2ème colonne est supérieure à celle de la première colonne (sinon la différence est négative) et compte tenu de votre condition :

Code :

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

1
2
3
If Diff > Then
Cpt = Cpt + 1 
       End If

le compteur ne s'incrémente pas. Est-ce bien ce que vous voulez ?

[BATISSEUR]

peut être un problème de définition du problème?
dans ce que j'ai compris, tu cherches à compter le nombre de couples de dates valides ( d1 n'est pas vide ET d2 non plus ET d2 - d1 est strictement(!) positif)
Dans l'exemple ci dessous ( d1 est dans la cellule "a1"), la formule sous résultat est =SI(ET(A2<>"";B2<>"";B2-A2>0);1;0), et CPT=2 (on a 0 si d1=d2)

"d1" + d2" + resultat
28/01/2009+30/01/2009 1'd2>d1
29/01/2009+29/01/2009 0'd2=d1
08/02/2009 0 'd2 vide
28/02/2009+23/02/2009 0'd2<d1
20/01/2007 0'd2 vide
30/03/2009+01/04/2009 1'd2>d1
total: 2

Pour obtenir ça par vba voilà une façon comme une autre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim CPT As Long, CHECK As Integer, TOTAL As Long
CPT = 0
For Each cell In Range("a2:a7")
CHECK = 2 'permet pour chaque cellule de vérifier, =0 si faux, 1 si vrai
If Application.And(cell <> "", cell.Offset(0, 1) <> "", cell.Offset(0, 1) - cell > 0) Then
CPT = CPT + 1
CHECK = 1
else:
CHECK = 0
End If
Next cell
TOTAL = CPT