Fonction pour afficher la partie texte qui n'existe pas dans deux cellules

Question

Bonsoir tout le monde, je plante sur un code vba pour affichage de la partie du texte qui n'est pas présente dans deux cellules, par exemple dans la cellule R5 et S5, je dois avoir comme résultat

EXPORT REFERENCES FORWARDER REFERENCE: ME18050123 EXPORTER'S REFERENCE NUMBER: 8BR01593699100000000000000 000176470 ITN (INTERNAL TRANSACTION NUMBER) AS PROVIDED BY THE US AES: 18BR0002535156 SHIPPER'S REFERENCE NUMBER: 18/268-SC

J'ai essayé la fonction suivante mais elle ne m'affiche que le premier mot de la différence qui est export

Function CompareStrings(ByVal keyRng As Range, ByVal ansRng As Range) As String

Dim arr() As String

Dim i As Long

Dim found As Boolean

arr() = Split(ansRng.Value, " ")

For i = 0 To UBound(arr)

If InStr(keyRng.Value, Trim(arr(i))) = 0 Then

found = True

CompareStrings = arr(i)

Exit Function

End If

Next i

If Not found Then

arr() = Split(keyRng.Value, " ")

For i = 0 To UBound(arr)

If InStr(ansRng.Value, Trim(arr(i))) = 0 Then

CompareStrings = arr(i)

Exit Function

End If

Next i

End If

End Function

S'il vous plait, aidez moi

14intaud-4.xlsx (152.56 Ko)

njhub · Answer

Ce n'est pas la seule différence : un espace présent dans le n° RUC, la mention "CLEAN AND " absente et ce que vous citez...

dhany · Answer

Bonjour maha , je te retourne ton fichier Excel modifié : fais Ctrl e ; sans l' espace en trop dans le RUC (puis sans le " CLEAN AND " en trop ), tu aurais eu le résultat que tu as indiqué : regarde ci-dessous ma citation fluorée pour mieux voir les différences @ njhub : pour ta citation fluorée, tu as répété en bas le même texte qu'en haut ! aussi, je propose cette autre citation fluorée : dhany...

Curulis · Answer

Premier jet imparfait et à la mécanique semi-aléatoire mais qui a le mérite d'exister. C'est déjà ça de pris! La mise en forme des caractères d'une cellule étant manifestement impossible lorsqu'ils proviennent d'une formule, je reporte les deux textes de deux cellules à droite pour traitement. Un double-clic démarre la macro. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Dim tData1, tData2, iStart%, iFlag%, iIdx% Cancel = True ' Columns("R:U").Font.Color = RGB(0, 0, 0) Columns("R:U").ColumnWidth = 45 For iRow = 5 To Range("R" &amp; Rows.Count).End(xlUp).Row sData1 = Replace(Replace(Replace(Range("R" &amp; iRow).Value, " ", " "), Chr(10), " "), Chr(160), " ") sData2 = Replace(Replace(Replace(Range("S" &amp; iRow).Value, " ", " "), Chr(10), " "), Chr(160), " ") tData1 = Split(sData1, Chr(32)) tData2 = Split(sData2, Chr(32)) Range("T" &amp; iRow).Value = sData1 Range("U" &amp; iRow).Value = sData2 ' For k = 1 To 2 iStart = 1: iFlag = 0: iIdx = 0 If k = 1 Then For x = 0 To UBound(tData1) If x &gt; 0 Then iStart = iStart + Len(tData1(x - 1)) + 1 iOK = 0 For Z = iFlag To UBound(tData2) If tData1(x) = tData2(Z) Then If iIdx = 0 Then iFlag = Z iOK = 1: Exit For End If Next If iOK = 0 Then If iIdx = 0 Then iFlag = x: iIdx = 1 Range("T" &amp; iRow).Characters(iStart, Len(tData1(x))).Font.Color = RGB(255, 0, 0) End If Next Else For x = 0 To UBound(tData2) If x &gt; 0 Then iStart = iStart + Len(tData2(x - 1)) + 1 iOK = 0 For Z = iFlag To UBound(tData1) If tData2(x) = tData1(Z) Then If iIdx = 0 Then iFlag = Z iOK = 1: Exit For End If Next If iOK = 0 Then If iIdx = 0 Then iFlag = x: iIdx = 1 Range("U" &amp; iRow).Characters(iStart, Len(tData2(x))).Font.Color = RGB(255, 0, 0) End If Next End If Next Next ' End Sub A+...