Extraire et trier données d'un tableau

Bonjour tout le monde,

Voilà j'ai le problème suivant

J'ai un premier tableau avec une liste de noms dans une première colonne, et dans une autre colonne "homme" ou "femme" suivant la personne (A).

J'ai un second tableau (B), une colonne "homme" une colonne "femme", et j'aimerai que ce tableau se remplisse tout seul en listant les prénoms correspondant et donne le résultat du tableau (c) (fait à la main)

J'ai essayé de faire une rechercheV avec une plage de données variable, en y incluant des "decaler" et des "index" mais sans succès.

ah oui le tableau (A) étant souvent sujet à modifications, il faudrait que le tableau (B) puisse s'actualiser automatiquement, c'est pour cela que je pensais plus à utiliser des fonctions de recherche.

Voilà je joins mon fichier exemple et j'espère que quelqu'un pourra m'aider !

Bonjour

Sur ma réponse d'hier, j'ai oublié de te dire qu'il fallait ajouter une ligne (qui restera vierge) au dessus de tes données.

Voici ton fichier :

Amicalement

Nad

merci beaucoup c'est exactement ce que je cherchais !

si je peux encore un peux abuser; dans l'idéal j'aimerais pouvoir l'utiliser avec "numbers" sous mac, sous lequel visiblement la formule matricielle ne passe pas.

Est-ce possible d'avoir une formule équivalente "non matricielle" en utilisant par exemple une colonne masquée ?

Re

Je ne sais pas si les matricielles sont permises ou pas sous MAC (je demanderai à Dan) mais voici le fichier sans ces matricielles. Il s'agit de l' application d'une formule donnée par Amadeus hier :

Amicalement

Nad

Bonjour à tous, bonjour Nad,

Sans formules

Sub FiltreGenre()
Dim i As Byte
''Macros par Claude Dubois pour "fotemoucher" E-P le 05/02/10
    For i = 1 To 2
        Range("j2") = "=$c2=""" & Cells(1, 6 + i) & """"
        Range("b1:c" & [b65000].End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range( _
        "j1:j2"), CopyToRange:=Cells(2, 6 + i), Unique:=False
    Next i
        Range("j2").ClearContents
End Sub

Bonne journée

Claude

dubois a écrit :

Bonjour à tous, bonjour Nad,

Sans formules

Sub FiltreGenre()
Dim i As Byte
''Macros par Claude Dubois pour "fotemoucher" E-P le 05/02/10
    For i = 1 To 2
        Range("j2") = "=$c2=""" & Cells(1, 6 + i) & """"
        Range("b1:c" & [b65000].End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range( _
        "j1:j2"), CopyToRange:=Cells(2, 6 + i), Unique:=False
    Next i
        Range("j2").ClearContents
End Sub

Bonne journée

Claude

Merci mais ma version d'office n'accepte pas les macros :'(

Nad-Dan a écrit :

Je ne sais pas si les matricielles sont permises ou pas sous MAC (je demanderai à Dan) mais voici le fichier sans ces matricielles. Il s'agit de l' application d'une formule donnée par Amadeus hier :

fotemoucher2.xls

(33 Kio) Téléchargé 2 fois

c'est parfait merci beaucoup !