Rechercher un ensemble de données dans une liste :-(

[jozerebel]

Bonjour à tous,

J'ai une liste de nom avec parfois plusieurs lignes pour le même nom.

A côté, j'ai une colonne colonne qui correspond à des dates différentes pour cette personne.

Je souhaiterais lister les années qui correspondent à l'ensemble de ces dates.
de manière à synthétiser les années concernées.

J'ignore si j'ai été très claire donc, je joins un fichier.

D'avance merci pour votre aide précieuse...

 

[Cousinhub]

Re : Rechercher un ensemble de données dans une liste :-(

Bonsoir,

un petit exemple dans le fichier joint

le code :

Sub annees()
Dim Cel As Range
Dim Ar As Range
Dim LesAnnees As Object
Set LesAnnees = CreateObject("Scripting.Dictionary")
For Each Ar In Range("D2:D" & [a65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 1).Areas
    For Each Cel In Ar
        LesAnnees(Year(Cel)) = Year(Cel)
    Next Cel
    Ar(1).Offset(0, 1).Value = Join(LesAnnees.Items, " et ")
    LesAnnees.RemoveAll
Next Ar
End Sub

Bon courage

 

[jozerebel]

Re : Rechercher un ensemble de données dans une liste :-(

Merci bcp!

c'est exactement ce que je voulais!