XL 2019 Colorier un mot dans une phrase

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion dindin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
Cliquez pour agrandir...

Voir la version v5.
 

Pièces jointes

Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
M
  • Question Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
917
mapomme
mapomme
P
  • Question Question
XL 2016 Macro pour masquer/démasquer des cellules via mot de passe
Réponses
6
Affichages
132
Jacky67
Jacky67
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
47
LegVal
L
looky62
  • Question Question
Microsoft 365 PB Concaténation de ref en une phrase
Réponses
3
Affichages
393
looky62
looky62
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
412
job75
job75
D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
74
djidji59430
djidji59430
L
  • Question Question
Microsoft 365 Comment trouver un mot d'une liste dans une phrase sur excel ?
Réponses
10
Affichages
1 K
bsalv
B
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
561
Corentin26270
C
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
701
Chris Linefield
C
Adexa
  • Question Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
907
Dudu2
Dudu2
Caninge
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
324
Caninge
Caninge
E
  • Question Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
419
JHA
J
T
  • Question Question
XL 2021 Trouver et remplacer un mot dans une chaine de caractère
Réponses
5
Affichages
698
Gégé-45550
Gégé-45550
L
  • Question Question
Microsoft 365 Bug pour aller chercher une référence dans un barème
Réponses
1
Affichages
120
goube
goube
S
  • Résolu(e)
Microsoft 365 [EXCEL] Chercher dans une cellule s'il y a un mot clef de ma liste et renvoyer une information
Réponses
4
Affichages
552
sylvain G
S
X
  • Question Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
TooFatBoy
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
249
Olihoes
O
N
  • Résolu(e)
Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS
4 5 6
Réponses
78
Affichages
1 K
Dudu2
Dudu2
L
  • Question Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
3 K
Staple1600
Staple1600
Retour