Microsoft 365 recherche de mots clés dans une chaine de caractères

patricktoulon

XLDnaute Barbatruc

• 26 Juin 2023

• #2

bonsoir
si tu a 3 expressions a chercher ça va si tu a plus il va te falloir peut être passer par une fonction perso vba

 

Pièces jointes

• Exemple succinct.xlsx

  9.7 KB · Affichages: 8

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 26 Juin 2023

• #3

Bonjour,
Avec une simple fonction personnalisée

 

Pièces jointes

• Exemple succinct.xlsm

  14.8 KB · Affichages: 11

Vote positif 0 Vote négatif

P

PUCH

XLDnaute Nouveau

• 26 Juin 2023

• #4

Superbe, court et très efficace.
Merci beaucoup.
J'avais essayé en utilisant les fonctions Excel, mais compliqué...
Merci encore.

 

Vote positif 0 Vote négatif

P

PUCH

XLDnaute Nouveau

• 26 Juin 2023

• #5

patricktoulon à dit:

bonsoir
si tu a 3 expressions a chercher ça va si tu a plus il va te falloir peut être passer par une fonction perso vba

Cliquez pour agrandir...

Bonsoir,
Effectivement la liste risque d'être longue..
La fonction perso VBA semple plus pertinente.
Merci beaucoup.

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 26 Juin 2023

• #6

Bonjour à tous,

Une autre proposition en formule matricielle déjà proposée dans plusieurs fils notamment ici

VB:

=SIERREUR(INDEX(liste;EQUIV(1;NB.SI(A2;"*"&liste&"*");0));"")

Cordialement

 

Pièces jointes

• Exemple succinct.xlsx

  10.3 KB · Affichages: 12

Dernière édition: 26 Juin 2023

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Juin 2023

• #7

re
@Amilo

 

Vote positif 0 Vote négatif

B

Bichette001

XLDnaute Junior

• 7 Juillet 2023

• #8

gbinforme à dit:

Bonjour,
Avec une simple fonction personnalisée

Cliquez pour agrandir...

bonjour
c'est ds visual basic que je peux voir le code de ta formule VB? comment fonctionne cette formule avec @ c'est du VB ? comment la modifier pour mettre en évidence les mots clés avec ET et pas OU? merci pour ton aide

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 7 Juillet 2023

• #9

Bonjour,

En B2, à recopier vers le bas :

VB:

=JOINDRE.TEXTE("";;SI(ESTNUM(EQUIV("*"&liste&"*";A1;0))=VRAI;liste;""))

Daniel

 

Pièces jointes

• Exemple succinct.xlsx

  11 KB · Affichages: 9

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 7 Juillet 2023

• #10

Bichette001 à dit:

comment la modifier pour mettre en évidence les mots clés avec ET et pas OU? merci pour ton aide

Cliquez pour agrandir...

Tu as demandé "si un des mots-clés figure dans la chaine de caractères, le placer dans la cellule de la formule."
il n'a donc ni de OU ni de ET mais simplement présence ou pas.
Le code est dans le module comme pour toute fonction personnalisée.

 

Vote positif 0 Vote négatif