Vba

Formule matricielle à valider par « ctrl+maj+entrée » (et non directement par « entrée »), le curseur clignotant dans la barre de formule. La formule est alors encadrée automatiquement par des accolades :  { formule }   

Function ComparaisonPlages(Plage1 As Range, Plage2 As Range)
Dim i As Integer, Cptr As Integer
    On Error Resume Next
    If Plage1.Count <> Plage2.Count Or Plage1.Rows.Count <> Plage2.Rows.Count Or Plage1.Columns.Count <> Plage2.Columns.Count Then
        ComparaisonPlages = "Dimensions différentes"
    Else
        For i = 1 To Plage1.Count
            If Plage1(i) = Plage2(i) Then Cptr = Cptr + 1
        Next i
        ComparaisonPlages = Cptr
    End If
End Function