XL 2019 Colorier un mot dans une phrase

dindin · 29 Novembre 2019

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 · 5 Décembre 2019

Bonjour @dindin,

dindin à dit:
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

Voir la version v5.

dindin · 5 Décembre 2019

Top
Merci

dindin · 8 Décembre 2019

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

patricktoulon · 8 Décembre 2019

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

plus rapide que ca tu meurt

rigolo non ?

Staple1600 · 8 Décembre 2019

Bonjour le fil

patricktoulon
Quid des Macistes ? (Il en reste encore

)

patricktoulon · 8 Décembre 2019

re
bonjour Staple1600
je suppose que l'on peut bien travailler un html en vba avec mac avec d'autre librairie
je ferait une recherche

dindin · 8 Décembre 2019

Merci
patricktoulon
Si vous pouvez jeter un coup d’œil sur le fichier joint . Ma demande est un peu différente
Par contre la recherche est vraiment plus rapide.

Staple1600 · 8 Décembre 2019

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

patricktoulon · 8 Décembre 2019

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

patricktoulon · 8 Décembre 2019

re
@Staple1600 je sais avec mac ca marche pas
comme je l'ai dis je ferais une recherche ca doit être possible ,on doit bien pouvoir manipuler un doc html avec mac non ?

dindin · 8 Décembre 2019

voici le fichier à nouveau

Staple1600 · 8 Décembre 2019

Re, Bonjour à toi aussi dindin

(cf message#23)

=>patricktoulon
Donc pour comprendre le pourquoi du comment faut que je télécharge ta PJ ?

(cf questions dans message#23)

patricktoulon · 8 Décembre 2019

re
ok déjà ton fichier pour a peine un peu plus de 6000 ligne il rame pour s'ouvrir pour moi il y a déjà un soucis au départ
et la macro tourne sans fin

sert toi de Access ce sera plus confortable mais la en l’état ton fichier est inutilisable

patricktoulon · 8 Décembre 2019

re

Staple1600 à dit:
Re, Bonjour à toi aussi dindin (cf message#23)

=>patricktoulon
Donc pour comprendre le pourquoi du comment faut que je télécharge ta PJ ?
(cf questions dans message#23)

il y a le code en post #19 non ?

Staple1600 · 8 Décembre 2019

Re

Bah oui il y a le code du message#19
que j'ai testé comme je l'ai dit dans le message#23
Et il se passe rien (d'où mes questions

)

XL 2019 Colorier un mot dans une phrase

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Partager cette page

Statistiques des forums