Discussion :

[v4np13]

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

[SfJ5Rpw8]

tu aurai pu nous mettre un exemple d'appel...

[v4np13]

Dans excel, je l'appelle comme ceci: je sélectionne 4 cases et je mets =produitmat(A1:B2;D1:E2) puis ctrl+maj+enter pour générer le tableau. A1:B2 et D1:E2 contiennent des valeurs booléennes.

[ouskel'n'or]

Je pense que ça vient de là

If (mat1(i, k) And mat2(k, j) = True) Then
resultat(i, j) = True
End If

Tu peux écrire ça de plein de manières

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                    If (mat1(i, k) And mat2(k, j) Then
                        resultat(i, j) = True
                    End If

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                   If (mat1(i, k) = true And mat2(k, j) = true Then
                        resultat(i, j) = True
                    End If

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat(i, j) = mat1(i, k) And mat2(k, j)

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat(i, j) = mat1(i, k) = true And mat2(k, j) = true

Parce que tu as partout affaire à des booléens
Tu dis

[v4np13]

J'ai essayé tes deux premières propositions, les deux dernières ne me conviennent pas. Ca ne marche toujours pas

Il me dirait qu'il manquerait une donnée et je pense que ce sera c2. Cette ligne vous semble correcte?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim resultat(l1, c2) As Boolean

[SfJ5Rpw8]

J'ai essayé tes deux premières propositions, les deux dernières ne me conviennent pas. Ca ne marche toujours pas

Il me dirait qu'il manquerait une donnée et je pense que ce sera c2. Cette ligne vous semble correcte?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim resultat(l1, c2) As Boolean

non faut le faire en deux phase ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim resultat() As Boolean
..
i1 =..
C2 = ...
...
ReDim resultat(l1, c2)

[v4np13]

Merci beaucoup pour la rapidité de vos réponse, le problème est résolu. Voici la fonction pour ceux que ca intéresserait.

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
25
Function produitmat(x, y)
    mat1 = x
    mat2 = y
 
    Dim resultat() As Boolean
    l1 = UBound(mat1, 1)
    l2 = UBound(mat2, 1)
    c1 = UBound(mat1, 2)
    c2 = UBound(mat2, 2)
 
    If (c1 = l2) Then
        ReDim resultat(l1, c2)
        For i = 1 To l1
            For j = 1 To c2
                resultat(i, j) = False
                For k = 1 To c1
                    If (mat1(i, k) = True And mat2(k, j) = True) Then
                        resultat(i, j) = True
                    End If
                Next k
            Next j
        Next i
        produitmat = resultat
    End If
End Function