Comparer une date à la date du jour

laura_duj

XLDnaute Nouveau
Bonjour,

Je fais appel à vous car je n'arrive pas à comparer deux dates.
J'ai une date du jour dans ma feuille 2 en cellule 01.
Dans ma feuille 1 j'ai un tableau avec des noms et des dates.
Je dois dire " si la date de la cellule w est plus petite que la date du jour alors ma cellule b12 de ma feuille 2 = a cellule b12 de ma feuille 2 + 1.
Cependant cela ne fonctionne pas !
Les cellules contenant des dates sont bien au format date avec le même format ...

Voici mon code :

Dim i As Long

i = 2

Do While Sheets("Feuille1").Cells(i, 1).Value <> ""
If Sheets("Feuille1").Cells(i, 7).Value <> "Fini" Or Sheets("Feuille1").Cells(i, 7).Value <> "Refusé" Then

If Sheets("Feuille1").Cells(i, 23).Value <> "" Then

If Sheets("Feuille1").Cells(i, 23).Value < Sheets("Feuille2").Range("o1").Value Then

Sheets("Feuille2").Range("B12").Value = Sheets("Feuille2").Range("b12").Value + 1
end if
end if
end if
i = i + 1
loop


Ps : Je ne peux pas joindre le fichier il contient uniquement des données confidentielles ...

Merci pour votre aide.
 

JBARBE

XLDnaute Barbatruc
Bonjour à tous,

Peut -être ceci :
Code:
Option Explicit

Sub Test()
Dim i As Long

With Sheets("Feuille1")
For i = 2 To 65536
If .Cells(i, 1).Value = "" Then Exit Sub
If .Cells(i, 7).Value <> "Fini" Or .Cells(i, 7).Value <> "Refusé" Then
If .Cells(i, 23).Value <> "" Then
If Sheets("Feuille1").Cells(i, 23).Value < Date Then
Sheets("Feuille2").Range("B12").Value = Sheets("Feuille2").Range("b12").Value + 1
End If
End If
End If
Next i
End With
End Sub

Bonne journée !
 

Discussions similaires