Occurances sans doublons selon critère date Excel

Bonjour à tous,

Je sais plus comment m'y prendre !

J'aimerais extraire une liste sans doublons avec un critère date sans formule matricielle mais plutôt en vba

Cellule A: Date// B: ID // C: Nom

Je souhaite selon une date choisie extraire les ID et nom sans doublon.

Je vous remercie de votre aide les amis

Un fichier test en PJ

bonjour

avec un TCD

aucun VBA, aucun calcul aucune formule

tu peux jouer des filtres selon la date, le mois, l'année...

C'est exactement le résultat que je cherche mais je dois pouvoir le récupérer en Changement de date depuis une liste ou un bouton d'ou le code VBA

re

tu veux faire quoi avec la liste extraite ?

peut-être pourrait-on rester avec un TCD.

il faut en dire plus.

note qu'extraire avec VBA c'est faire comme avec du papier et un crayon comme en 1960.

En fait je voudrais recéper les valeurs pour alimenter une liste déroulante.

Avec le TCD c'est le bon résultat mais il ne change pas en fonction de la date.

Merci à toi

re

alors voir "liste déroulantes en cascade"

par ex ici

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm

Bonsoir à tous,

A tester :

Option Explicit
Sub test()
Dim i As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Feuil1")
        With .Cells(1).CurrentRegion
            For i = 2 To .Rows.Count
                If .Cells(i, 1).Value = .Cells(1, 10).Value Then
                    dico(.Cells(i, 2).Value) = VBA.Array(.Cells(i, 2).Value, .Cells(i, 3).Value)
                End If
            Next
        End With
        With .Cells(1, 11).CurrentRegion
            With .Offset(1, 2)
                .ClearContents
                If dico.Count > 0 Then
                    .Resize(dico.Count, UBound(dico.items()(0)) + 1).Value = Application.Transpose(Application.Transpose(dico.items))
                Else
                    MsgBox "aucune donnée"
                End If
            End With
        End With
    End With
    Set dico = Nothing
End Sub

klin89

Merci les amis.

Ça marche !!!! Merci klin89