XL 2019 Colorier un mot dans une phrase

dindin

dindin

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
dindin

dindin

XLDnaute Occasionnel
Bonjour mapomme , bonjour le forum
Depuis jeudi j'essaye d'adapter votre code à mes besoins mais je n'ai pas réussi . novice en VBA.
Code trop dur pour un débutant comme moi.
fichier joint et explication dessus.
j'ai passé des semaines à préparer cette base.
Si vous pouvez m'aider SVP
ça sera la dernière cette fois çi
 

Pièces jointes

  • Classeur1.xlsm
    773.4 KB · Affichages: 4
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
bonjour a tous
en ce beau dimanche ensoleillé ,ça vous dirait de sortir des sentiers battus ????
html quand tu nous tiens ;)

VB: 
Option Explicit
Sub test()
    Dim code$, I&, mestr
    'Application.ScreenUpdating = False'pas besoins c'est quasi instentané pour 2000 lignes
    Sheets(1).Range("A1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
    With CreateObject("htmlfile")
        'récuperation des données sous forme de texte et convertion en table html
        code = "<tr>" & vbCrLf & "<TD>" & Replace(.parentwindow.clipboardData.GetData("TEXT"), vbCrLf, "</TD>" & vbCrLf & "</tr>" & vbCrLf & "<tr>" & vbCrLf & "<TD>")
        code = "<table>" & Replace(code, vbTab, "</TD><TD>") & "</TABLE>"
        .body.innerhtml = code    'integration du code html dans le body du htmldocument virtuel
        Set mestr = .getelementsbytagname("TR")    'recupe les ligne du tableau html
        For I = 0 To mestr.Length - 1
            If mestr(I).ChildNodes(0).innertext <> "" Then code = Replace(code, " " & mestr(I).ChildNodes(0).innertext & " ", "<font color=red><strong> " & mestr(I).ChildNodes(0).innertext & " </strong></font>")
        Next
        .parentwindow.clipboardData.setData "TEXT", "<html>" & code & "</html>"  'on remet le code html modifié dans le clip
        With Sheets(1): .Activate: .Cells(1).Select: .Paste: End With    ' et on recolle le tout
    End With
    Debug.Print code
End Sub
demo3.gif

plus rapide que ca tu meurt ;)

rigolo non ?
 

Pièces jointes

  • dindin- colorier mots- v pat .xlsm
    33.2 KB · Affichages: 14
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re, Bonjour dindin

=>patricktoulon
Le Mac ne comprend pas le CreateObject
J'ai testé ton code tel quel en copiant/collant dans un classeur.
J'ai mis des données en A:B
Il se passe rien
J'ai mis aucune données en A:B
Il se passe rien mais le code ne me le dit pas ;)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
bonjour dindin quel fichier joint ?

et je ne recherche pas je replace chaque mots de la colonne A dans le trxte complet des deux colonnes par une balise font avec couleur et le texte du mot et je recolle le tout complet au meme endroit
autrement dit je touche au cellule que deux fois 1 pour copier 2 pour coller
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
174
mapomme
mapomme
L
  • Question
Microsoft 365 Comment trouver un mot d'une liste dans une phrase sur excel ?
Réponses
10
Affichages
892
bsalv
B
E
  • Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
176
JHA
J
P
  • Question
XL 2016 identifier chaine de caractère dans une cellule et ramener une donnée d'une table de correspondance
Réponses
5
Affichages
261
pmid20
P
F
  • Question
XL 2016 Faire une somme en fonction de 2 critères + 1 critère si contient un texte
Réponses
2
Affichages
288
flo189
F
X
  • Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
739
TooFatBoy
TooFatBoy
T
  • Question
XL 2021 Trouver et remplacer un mot dans une chaine de caractère
Réponses
5
Affichages
316
Gégé-45550
Gégé-45550
D
  • Question
Microsoft 365 Souci tableau excel
Réponses
10
Affichages
344
TooFatBoy
TooFatBoy
L
  • Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
2 K
Staple1600
Staple1600
V
  • Résolu(e)
XL 2013 Ajout d'un champs calculé à un TCD multi sources
Réponses
10
Affichages
527
chris
chris

Membres actuellement en ligne

14 membres et 125 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 242
Messages
2 086 532
Membres
103 243
dernier inscrit
SAH