Discussion :

[nawak83]

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

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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