Excel VBA : fonction de recherche avancée

Question

Bonjour,

J'ai un fichier Excel que j'ai crée.

J'ai mis une liste de mots dans la colonne A et la source en colonne B.

Je souhaiterais à chaque fois mettre une liste dans la colonne D et avoir dans la colonne E les mots qui posent problème et dans la colonne F mettre en place par exemple un check avec un logo vert s'il ne trouve pas de mots et en rouge s'il trouve des mots dans la colonne A.

Par exemple, dans le fichier que je vous envoie j'ai une liste de mots :

1st Time
2nd Grade
ALL AMERICAN
All day
ALWAYS BE 
ALWAYS THINKING
Bad Day To Be A Beer
BORN TO FISH FORCED TO WORK

Dans la colonne D, je cherche all american always be thinking back to school

Dans la colonne E, j'ai :  ALL AMERICAN, ALWAYS BE , ALWAYS THINKING, Bad Day To Be A Beer, BORN TO FISH FORCED TO WORK

Je veux comme résultats uniquement : ALL AMERICAN, ALWAYS BE

Je ne comprends pas pourquoi il m'affiche tout le reste.

J'ai mis en place une fonction VBA qui fonctionne en cliquant sur ALT +F8 puis sur exécuter mais ça n'a pas l'air de fonctionner correctement.

Ce que je souhaite :

- Rentrer une liste de mots qui resteront dans la colonne A
- Rentrer la source dans la colonne B
- Rentrer une liste de mots ou phrases dans la colonne D pour vérifier s'il y a correspondance avec la colonne A ou non
- S'il ne trouve rien, je souhaite mettre dans la colonne E un check qui apparaît en vert
- S'il trouve, je souhaite que dans la colonne E, il me met une croix en rouge et dans F, il m'indique le ou les mots/phrases qui posent problèmes et pourquoi pas dans la colonne G, me mettre la ou les sources qui posent problèmes

J'ai mis du VBA pour que quand je rentre une liste dans la colonne D et que je met ALT+F8, il me met en rouge les mots/phrases qui posent problèmes mais ce n'est pas encore bon.

J'ai également mis en place un code pour que quand je supprime la liste, la colonne à côté se supprime également, pareille ce n'est pas encore au point.

Est-ce que quelqu'un peut m'aider à l'améliorer ou me dire ce que je dois modifier exactement, j'ai testé plusieurs modifications mais en vain.

Merci beaucoup pour votre aide.

P.S : voici le lien du fichier : https://www.cjoint.com/c/NGifXlcbM6K

danielc0 · Answer

Bonjour,

Pas sûr d'avoir bien compris. Sans VBA, avec Excel 365, la formule :

=JOINDRE.TEXTE(", ";;REDUCE("";FRACTIONNER.TEXTE(E3;;", ");LAMBDA(x;y;SI(ESTNUM(CHERCHE(y;D3));ASSEMB.H(x;y);x))))

renvoie :

ALL AMERICAN, ALWAYS BE , Back to School

?

Daniel

RequinCraintif59 · Answer

Bonjour,

Ou est ce que tu mets cette formule, ça ne marche pas chez moi.

Merci

P.S : j'ai Excel 2013

danielc0 · Answer

La formule ne fonctionne pas avec Excel 2013. Il faut une solution par VBA. Est-ce que "back to school" est correct ?

Daniel

danielc0 · Answer

Essaie :

Sub test()
  Dim C As Range, Tabl As Variant, Txt As String
  Application.EnableEvents = False
  For Each C In Range("E2", Cells(Rows.Count, 5).End(xlUp))
    Tabl = Split(C, ", ")
    Txt = ""
    For Each Item In Tabl
      If IsNumeric(Application.Search(Item, C.Offset(, -1))) Then
        Txt = Txt & ", " & Item
      End If
    Next Item
    Txt = Right(Txt, Len(Txt) - 2)
    C.Offset(, 1) = Txt
  Next C
  Application.EnableEvents = True
End Sub

Daniel

danielc0 · Answer

Oups, tu veux colorier la colonne D ?

Daniel

danielc0 · Answer

Ce n'est pas ce que tu indiques ici :

"- S'il trouve, je souhaite que dans la colonne E, il me met une croix en rouge et dans F, il m'indique le ou les mots/phrases qui posent problèmes et pourquoi pas dans la "

C'est quoi une "Croix en rouge" ?????

Daniel

danielc0 · Answer

Ecoute, je n'y comprends rien et je ne vais pas passer la nuit là-dessus. Pour quoi une partie de la colonne D est en rouge ? C'est quoi, des "logos" ? C'est des icônes ? Prends une cellule et explique très précisément ce que tu veux qu'on fasse. Sinon, je passe mon tour.

Daniel

danielc0 · Answer

Bonjour,

"par contre si dans E2, rien ne concorde parfaitement, j'ai le mot "safe" par exemple en vert qui est marqué ou un icone qui sourit pour me dire que ça passe."

Donne un exemple de ce cas.

"par contre si dans E2, rien ne concorde parfaitement"

Que fait-on dans ce cas ?

danielc0 · Answer

Est-ce que c'est ce que tu veux ?

(Erreur sur le positionnement de l'icône de la 3e ligne)

Daniel

danielc0 · Answer

"Je voudrais déjà que la colonne D n'apparait pas en rouge vu qu'on va trouver les correspondance en colonne E."

Pour info, je n'ai pas modifié cette colonne. C'est ton classeur initial, d'où confusion dès le départ.

Colle une image avec le résultat voulu.

Daniel

Excel VBA : fonction de recherche avancée

10 réponses

Votre réponse