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

 

[Caninge]

Bonjour à tous,

je regarderai toutes vous réponses plus tard !
Je vais partir ce matin.
A Plus et merci
CANINGE

 

[Caninge]

Bonsoir à Tous,
c'est parfait,
je voudrais faire une troisième feuille avec seulement les personnes écrites dans les cellules B1 et H1 de la feuille1
Dans l'exemple seulement les lignes Bernadette et François qui sont présents sur la même ligne.
J'ai essayé de biduler la formule mais bon !!!
Merci d'avance
CANINGE

 

[job75]

Bonsoir Caninge,

Formule matricielle en Feuil2!A3, à copier à droite et vers le bas :

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

Edit : et si les 2 noms en B1 et H1 sont effacés on affiche tout :

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

A+

 

[Phébus]

Bonsoir

La fonction filtre fera bien l'affaire.
=FILTRE(Feuil1!B3:F20;Feuil1!B3:B20=Feuil1!B1)
mettre la même chose pour la colonne H

Bonne soirée.

 

[job75]

Et avec le filtre avancé :

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

 

[mapomme]

Bonsoir @Caninge🙂, @job75😉, @sylvanu😉, @Phébus 🙂,

Je continue avec VBA dans le fichier joint, on couvre les 4 cas:

1. B1 vide et H1 vide : on prend tout
2. B1 non vide et H1 vide : on prend les lignes où la colonne B ou H est égale à B1
3. B1 vide et H1 non vide : on prend les lignes où la colonne B ou H est égale à H1
4. B1 non vide et H1 non vide : on prend les lignes où la colonne B est égale B1 et la colonne H égale à H1 ou bien la colonne B est égal H1 et la colonne H égale à B1

Les noms peuvent être saisis en majuscule ou minuscule ou un mélange des deux.

• Effacer ou saisir une valeur dans les cellules B1 et/ou H1
• Activer la feuille Feuil2

 

[Caninge]

Bonjour à tous,

je regarderai toutes vos propositions et vous tiens au courant.
Bon dimanche ! Merci
CANINGE

 

[Caninge]

Bonjour à tous,
merci pour toutes vos solutions qui me conviennent.
Il me reste juste à choisir.
Je vais poster une autre demande.
Bonne après-midi
CANINGE

 

[AtTheOne]

Bonsoir

La fonction filtre fera bien l'affaire.
=FILTRE(Feuil1!B3:F20;Feuil1!B3:B20=Feuil1!B1)
mettre la même chose pour la colonne H

Bonne soirée.

Bonsoir @Phébus,
Malheureusement @Caninge utilise excel2019.
Je crois me souvenir que dans cette version FILTRE n'est pas disponible...
À bientôt