XL 2013 Avoir la liste dans une date précise

[lestoiles1]

Bonjour à tous,

Je veux avoir une liste des barcodes faits dans une date determinée ( ex: 18/6/25). la liste s'affichera dans la colonne en jaune et lorsque je change de date, la liste se modifie.

Merci

Lestoiles1

 

[sylvanu]

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

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

 

[lestoiles1]

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

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

Merci pour réponse mais y a t-il une formule au lieu d'un vba svp?

 

[JHA]

Bonjour à tous,

A essayer par formule matricielle
Mise en mode tableau des données
Ajout de colonne pour séparer la date et heure
Ajout TCD pour filtrer les dates

JHA

 

[job75]

Bonjour lestoiles1, sylvanu, JHA,

Une autre solution avec le tableau source structuré et une colonne auxiliaire (à masquer) pour la liste de validation.

Formule matricielle en L2 de la 1ère feuille :

=SIERREUR(PETITE.VALEUR(SI(NON(NB.SI(L$1:L1;ENT([Date])));ENT([Date]));1);"")

Formule matricielle en A4 de la 2ème feuille :

=SIERREUR(INDEX(Tableau1[BARCODE];PETITE.VALEUR(SI(ENT(Tableau1[Date])=B$1;LIGNE(Tableau1)-1);LIGNE()-3));"")

Les 2 à valider par Ctrl+Maj+Entrée.

A+