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 :
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".
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 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
Pouvez-vous m'aider SVP ?
Vous remerciant par avance pour votre aide et vos conseils, je vous souhaite une bonne journée !
Partager