Problème de comparaison de date
Bonjour à tous,
J'ai un souci pour finaliser une macro. Je compile des données comptables, et à ce titre, je prépare un fichier qui ne doit comporter que les données du mois arrêté (mois précédent le mois en-cours).
Dans un de mes fichiers qui m'est destiné et que je retraite, mes collaborateurs oublient très souvent de supprimer les lignes des premières opérations comptables du mois en-cours. Je dois donc scratcher ces lignes.
Voilà ce que j'ai fait comme code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub Test()
Dim SKLR4 As Long, DateSup As Long
Dim ClosingDate As String
With Sheets("Final LCESK GL data")
SKLR4 = .Range("J" & .Rows.Count).End(xlUp).Row
'Supprimer les lignes dont les dates sont celles du mois succédant celui de la clôture
ClosingDate = InputBox("Entrez le dernier jour du mois clôturé (Format = jj/mm/aaaa)", "Définition de la date")
For DateSup = SKLR4 To 2 Step -1
If .Cells(DateSup, 7) > ClosingDate Then
.Cells(DateSup, 7).EntireRow.Delete
End If
Next DateSup
End With
End Sub |
Problème, seules les lignes du 31/mm/2011 sont supprimées, alors que je voudrais supprimer celles du jj/10/2011. Les cellules en J sont toutes au format date "dd/mm/yyyy".
Pouvez-vous m'aider SVP ?
Vous remerciant par avance pour votre aide et vos conseils, je vous souhaite une bonne journée !
