Bonjour,
j'ai le code suivant qui me permet de comparer et matcher 2 cellules avec 2 autres sur une feuille donnée.
Je voudrais l'adapter afin que je puisse comparer 4 cellules avec 4 autres
Exemple: j'ai un fichier avec 2 feuilles. Je voudrais comparer toutes les lignes de la feuille 2 (la plage de cellules B à E) aux plages B à E de la feuille 1, "couper" toutes les lignes qui sont identiques et les coller à côté de la plage correspondante sur la feuille 1
Merci d'avance pour votre aide
Sub SommeSi()
Application.ScreenUpdating = False
Dim derLig As Long, Dico As Object, mm As Variant, nn As Variant, mySplit As Variant
Set Dico = CreateObject("scripting.dictionary")
derLig = Range("B" & Rows.Count).End(xlUp).Row
For a = 2 To derLig
zz = Cells(a, 1) & "§" & Cells(a, 2)
If Not Dico.Exists(zz) Then
Dico(zz) = Cells(a, 3).Value
Else
Dico(zz) = Dico(zz) + Cells(a, 3).Value
End If
Next a
mm = Dico.Keys
nn = Dico.Items
derLig = Range("F" & Rows.Count).End(xlUp).Row
For b = 2 To derLig
For c = 0 To Dico.Count - 1
mySplit = Split(mm(c), "§")
If Cells(b, 6) = mySplit(0) And Cells(b, 7) = mySplit(1) Then
Cells(b, 9) = nn(c)
Exit For
End If
Next c
Next b
Application.ScreenUpdating = True
End Sub