Comparer les cellules d'une lignes avec celles de plusieures autres lignes

[tomasi]

Bonjour,

Je voudrais pouvoir comparer les valeurs des cellules d'une ligne avec celles de plusieures autres lignes.

Pour être plus clair dans le fichier d'exemple, je voudrais pouvoir comparer les lignes du tableau 1 avec celles du tableau 2 qui ont des ID identiques (A, B,C) et pour chaque valeur (V1, V2, V3) ne conserver la valeur de la cellule que si elle différente de la ligne source dans le tableau 1.
Comme le montre le tableau résultat.

Merci pour votre aide.

 

[Fred0o]

Re : Comparer les cellules d'une lignes avec celles de plusieures autres lignes

Bonsoir tomasi,

Dis moi si cette solution te convient. On peut simplifier le code, mais celui-ci fonctionne.

A+

 

[tomasi]

Re : Comparer les cellules d'une lignes avec celles de plusieures autres lignes

ça marche bien 😀

c'est possible de rendre dynamique les plages de champs dans la macro ?

car dans le fichier avec les vraies valeurs il y a pas mal de champs et là si j'ai bien compris il faut écrire une nouvelle boucle pour chaque valeur recherchée, c'est bien ça ?

 

[Fred0o]

Re : Comparer les cellules d'une lignes avec celles de plusieures autres lignes

Re-bonsoir tomasi,

Voici un code que tu dois pouvoir adapter en fonction de tes donnéées réelles.

Public i, j, CRef

Sub Essai()
    CRef = 6 'Première colonne du tableau de comparaison
    For i = 3 To 5 ' Lignes de référence
        For j = 3 To 13  ' Colonnes du tableau de comparaison
            Call Compare(i)
        Next
    Next
End Sub

Sub Compare(Ident)
    Dim i
    If Cells(j, CRef) = Cells(Ident, 1) Then
        Cells(j, 13) = Cells(Ident, 1)
        For i = 1 To 3 'Colonnes
            If Cells(j, CRef + i) <> Cells(Ident, i + 1) Then Cells(j, 13 + i) = Cells(j, CRef + i)
        Next
    End If
End Sub

A+