Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche via une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion natacha
  • 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 !

S'inscrire
N

natacha

XLDnaute Occasionnel
Bonjour à tous,
voila je souhaiterais créer une macro qui execute une recherche sur le libellé et en fonction de la saisie on nous renvoie le code . Ex : la personne saisie "Ouvriers qualifiés", la liste contenant "Ouvriers qualifiés" apparait dans une liste deroulante et l'utisaleur selectionne celui qui lui correspond et on lui renvoie le code.
Je sais pas si je suis tres claire. N'hesitez pas si vous ne comprenez pas.
Je vous transmets le fichier de base.
Merci d'avance.
Natacha
 

Pièces jointes

Trier par date Trier par votes
Re : Recherche via une macro

Bonjour Natacha, bonjour le forum,

En pièce jointe ton fichier modifié. Clique sur le bouton Recherche (ou raccourci clavier [Alt]+[R]). Au fur et à mesure que tu tapes des caractères la ListBox se emt à jour... Ensuite double-clique sur un élément de la ListBox et celui-ci est placé dans le presse-papier (tu n'as pas spécifier quoi en faire...). Un simple [Ctrl]+[V] permettra de le coller dans la cellule de ton choix.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Merci beaucoup pour ta réponse. Je souhaiterais juste que les élément de la ListBox ne soient pas les codes mais les libellés contenant ce qui a été saisie.
Pour la réponse je souhaiterais qu'elle apparaisse dans une fenêtre. Si c'est possible, bien sur.
Encore merci pour le travail.
Natacha
 
Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour natacha, salut Robert,

En utilisant une liste de validation et cette macro :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
If Application.CountIf([B:B], Target) Then Exit Sub
Dim cel As Range, txt$
For Each cel In Range("B2", [B65536].End(xlUp))
  If LCase(cel) Like "*" & LCase(Target) & "*" Then
    txt = txt & IIf(txt = "", "", ",") & Replace(cel, ",", "#")
  End If
Next
With Target.Validation
  .Delete
  If Target = "" Then Exit Sub
  .Add xlValidateList, Formula1:=txt
  .ShowError = False
End With
Target.Select
Application.SendKeys "%{UP}"
End Sub
Noter que les virgules en colonne B posent problème (sous Excel 2010) pour construire la liste.

Je suis obligé de les remplacer par #.

Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Re,

Il faut d'abord éliminer les # s'il y en a en D4, en ajoutant :

Code: 
Application.EnableEvents = False
Target = Replace(Target, "#", ",")
Application.EnableEvents = True
Fichier (2)

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour Natacha, Job, bonjour le forum,

En pièce jointe la version 2 avec les modifications demandées. Un clic dans un élément de la ListBox1 le place dans la TextBox2. Le bouton Ok place le contenu de la TextBox2 dans le presse-papier, car sinon je ne sais pas ce que tu vas en faire....
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche via une macro

Re,

Au lieu d'utiliser # pour remplacer la virgule, utiliser le caractère de code 130 (une "fausse" virgule).

La macro finale :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
Application.EnableEvents = False
Target.Select
Target = Replace(Target, Chr(130), ",")
Application.EnableEvents = True
If Application.CountIf([B:B], Target) Then Exit Sub
Dim cel As Range, txt$
For Each cel In Range("B2", [B65536].End(xlUp))
  If LCase(cel) Like "*" & LCase(Target) & "*" Then
    txt = txt & IIf(txt = "", "", ",") & Replace(cel, ",", Chr(130))
  End If
Next
With Target.Validation
  .Delete
  If Target = "" Or txt = "" Then Exit Sub
  .Add xlValidateList, Formula1:=txt
  .ShowError = False
End With
Application.SendKeys "%{UP}"
End Sub
Version (4).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonsoir,
Merci beaucoup pour vos nombreuses réponses.
J'avoue que j'ai un petit penchant pour la solution de robert car la présentation est pas mal.
Mais je me heurte à un pbl quand j'essaie de l'adapter.
En fait je voudrait ne plus voir apparaitre le bouton recherche, mais directement la boite de dialogue et que cette boite soit sur la feuille 2 et non pas la feuille 1.
Je vous transmets ce que j'ai essayé de faire.
Je vous en remercie encore.
Natacha
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour le fil, bonne fête Natacha, bonjour le forum,

Il suffit de remplacer dans la procédure ListBox1_Click :
Code: 
Me.TextBox2.Value = Cells(.List(.ListIndex, 1), 1).Value
par :
Code: 
Me.TextBox2.Value = Sheets("Feuil1").Cells(.List(.ListIndex, 1), 1).Value

Le fichier :
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour à tous,
merci robert c'est exactement ça.
Mais est il possible de supprimer le bouton recherche et d'acceder directement sur la feuille 2 sur le formulaire de recherche.
D'avance merci.
Merci pour ma fête!
 
Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour le fil, bonjour le forum,

Dans la version 4 un double-clic sur n'importe quelle cellule de la colonne A ou B ouvrira l'Userform dans l'onglet Feuil2.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche via une macro

Bonjour à tous,
Je reviens sur cette discussion, car il me subsiste un problème.
Si un utilisateur tape un métier non répertorié un message de bug apparait.
Je préférais qu'une fenêtre apparaisse pour dire que le métier n'est pas répertorié.
ex: infographiste.
Je vous remercie par avance.
Natacha
 
Vote positif 0 Vote négatif
Re : Recherche via une macro

Je précise un peu mon prbl.
En fait le message de bug apparait si la personne tape par exemple infographiste dans intitulé de l'emploi et clique ensuite sur ok.
Je vous remercie par avance.
Natacha
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
770
SAMUAL_2023
S
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
351
elgringo123456
E
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
638
spike29
S
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
Z
  • Question Question
Microsoft 365 Validation de données et saisie partielle
Réponses
3
Affichages
630
Dranreb
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
2 K
Thomi
T
J
  • Question Question
XL 2010 Création liste ? une cellule alimentée par une autre cellule ou non
Réponses
3
Affichages
695
Gégé-45550
C
  • Question Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
2 K
job75
POWERQUERY : POWERQUERY :: Recherche d'un élément dans une sous-liste - V2.0
Réponses
0
Affichages
478
oguruma
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
899
Lu76Fer
P
  • Résolu(e)
XL 2016 Comparer les chiffres d'un mois précédent (avec couleur) via une macro
Réponses
8
Affichages
765
Pauuul35
P
  • Question Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
3 K
TooFatBoy
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
736
tactic6
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
J
  • Question Question
XL 2019 Formulaire Recherche Classeur
2
Réponses
21
Affichages
2 K
Hasco
F
  • Question Question
Microsoft 365 Macro pour chercher un code client dans une autre feuille
Réponses
2
Affichages
749
Hasco
I
  • Question Question
XL 2016 Valider une modification à partir d'un formulaire de recherche
Réponses
6
Affichages
1 K
Ingrid83
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…