Message erreur indice n'apparitent pas a la selection

Bonjour,


J'ai le message d'erreur cité en titre et je ne comprend pas pourquoi sa m'affiche. mon tableau semble bien déclarer en reference dans ma fonction. Si quelqun peut m'aider laisser moi savoir. Merci d'avance

l'erreur est en gras et souligné

Private Sub TestTrouverPlusProcheVoisin()
Dim pointVisites(1, 3) As Boolean
Dim tabMatrice(3, 3) As Double
Dim point As Integer
Dim pointproche As Integer

tabMatrice(1, 1) = 0
tabMatrice(1, 2) = 1.41421
tabMatrice(1, 3) = 2.82843
tabMatrice(2, 1) = 1.41421
tabMatrice(2, 2) = 0
tabMatrice(2, 3) = 1.41421
tabMatrice(3, 1) = 2.82843
tabMatrice(3, 2) = 1.41421
tabMatrice(3, 3) = 0

pointVisites(1, 1) = True
pointVisites(1, 2) = False
pointVisites(1, 3) = False

point = 1


Public Function TrouverPlusProcheVoisin(ByRef tabMatrice() As Double, _
                                        ByRef tabVisite() As Boolean, _
                                        ByVal pointDep As Integer, _
                                        ByRef pointproche As Integer) As Boolean


' pointDepart c'est l'indice dans notre test exemple 'point = 1

Dim i As Integer        'pour parcourir le tableau
Dim valMin As Double     ' valeur minimum



pointproche = LBound(tabMatrice)
valMin = constInfini  ' contient la valeur 10000
  
'Cette boucle passe a traver la matrice pour trouver la distance minimum
For i = 1 To UBound(tabMatrice, 1) ' To UBound(tabMatrice, 1) 'chaque ligne du tableau ' test
   <underline> <bold>If tabVisite(i) = False And tabMatrice(pointDep, i) < valMin Then</bold></underline>
       pointproche = i
       valMin = tabMatrice(pointDep, i)
    Else
       TrouverPlusProcheVoisin = False
    End If
        
Next i

TrouverPlusProcheVoisin = True
End Function

Call MsgBox(TrouverPlusProcheVoisin(tabMatrice, pointVisites, point, pointproche))
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.