Matrices et tryades

Bonjours à tous,

Je dispose d’une matrice qui représente les liens entre individus première ligne et première colonne identique et représentant le nom des individus. Je voudrais mettre en évidence ce qu’on appelle les triades. C’est-à-dire, le fait que A soit lié à B, que B soit lié à C et que C soit lié à A.

J’aurais besoin de modifier les valeurs en 10 pour ces liens.

Ci-joint, un exemple avec en feuil1 la matrice à traiter et en Feuil2 les valeurs des liens modifiés pour une triade trouvée.

Merci d'avance

Bonjour,

un solution avec une macro. résultat à vérifier

Sub aargh()
' completer le tableau
    For i = 2 To 52
        For j = 2 To 52
            If Cells(i, j) = 1 Then
                Cells(j, i) = 1
            ElseIf Cells(j, i) = 1 Then
                Cells(i, j) = 1
            End If
        Next j
    Next i
    ' recherche triade
    For i = 2 To 52
        For j = 2 To 52
            If Cells(i, j) = 1 Then
                q = j
                For j1 = 2 To 52
                    If j1 <> i And j1 <> j Then
                        If Cells(q, j1) = 1 Then
                            r = j1
                            For j2 = 2 To 52
                                If j2 <> j1 And j2 <> j And Cells(j2, i) = 1 Then
                                    'triade
                                    Cells(i, j) = 10
                                    Cells(j, i) = 10
                                    Cells(q, j1) = 10
                                    Cells(j1, q) = 10
                                    Cells(r, j2) = 10
                                    Cells(j2, r) = 10
                                End If
                            Next j2
                        End If
                    End If
                Next j1
            End If
        Next j
    Next i
End Sub