recherhe et afficher multi resultat

  • Initiateur de la discussion Initiateur de la discussion wrap food
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

wrap food

XLDnaute Occasionnel
Bonjour,

J'ai encore besoin de votre aide "désolé"

Je souhaiterais depuis une celule faire une recheche "partiel" sur une plage de cellule et qu'il apparaisse tous les resultats se rapprochant de la recherche.

je ne sais pas si cela serait plus simple avec un USF ou une autre méthode..

je joints un fichier qui je pense sera plus claire que ma demande

si vous avez la solution ...


merci
 

Pièces jointes

Re : recherhe et afficher multi resultat

bonsoir MTH
En faite la recherhe doit se faire sur une feuille qui est chachée qui se nome "Basse recherche".
je précise ma "recherche"
j'aimerais que si je tape "mimosa" j 'ai le chois entre " Tomates mimosa" ou Oeufs mimosa"

si vous aviez la solution ce serait super

par avance merci
 
Re : recherhe et afficher multi resultat

Bonsoir,

Ton fichier en retour avec le choix du mot qui déclence cette macro:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Long
If Target.Address = "$B$8" And Target.Count = 1 Then
    lig = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Feuil1").Range("A10:B" & lig).ClearContents
 
    With Sheets("base recherche")
        .Range("a1").AutoFilter Field:=1, Criteria1:="*" & Sheets("Feuil1").Range("B8") & "*"
        .Range(.Cells(1, 1), .Cells(1, 1).SpecialCells(xlLastCell)).Copy Destination:=Sheets("Feuil1").Range("A10")
        .Range("A1").AutoFilter
    End With
End If
End Sub

Vois ci cela peut t'aider.

Bonne soirée,

mth
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
625
M
Réponses
2
Affichages
1 K
M
D
Réponses
24
Affichages
4 K
M
  • Question Question
Réponses
3
Affichages
1 K
Mr.Nobody
M
V
Réponses
14
Affichages
2 K
valentinejade
V
S
  • Résolu(e)
Réponses
4
Affichages
1 K
Retour