En cas de nouveaux mots ,Le problème étant assez complexe, si vous êtes à même de modifier ou compléter la Macro1 du fichier joint, elle est simpliste mais réalise au moins ce que vous demandez sur la cellule active.
Bonjour,Le problème étant assez complexe, si vous êtes à même de modifier ou compléter la Macro1 du fichier joint, elle est simpliste mais réalise au moins ce que vous demandez sur la cellule active.
Tout à fait d'accord, merci pour me l'avoir fait remarqué et ainsi m'aider à progresser de mon côté.Bonsour®
En cas de nouveaux mots ,
mettre les doigts dans le cambouis à chaque fois n'est pas ce que je qualifierai de "simplement" !!!
par ailleurs l'utilisation de ElseIf est limité en niveaux d'imbrications.
tout comme le Select Case
lorsque une proposition fonctionnelle, efficace et performante est fournie #9
les propositions suivantes courent le risque d’être qualifiées d'élucubrations et billevesées.
Avantageusement ??? Elucubration ou billevesée, choisissez.Je ne sais pas quel est l'avis de Foie4 mais peut-être une ou deux boites de dialogues pourraient avantageusement remplacer les données fournies en D24...
[D2:D4]
[D2:D4,D6:D9]
For Each c1 In [D:D].SpecialCells(xlCellTypeConstants)
J'en doute ...Je viens de lire tous vos échanges sur ce sujet.
https://www.excel-downloads.com/threads/colorier-un-mot.20037165/#post-20265774La proposition de job 75 peux me convenir, mais est il possible que je rajoute des nouveaux mots
et que je les colories manuellement en colonne D, ensuite exécution en VBA ?