filtrer avec recherche référence

[pascal21]

bonsoir le forum
j'aimerais créer une fonction "recherche référence" dans mon tableau
j'ai un tableau ("a5"g400) avec des références colonnes D et G
je tape une ref. dans une zone de texte et la ligne contenant ce mot dans la colonne D ou G doit remonter ligne 6
un peu comme un filtre automatique
comment réaliser cela
merci

 

[Tibo]

Re : filtrer avec recherche référence

Bonsoir,

Pas trop compris, mais il me semble qu'un INDEX / EQUIV devrait suffire.

Si non, reviens avec un extrait commenté de ton fichier pour qu'on cerne mieux ta demande.

A te (re)lire

@+

 

[pascal21]

Re : filtrer avec recherche référence

bonsoir tibo
le tableau a5 g400
valeurs recherchées dans colonne D ou G
oublions la zone de texte
donc je tape une ref dans g1 et excel place la ligne avec la ref recherchée en début de tableau ligne 6 ou alors le curseur se place sur la cellule contenant la valeur recherchée

 

[Tibo]

Re : filtrer avec recherche référence

re,

Un fichier exemple aurait été le bienvenu...

Donc, sans ce fichier, un essai avec ceci en A6 :

=SI(NB.SI($D$8:$D$100;$G$1);INDEX(A$8:A$100;EQUIV($G$1;$D$8:$D$100;0));
SI(NB.SI($G$8:$G$100;$G$1);INDEX(A$8:A$100;EQUIV($G$1;$G$8:$G$100;0));""))

à recopier vers la droite

Si pas ça, il nous faudra bien un extrait de ton fichier pour qu'on comprenne bien.

@+

 

[pascal21]

Re : filtrer avec recherche référence

je joint un bout de fichier pour mieux comprendre ce que je désirerais
en gros j'aimerais un filtre automatique mais en tapant direstement la donnée recherchée dans une cellule au lieu de se servir des listes des filtres automatiques

 

[pascal21]

Re : filtrer avec recherche référence

pour faire remonter
bonne soirée

 

[Guest]

Re : filtrer avec recherche référence

Bonsoir le fil,

Voici par macro.

A+ tout le monde

 

[pascal21]

Re : filtrer avec recherche référence

bonjour Hasco, le forum
c'est parfait c'est bien ce que je voulais
j'ai juste rajouté un textbox et un bouton pour alimenter G1
et j'ai mis "Selection.AutoFilter Field:=1" début du code pour remettre la liste à zéro
car sans si on passe de la ligne 50 à la ligne 6 par exemple et bien ça ne fonctionne pas car la ligne est masquée
merci bonne journée

 

[pascal21]

Re : filtrer avec recherche référence

bonjour
je cherche le moyen d'adapter ce code

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "G1" Then
    Dim IndexLigne
    If IsEmpty([G1]) Then
        Rows.Hidden = False
    Else
    IndexLigne = Application.Match([G1], Range("D5:D" & Rows.Count), 0)
    If IsError(IndexLigne) Then IndexLigne = Application.Match([G1], Range("G5:G" & Rows.Count), 0)
    If Not IsError(IndexLigne) Then
        If IndexLigne > 1 Then Range("A5:A" & IndexLigne + 3).EntireRow.Hidden = True
    End If
    End If
 End If
End Sub
de Hasco, pour qu'il fonctionne de la manière suivante
non plus à partir de la cellule G1 mais A4
pour un tri colonne A
b4 pour un tri colonne B
et D4 pour un tri colonne D
je n'arrive pas à trouver quoi modifier
merci