trier par date et suprimer la date J-30 en VBA

[deen113]

Bonjour les amis,

cela fait 1 mois que je rame, je souhaite trier par date et supprimer les dates J-30

voici le fichier :

http://cjoint.com/?fmtivcQ1Dc

 

[Bebere]

Re : trier par date et suprimer la date J-30 en VBA

bonjour Deen
le code est dans la feuille TP_FT
clic droit onglet,visualiser code
changé le code dans userform_initialize
pour avoir un affichage dans listbox
si encore problème tu nous revient
à bientôt

 

[deen113]

Re : trier par date et suprimer la date J-30 en VBA

merci bcp bebere!!! mais pour les supprimer les lignes j-30

 

[Bebere]

Re : trier par date et suprimer la date J-30 en VBA

bonjour Deen
si la date colonne E- date>= à 30 la ligne est supprimée

Sub DeleteLigne()
Dim DerL As Long, L As Long, Diff As Variant

With Worksheets("TP_FT")
DerL = .Range("E2000").End(xlUp).Row
For L = DerL To 4 Step -1
Diff = .Cells(L, 5) - Date
If Diff >= 30 Then .Range("A" & L & ":I" & L).Delete Shift:=xlShiftUp 'ToLeft
Next L
End With
End Sub

à bientôt

 

[deen113]

Re : trier par date et suprimer la date J-30 en VBA

merci bebere !!!