XL 2019 Colorier un mot dans une phrase

[dindin]

Bonjour
J'ai une BD qui contient plus de 280 000 lignes
Chaque lignes contient :
Colonne A : mot
Colonne B : phrase
Mon objectif c'est mettre le mot similaire de 2 colonnes en gras et en bleu.
La colonne A contient plus de 18000 mots différents .
Le mot qui se trouve dans la colonne B qui colorier en bleu et mis en gras et le reste de la phrase reste inchangé.
Pouvez vous m'aider svp.
Merci

 

[mapomme]

Bonjour,

Mon objectif c'est mettre le mot similaire de 2 colonnes en gras et en bleu.
La colonne A contient plus de 18000 mots différents .

Les mots à colorier de la colonne B:

• on doit rechercher le mot de la colonne A de la même ligne ?
• ou bien les mots peuvent se trouver sur n'importe quelle ligne de la colonne A ?

La casse doit elle être respectée ?

Un fichier exemple aurait été le bienvenu

 

[sousou]

Le principe
Sub coul()
For Each i In Columns(1).Rows
If i.Value = "" Then Exit Sub
With i.Offset(0, 1)
r = InStr(1, UCase(.Value), UCase(.Offset(0, -1)))
With .Characters(Start:=r, Length:=Len(.Offset(0, -1))).Font
.Size = 8

End With
End With
End Sub

 

[dindin]

Comme réponse à mapomme
Le mot peut se trouve sur la même ligne ou plus bas
Pas de casse à respecter
Je veux essayer de joindre un fichier ce soir.

 

[mapomme]

Re,

Un essai avec recherche de tous les mots de la colonne A dans toutes les phrases de la colonne B. Cliquez sur le bouton Hop!
Le code est dans le module de Feuil1.

Avec la quantité des données que vous avez, l’exécution sera très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très, très longue.

 

[mapomme]

Re,

A quoi cela peut il servir?
Allez-vous faire défiler et scruter successivement les 280 000 cellules de la colonnes B pour repérer chacun des mots des 18 000 cellules de la colonne A mis en évidence ???????

 

[dindin]

Merci
Je vous tiens au courant

 

[dindin]

Un très grand merci mapomme.
Un test très réussi
Malgré l'attente

 

[mapomme]

Re @dindin

Il y a malheureusement un os. Comme on veut colorier des mots, j'ai considéré que les mots d'une phrases étaient séparé par des espaces et notamment la fin d'un mot est suivi d'un espace. ==> Ceci n'est pas toujours vrai. La fin d'un mot peut aussi être un signe de ponctuation.

La version v2 ci-jointe corrige ce point.

Pour s'en rendre compte, voyez la cellule B2:

• La version v1 ne détecte pas le mot "sifflet"
• La version v2 détecte le mot "sifflet"

Le temps d'exécution est rallongé .

 

[dindin]

Pour finir ce code
Peut on supprimer à la fin les lignes qui ne contiennent pas les mots en question.
Un tres grand merci à vous .

 

[mapomme]

Re,

peut on supprimer à la fin les lignes qui ne contiennent pas les mots en question.

Voir la version v4. J'ai rajouté des infos dans la StatusBar au bas de l'écran pendant l'exécution.

 

[dindin]

Vraiment formidable. Un très grand merci

 

[Hervé]

Salut

joli code mapomme, 11 secondes chez moi

tu es sur pour le : m = Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row) ?

a plus

 

[mapomme]

Bonsoir @Hervé

tu es sur pour le : m = Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row) ?

Bien vu ! . Évidemment c'est

m = Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)

 

[dindin]

Bonjour mapomme
votre dernier me va trés bien juste une amélioration si vous permettez.
Vu l’immensité de la base et pour simplifier la tâche je vais garder un seul mot à rechercher (qui se trouve en A1 ) et à colorier par onglet.
Peut-on calculer le nombre de fois que ce mot est répété dans la colonne b et ensuite afficher le résultat de la recherche dans la cellule A2
merci pour votre aide