recherche de l'ensemble des valeurs identiques d'un tableau

[sam44]

Bonjour
Je cherche une fonction que je ne trouve pas, et je vais essayer d'être clair.

Dans un premier onglet, j'ai une liste d'objet avec des attributs dans les colonnes :
Objet / Dimension / Quantié / Zone
Je peux avoir plusieurs fois le même type d'objet, avec des attributs différents.

exemple tiré de l'image :
2 barnums de 6x3 dans le QG technique
1 barnum de 8x5 dans le QG technique
etc...

Je voudrais dans le 2ème onglet pouvoir appeler l'objet "barnum" et qu'il m'affiche automatiquement toutes les lignes dont l'objet commence "barnum"
le résultat automatisé serait conforme à la 2ème image

alors, bien sur un tri selectif me donne le même résultat, mais si j'arrivait à faire ce que je cherche,
j'aurais la possibilité de faire une mise en forme et page spécifique dans le 2ème onglet qui me permettrait de faciliter mon export...

avez vous une idée ?
les fonctions Recherche habituelles n’appellent que la 1ère ligne qui contient le mot clé....



merci d'avance

 

[Staple1600]

Bonjour

Avez-vous une idée?
Oui
Joindre un classeur Excel anonymisé plutôt que des copies d'écran.
Les images c'est joli, mais on ne peut tester ni formules ni macro dessus

Sinon, à vue de nez, je suggère l'emploi d'un TCD, non ?
A confirmer/infirmer après "visionnage" du fichier exemple

EDITION: Bonjour job75
Pas tenté par le TCD?

 

[job75]

Bonjour sam44, bienvenue sur XLD, salut JM,

C'est un problème classique de filtrage, voyez cette macro qui utilise le filtre avancé :

Sub Filtre()
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Feuil1") 'feuille à filtrer,nom à adapter
Set F2 = Sheets("Feuil2") 'feuille du résultat, nom à adapter
x = InputBox("Entrez le texte recherché en colonne A de '" & F1.Name & "' :")
If x = "" Then Exit Sub
Application.ScreenUpdating = False
F2.Cells.Delete 'RAZ
F2.[A1] = F1.[A1]
F2.[A2] = x
F1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, F2.[A1:A2], F2.[A3]
F2.[A1:A2].ClearContents
'---mise en forme---
F2.[A1] = "Filtrage de ": F2.[B1] = x: F2.[A1:B1].Font.Bold = True 'gras
F2.[A3].CurrentRegion.Borders.Weight = xlThin 'bordures
F2.Columns.AutoFit 'ajustement largeurs
With F2.UsedRange: End With 'actualise les barres de défilement
F2.Activate 'facultatif
End Sub

A+

 

[sam44]

merci, je vais regarder ça !