Bonjour,
Je veux supprimer des lignes dont la cellule de la premiére colonne qui contient une date JJ/MM/AAAA n'est pas comprise entre 2 dates qui ont été saisies via une inputbox.
La macro semble bien fonctionner mais il y a un souci comme dans l'exemple ci-dessous:
date de debut = 23/03/2009 et date de fin= 30/03/2009
Si dans le tableau il y a la date du 26/04/2009, elle n'est pas effacée
Voici le code que j'utilise :
'Selectionne des dates à conserver
datedeb = InputBox("Saisir la date de DEBUT ", "XX/XX/XXXX")
datefin = InputBox("Saisir la date de FIN", "XX/XX/XXXX")
'Efface les lignes hors date
For i = 500 To 1 Step -1
If Cells(i, 1).Value < datedeb Or Cells(i, 1) > datefin Then
Rows(i).Delete shift:=xlUp
End If
Next i
Je ne vois pas comment résoudre ce probléme.
Merci d'avance pour votre aide !!!
Je veux supprimer des lignes dont la cellule de la premiére colonne qui contient une date JJ/MM/AAAA n'est pas comprise entre 2 dates qui ont été saisies via une inputbox.
La macro semble bien fonctionner mais il y a un souci comme dans l'exemple ci-dessous:
date de debut = 23/03/2009 et date de fin= 30/03/2009
Si dans le tableau il y a la date du 26/04/2009, elle n'est pas effacée
Voici le code que j'utilise :
'Selectionne des dates à conserver
datedeb = InputBox("Saisir la date de DEBUT ", "XX/XX/XXXX")
datefin = InputBox("Saisir la date de FIN", "XX/XX/XXXX")
'Efface les lignes hors date
For i = 500 To 1 Step -1
If Cells(i, 1).Value < datedeb Or Cells(i, 1) > datefin Then
Rows(i).Delete shift:=xlUp
End If
Next i
Je ne vois pas comment résoudre ce probléme.
Merci d'avance pour votre aide !!!