Discussion :

[Laurentdupontnordist]

Bonjour,
Je souhaiterai savoir s'il existe une possibilité de comparer 2 chaines de caractères et de préciser les différences en rouge (suppression) ou en bleu (ajout) dans une troisième cellule.

Par exemple :
cel 1 => Je suis en forme aujourd'hui.
Cel2 => Je suis très en joie aujourd'hui
Cel 3 => Je suis très en joie forme aujourd'hui.

J'ai essayé de bidouiller ce code super simple et bien pensé de Jacques, mais je suis perdu, car il faut y ajouter un format et une boucle pour les différences.
De plus je ne suis pas certain qu'un format fonctionne dans une fonction, il faudrait alors passer sur une macro à lancer : voici le code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function Communs(cel1 As Range, cel2 As Range)
 Set d1 = CreateObject("Scripting.Dictionary")
 a = Split(cel1, " ")
 b = Split(cel2, " ")
 For Each c In a
   d1(c) = ""
 Next c
 Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If c <> "" And d1.Exists(c) Then d2(c) = ""
  Next c

Merci de votre aide

[ARTURO83]

Bonjour,
Une première approche

Je n'ai pas traité le cas ou il y aurait plusieurs fois le même mot dans la même phrase. A voir si vous y tenez particulièrement.
Cdlt