Filtre amélioré

[marmouzet31]

Bonjour à tous,

En ce moment j'essaie de tirer le meilleur d'une base de données pour créer un observatoire de la population qui m'intéresse.

Je souhaiterai sur la centaine de lignes qui se présentent ainsi : NOM Donnée1 Donnée 2 Donnée 3 filtrer une vingtaine d'éléments par le nom (je possède déjà la série de noms que je souhaiterai filtrer et je sais qu'elle correspond exactement aux noms de la Base de données) pour avoir ainsi :

NOM Donnée 3

NOM1 a1
NOM2 a2
NOM3 a3

Sachant que j'ai déjà :

NOM1
NOM2
NOM3

Many thanks
mmzt

 

[dionys0s]

Re : Filtre amélioré

Bonjour Marmouzet

peut être pourrais-tu joindre un fichier (avec des données factices bien sûr) à titre d'exemple ? Cela permettrait sûrement de mieux cerner ton problème.

Au plaisir de relire.

 

[marmouzet31]

Re : Filtre amélioré

Bonjour Dionys0s,

Voici l'exemple avec une base de données comme suit :

Feuil1 : base de données
Feuil2 : noms que je possède

Je souhaiterai obtenir trois lignes avec :

NOM Données3

NOM 2 65
NOM 4 42
NOM 6 89

A vous de me dire,
mmzt

 

[dionys0s]

Re : Filtre amélioré

Voici ton fichier, en xlsm. Le code est à modifier bien sûr, en fonction de la mise en page que tu adopteras.

Le code est le suivant :

Sub Recuperation()

Dim Cellule As Range
Dim Donnee3 As String

For Each Cellule In Sheets(2).Range("B4:B6")    'à modifier
    Donnee3 = Sheets(1).Cells.Find(What:=Cellule, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Offset(0, 3)
    Cellule.Offset(0, 1).FormulaR1C1 = Donnee3
Next Cellule

End Sub

Good day !