cathodique
XLDnaute Barbatruc
Bonjour,
Je voudrai supprimer des lignes pour certaines dates en colonne C. J'ai mis ces dates dans un variable tableau, mais je n'obtiens pas le résultat escompté (suppression des lignes).
En vous remerciant par avance.
Je voudrai supprimer des lignes pour certaines dates en colonne C. J'ai mis ces dates dans un variable tableau, mais je n'obtiens pas le résultat escompté (suppression des lignes).
VB:
Sub Supprimer_Lignes_Date()
Dim Code(), i As Integer, j As Integer, dl As Integer
'Alimente les éléments du tableau code
Code = Array("20/02/2012", "18/12/1995", "15/06/2005", "01/05/2014", "25/02/2006") 'Array("CMDP", "CSt")
'Boucle sur les éléments
With Sheets("bd")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = LBound(Code) To UBound(Code)
For j = 2 To dl
If CDate(.Range("C" & j)) = Code(i) Then .Rows(j).Delete
Next j
Next i
End With
End Sub
Dernière édition: