Suppression lignes suivant date
Bonjour
Je sollicite encore votre aide pour mon tableau
voila en B j'ai des dates de disponibilité produits , en F quand c'est vide c'est que le produit n'est pas enlevé ,quand je double clic dans la cellule F cela me met la date du jour c'est que le produit est parti
Ce que j'aimerais c'est que si quand il y a la date en F est supérieur a 10 jour de la date du jour que cette ligne se supprime en ouvrant mon fichier car elle me sera inutile
j'espere avoir été clair
merci encore pour votre aide
Salut Bernyb,
voilà ton fichier, le code étant dans le module 'ThisWorkbook'.
Petite parenthèse, il est rarement judicieux de laisser des lignes vides dans un tableau!
Le code ci-dessous n'est donc valable que SI ET SEULEMENT SI tu ne changes pas de présentation!
Private Sub Workbook_Open()
'
With Worksheets("SUIVI")
For x = .Range("F" & Rows.Count).End(xlUp).Row To 2 Step -1
If .Cells(x, 6) <> "" And Date > CDate(.Cells(x, 6)) + 10 Then Rows(x & ":" & x + 1).Delete shift:=xlUp
Next
End With
'
End SubJoyeuses Fêtes!
A+