XL 2013 Avoir la liste dans une date précise

sylvanu à dit:

Bonjour Lestoiles,
Un essai en PJ avec cette macro. La mise à jour est automatique lorsqu'on modifie la date en B1.

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B1]) Is Nothing Then
         Application.ScreenUpdating = False
         [A4:A1000].ClearContents
         Dim L&, Lw&: L = 2: Lw = 4
         With Sheets("details")
            While .Cells(L, "J") <> ""
                If Int(.Cells(L, "J")) = Target Then
                    Cells(Lw, "A") = .Cells(L, "A"): Lw = Lw + 1
                End If
                L = L + 1
            Wend
         End With
    End If
Fin:
End Sub

Cliquez pour agrandir...