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

 

[patricktoulon]

re
c'est un code base
a toi de mettre des conditions sur la présence de données ou pas

 

[patricktoulon]

Re

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

comment ca il se passe rien ?
si tu a des données et que tu es sur Windows il n'y a aucunes raisons que ca fonctionne pas
a moins que tes librairie IE soit inhibées au quel cas tu pourrais pas créer l'object et donc tu aurais au moins l'erreur "un activx ne peux pas créer d'object"

 

[Staple1600]

Re

=>patrictoulon
T’inquiètes, je vais télécharger ta PJ pour comprendre où le bât blesse.
Comme je l'ai dit, j'ai testé en copiant/collant le code VBA présent dans le message#19.

 

[dindin]

ci joint un autre fichier
bizarre chez moi il s'ouvre

 

[patricktoulon]

re
le code c'est le même dans le fichier

 

[patricktoulon]

re
ton nouveau fichier met exactement 1m et 37 secondes a s'ouvrir
c'est impensable de travailler avec ca

 

[dindin]

désolé je sais pas pourquoi?
il fait 773 ko

 

[patricktoulon]

ben moi non plus je vois pas je sais pas si il y a des formules ou pas mais ca rame comme pas possible

 

[dindin]

pas de formules c'est du texte.
je l'ai copier 3 fois !

 

[dindin]

SVP c'est t'as compris ma demande peux tu modifier ton fichier dans ce sens ?

 

[Staple1600]

Re

dindin
Tu me diras Bonjour au bout de combien de passage dans ton fil (en ce dimanche pluvieux) ?
Tu ne me vois pas passé depuis le message#23...

patricktoulon
Je n'avais fait que le testA (avec lequel il ne passe donc rien )

Sub TestA()
[A1:B15] = "=""abc""&ROW()"
[A1:B15] = [A1:B15].Value
End Sub
Sub TestB()
[A1:A15] = "=IF(MOD(ROW(),2),""abc""&ROW(),"""")"
[B1:B15] = "=REPT(RC[-1]&"" "",RANDBETWEEN(1,5))"
[A1:B15] = [A1:B15].Value
End Sub

 

[patricktoulon]

re
tiens j'ai copier les lignes jusqu’à faire plus de 10000 lignes et mon fichier fait 131 kilos
on a donc bien un problème avec ton fichier
moins de 3 secondes pour plus de 10000 lignes

 

[Staple1600]

Re

patricktoulon
Voir mon précédent message (que je pense tu as zappé, vu qu'on a posté dans la même minute)

 

[dindin]

désolé Staple1600 j'étais pris avec ce fichier qui ne veut pas s'ouvrir.
pour corriger cet oubli je te remercie pour ton passage .
j'ai besoin de l'aide de ce fil

 

[dindin]

re
tiens j'ai copier les lignes jusqu’à faire plus de 10000 lignes et mon fichier fait 131 kilos
on a donc bien un problème avec ton fichier
moins de 3 secondes pour plus de 10000 lignes

ma dernière demande est différente
désolé