Supprimer ligne avec condition de date
Re tout le monde
encore un probleme de date (un de mes nombreux point noir!)
voici, dans ce fichier je voudrais supprimer les lignes qui ne sont pas compris dans une certaine plage
le fichier serat plus parlant
https://www.excel-pratique.com/~files/doc/ligne_date.xls
cordialement
Bonsoir,
essaie avec ce code, en supposant ta date min en K1, ta date max en L1 et ton tableau qui s'arrête à la colonne J...
Sub Macro2()
Dim DerLig As Long
With Sheets("Feuil1")
DerLig = .[A65000].End(xlUp).Row
With .Range("I2")
.FormulaR1C1 = "=IF(OR(RC[-7]<R1C11,RC[-7]>R1C12),"""",""X"")"
.AutoFill Destination:=.Resize(DerLig - 1, 1)
.Resize(DerLig - 1, 1).Value = .Resize(DerLig - 1, 1).Value
.Resize(DerLig - 1, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
.Columns(9).Clear
End With
End SubBonsoir felix
merci pour ta reponse.
petit probleme: ca m'efface tout
cordialement
Je n'ai pas testé la solution de Félix, mais voila une autre macro possible
Sub Supp_ligne()
Dim Date_min As Date
Dim Date_max As Date
Dim Lig_max As Integer
Dim Ind1 As Integer
Lig_max = Cells(1, 1).CurrentRegion.Rows.Count
Date_min = Cells(1, 11)
Date_max = Cells(1, 12)
For Ind1 = Lig_max To 2 Step -1 'balayage du fichier à partir de la dernière ligne
If Cells(Ind1, 2) < Date_min Or Cells(Ind1, 2) > Date_max Then
Cells(Ind1, 1).EntireRow.Delete
End If
Next
End Sub
Cordialement
Re-,
bizarre....
regarde ton fichier modifié
re
autant pour moi, c'etais juste la formule qui ne designais pas la bonne cellule sur le fichier original. ca marche impecc
merci a toi
cordialement
edit: merci demed, ca marche aussi mais la solution de félix est beaucoup plus rapide sur mon fichier de 10000 ligne.