Comparaison de tableau

Sub test()
Dim Tb(), i As Long, ind_1 As Long
Dim j As Long, ind_2 As Long
Dim MaValeur As String
Dim t As Single

'tb 1 dimension :
ReDim Preserve Tb(1000)
For i = 0 To 999
    Tb(i) = "Valeur " & i
Next
MaValeur = "Valeur 995"
Debug.Print "------- Tableaux à 1 dimension -------"
Debug.Print "EstDans : " & EstDans(MaValeur, Tb)
Debug.Print "IsIn : " & IsIn(MaValeur, Tb)
Debug.Print "BoucleSurTabl : " & BoucleSurTabl(MaValeur, Tb, ind_1) & " à l'indice " & ind_1

Erase Tb

'tb 2 dimensions :
ReDim Preserve Tb(1 To 1000, 1 To 100)
For i = 1 To 1000
    For j = 1 To 100
        Tb(i, j) = "Valeur " & i & "--" & j
    Next j
Next i
MaValeur = "Valeur 995--99"
Debug.Print ""
Debug.Print "---Restart here and Now.................."
Debug.Print ""
Debug.Print "------- Tableaux à 2 dimensions -------"
t = Timer
Debug.Print "----------------------------------------" & vbCrLf & _
"EstDans," & vbCrLf & _
"        résultat : " & EstDans(MaValeur, Tb) & ", en : " & Timer - t & " sec."
t = Timer
Debug.Print "----------------------------------------" & vbCrLf & _
"BoucleSurTabl," & vbCrLf & _
"        résultat : " & BoucleSurTabl(MaValeur, Tb, ind_1, ind_2) & ", en : " & Timer - t & " sec." & vbCrLf & _
"        En prime les indices : " & ind_1 & ", " & ind_2
End Sub

Function IsIn(mot As String, Tabl) As Boolean
If UBound(Filter(Tabl, mot, True, 1)) >= 0 Then
    IsIn = True
End If
End Function


Function EstDans(mot As String, Tabl) As Boolean
Dim Dimension As Byte, j As Integer

On Error Resume Next
If IsError(UBound(Tabl, 2)) Then Dimension = 1 Else Dimension = 2
On Error GoTo 0

Select Case Dimension
    Case 1
        On Error Resume Next
        EstDans = Application.Match(mot, Tabl, 0)
        On Error GoTo 0
    Case 2
        For j = 1 To UBound(Tabl, 2)
            On Error Resume Next
            EstDans = Application.Match(mot, Application.Index(Tabl, , j), 0)
            On Error GoTo 0
            If EstDans = True Then Exit For
        Next
End Select
End Function

Function BoucleSurTabl(mot As String, Tb, Optional Indice_1 As Long, Optional Indice_2 As Long) As Boolean
Dim Dimension As Byte, i As Long, j As Long

BoucleSurTabl = False

On Error Resume Next
If IsError(UBound(Tb, 2)) Then Dimension = 1 Else Dimension = 2
On Error GoTo 0

Select Case Dimension
    Case 1
        For j = LBound(Tb) To UBound(Tb)
            If Tb(j) = mot Then
                BoucleSurTabl = True
                Indice_1 = j
                Exit Function
            End If
        Next
    Case 2
        For i = LBound(Tb, 1) To UBound(Tb, 1)
            For j = LBound(Tb, 2) To UBound(Tb, 2)
                If Tb(i, j) = mot Then
                    BoucleSurTabl = True
                    Indice_1 = i
                    Indice_2 = j
                    Exit Function
                End If
            Next j
        Next i
End Select
End Function