XL 2016 Recherche

[Rabeto]

Bonjour,

Je souhaite faire une recherche des valeurs par ligne et par colonne, en fonction d'un critère dans une cellule fusionnée.
Le fichier en Pj vous donnera peut être plus de détails,

Merci

 

[sylvanu]

Bonjour Rabeto,
Un essai en PJ avec :

=INDEX(C$1:C17;0+EQUIV($B$19;$A:$A;0))

Equiv donne la première ligne à exploiter. Le "0" s'incrémente à chaque ligne pour "piocher" la bonne valeur.

 

[job75]

Bonjour Rabeto, sylvanu,

Perso je comprends qu'il faut filtrer le tableau en choisissant l'agent :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.ScreenUpdating = False
Rows.Hidden = False 'affiche tout
If [A1] <> "" Then
    With Range("A2", Range("A" & Rows.Count).End(xlUp).MergeArea)
        Set r = .Find([A1], , xlValues, xlWhole).MergeArea.EntireRow
        .EntireRow.Hidden = True 'masque tout
        .Rows(1).Hidden = False
    End With
    r.Hidden = False 'affiche l'agent
End If
Application.ScreenUpdating = True
End Sub

L'effacement de A1 affiche tout.

A+

 

[Rabeto]

Bonjour,

Merci,
Les 2 solutions sont top,

 

[Rabeto]

Bonjour,

Désolé de vous déranger encore une fois,
En essayant et adaptant vos réponses sur d'autre résultats que je souhaite avoir, j'ai pu m'en sortir sauf sur ce cas de figure je suis bloqué.

Je vous renvoi le fichier pour mieux comprendre le but.

Merci

 

[sylvanu]

Bonjour Rabeto, Job,
Un essai en PJ avec :

=INDEX($A$1:$J$17;EQUIV($B$19;$A:$A;0)+COLONNE()-3;EQUIV($B20;$1:$1;0))

"Colonne" ne sert qu'à incrémenter l'index. Et Index est utilisé avec Lignes, colonnes.

INDEX (INDEX, fonction) - Support Microsoft

Comment utiliser la fonction INDEX dans Excel pour renvoyer une valeur ou une référence à une valeur dans un tableau ou une plage.

support.microsoft.com

COLONNE (COLONNE, fonction) - Support Microsoft

Syntaxe : COLONNE([référence])

support.microsoft.com

 

[Rabeto]

Merci infiniment sylvanu
C'est TOP !!!!!

 

[job75]

Bonjour Rabeto, sylvanu,

Une autre solution avec cette formule matricielle :

=TRANSPOSE(DECALER(C2:J8;EQUIV(B19;A:A;0)-2;))

à entrer en bloc sur la plage C20:J27 et valider par Ctrl+Maj+Entrée.

A+