Bonjour,
j'essaye de développer une fonction en vba pour faire du produit matriciel booléen en excel, mais ma fonction ne fonctionne pas et je ne sais pas pourquoi. Pourriez-vous regarder mon code et me dire ce qui coince? Il me dit qu'il y a une erreur de type de valeur mais je ne trouve pas d'où vient le problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function produitmat(x, y)
    mat1 = x
    mat2 = y
 
    l1 = UBound(mat1, 1)
    l2 = UBound(mat2, 1)
    c1 = UBound(mat1, 2)
    c2 = UBound(mat2, 2)
 
    If (c1 = l2) Then
        Dim resultat(l1, c2) As Boolean
        For i = 1 To l1
            For j = 1 To c2
                resultat(i, j) = False
                For k = 1 To c1
                    If (mat1(i, k) And mat2(k, j) = True) Then
                        resultat(i, j) = True
                    End If
                Next k
            Next j
        Next i
        produitmat = resultat
    End If
End Function
Merci d'avance