XL 2019 Récupération de Donnée

[Caninge]

Bonjour à Tous,
Je fais appel à votre professionnalisme.
Dans mon exemple :
Dans la feuille 1 j'écris Michèle dans la cellule B2.
Dans la feuille 2 comment avoir uniquement les résultats de Michèle.
Colonnes B et H comprises.
Je n'arrive pas. Je voulais voir avec la Formule Décaler !!!
Merci de m'aider.
CANINGE

 

[mapomme]

Bonjour @Caninge🙂,

Un essai par VBA. On actualise la feuille résultat "Feuil2" quand on active cette feuille.
Si le prénom est vide alors on affiche toutes les données sources de "Feuil1" sur "Feuil2".
Le code est dans le module de la feuille "Feuil2".

 

[job75]

Bonjour Caninge, mapomme,

Formule matricielle en A3 de la 2ème feuille :

=SIERREUR(INDEX(Feuil1!A:A;PETITE.VALEUR(SI((Feuil1!$B$3:$B$20=Feuil1!$B$1)+(Feuil1!$H$3:$H$20=Feuil1!$B$1);LIGNE(Feuil1!$3:$20));LIGNE(A1)));"")

A+

 

[job75]

Si l'on veut tout afficher quand Feuil1!B1 est vide :

=SIERREUR(INDEX(Feuil1!A:A;PETITE.VALEUR(SI(ESTVIDE(Feuil1!$B$1)+(Feuil1!$B$3:$B$20=Feuil1!$B$1)+(Feuil1!$H$3:$H$20=Feuil1!$B$1);LIGNE(Feuil1!$3:$20));LIGNE(A1)));"")

 

[sylvanu]

Bonjour Caninge, Mapomme, Job,
Peut être une autre approche sans la feuille 2.
Quand on change le nom recherché, on masque les lignes non concernées.
Si on efface ce nom recherché alors on démasque tout.

 

[job75]

En VBA on peut utiliser le filtre avancé :

Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If FilterMode Then ShowAllData
With Range("A2:M" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    .Cells(2, .Columns.Count + 2) = "=OR(ISBLANK($B$1),$B3=$B$1,$H3=$B$1)" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 2).Resize(2) 'filtre avancé
    .Cells(2, .Columns.Count + 2) = ""
End With
End Sub