supprimer des ligne en fonction de la valeur entrée en input box

Bonsoir la communauté,

j'ai une nouvelle fois besoin de vos lumière.
lors de l'import d'un fichier xls dans un nouveau fichier, je voudrai importer uniquement les lignes qui corresponde à la date que choisi via une input box.
Je mexplique, dans ma collone C, j'ai plusieurs date, sous la forme jj/mm/yyyy, et je voudrai lors de l'import afficher une boite de dialogue, entrer ma date, et n'importer que les ligne correspondante a la date entré dans la boite de dialogue, ou alors j'ai déja la macro pour importé toute les lignes dans mon fichié, je voudrai supprimer toutes les ligne qui ne correspondent pas à la date de l'inputbox.

En vous remerciant par avance.

bonne soirée à tous

Bonjour,

Essayez ceci, en supposant que la date à tester est en cellule A1( à remplacer par votre emplacement):

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Suppression() Dim DerLig As Long Dim Date_Test As Double Application.ScreenUpdating = False DerLig = Range("C" & Rows.Count).End(xlUp).Row Date_Test = Range("A1").Value For i = DerLig To 2 Step -1 If CDbl(Cells(i, "C")) <> Date_Test Then Rows(i).Delete Next i End Sub

---

Cdlt