[XL-2007] Macro suppression ligne contenant des dates

1 pièce(s) jointe(s)

Macro suppression ligne contenant des dates

Bonjour,

J'ai développé une macro pour pouvoir supprimer des lignes afin d'aléger mon fichier.

L'un de mes soucis, c'est que j'ai une condition (colonne 37) avec lequel j'ai des dates présentes dont je souhaiterai enlever:

les années 2010, 2013 et 2014.

Pièce jointe 204979

Malheureusement dans mon code les années 2010, 2013 et 2014 sont toujours là.

Merci d'avance de votre aide et conseil :)

Bonjour.

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub SuprLigne()
'
' SuprLigne Macro
'
 
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
 
ThisWorkbook.Worksheets("Feuil1").Activate
 
For i = DerLigne To 1 Step -1
AnneeAsupprimer = False
 
Set c = Cells(i, 37)
 
If IsDate(c.Value) Then
annee = Year(c.Value)
If annee = 2010 Or annee = 2013 Or annee = 2014 Then
 AnneeAsupprimer = True
End If
End If
 
 
If Cells(i, 6).Value = "01. NEGO" Or Cells(i, 6).Text = "07. NEW" Or Cells(i, 6).Text = "13. LEAN" Then
Range("A" & i & ":AX" & i).Delete Shift:=xlUp
 
 
ElseIf Cells(i, 11).Value = "NPP" Or Cells(i, 11).Value = "Invest" Then
Range("A" & i & ":AX" & i).Delete Shift:=xlUp
 
ElseIf Cells(i, 19).Value = "EMEA LOGISTICS" Or Cells(i, 19).Value = "Closed Site" Then
Range("A" & i & ":AX" & i).Delete Shift:=xlUp
 
ElseIf AnneeAsupprimer = True Then
Range("A" & i & ":AX" & i).Delete Shift:=xlUp
 
End If
 
Next i
 
 
'Affiche Message macro terminé
 
MsgBox "Macro terminée"
Application.Goto Reference:="SuprLigne"
 
 
 
End Sub

Merci :)