Comparaison entre deux contenu de cellule

bonjour

je cherche La delta entre les deux colonnes B & C, par exemple sur la colonne D (delta Type1) je cherche d’identifier qui ce qu’il n’existe pas dans la colonne B et existe sur la colonne A.

Et c’est pareil pour la colonne E qui ce qu’il n’existe pas dans la colonne C est existe dans la colonne B ,

Merci pour votre retour (Excel-Pratique)

Bonjour

N'est-ce pas toi qui a posté ici sous un autre pseudo https://forum.excel-pratique.com/viewtopic.php?f=2&t=119909&sid=9546573940b363b7754bb8e785d09f8d

Bonjour 78chris

non ce n'est pas moi , j'ai un seul pseudo ,

slt,

insert ces 2 fonctions un module:

Function GetDiffs1(keyRng As Range, ansRng As Range) As String
Dim arr() As String
Dim i As Long
arr() = Split(ansRng.Value, ";")
For i = 0 To UBound(arr)
    If InStr(keyRng.Value, arr(i)) = 0 Then
        CompareStrings = arr(i)
        Exit Function
    End If
Next i
End Function

Function GetDiffs2(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
        CompareStrings1 = 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
            CompareStrings1 = arr(i)
            Exit Function
        End If
    Next i
End If
End Function

Dans:

Cellule D3: =GetDiffs1(B3;C3)

Cellule E3: =GetDiffs2(B3;C3)

Bonjour Inta M3ellem ,

Merci infiniment ça marche trés bien les deux scripts ( l'invers et le 1ére) aussi .

pardon c'est moi qu'a fait la faute.

essaie ca

Function GetDiffs1(keyRng As Range, ansRng As Range) As String
Dim arr() As String
Dim i As Long
arr() = Split(ansRng.Value, ";")
For i = 0 To UBound(arr)
    If InStr(keyRng.Value, arr(i)) = 0 Then
        GetDiffs1 = arr(i)
        Exit Function
    End If
Next i
End Function

Function GetDiffs2(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
        GetDiffs2 = 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
            GetDiffs2 = arr(i)
            Exit Function
        End If
    Next i
End If
End Function

Oui il fallait juste modifier le nom GetDiffs2 au lieu de compare , le tableau porte le nom de la fonction

Re tous

Une solution par formule matriciel si 365 ou 2019

Une autre via PowerQuery intégré à 2016