Bonjour,
mohamed, ton tableau doit être passé en paramètre de ta fonction ou alors déclaré en entête de module.
Vois ceci :
en paramètre :
Sub test()
Dim TB(100) As Integer, i As Integer
For i = 0 To 100
TB(i) = i
Next
MsgBox "156 existe : " & Exist(TB, 156) & " // 16 existe : " & Exist(TB, 16)
End Sub
Private Function Exist(TB() As Integer, L As Integer) As Boolean
Dim i As Long
Exist = False
For i = LBound(TB) To UBound(TB)
If TB(i) = L Then Exist = True: Exit Function
Next i
End Function
en entête de module :
Option Explicit
Dim TB(100) As Integer
Sub test()
Dim i As Integer
For i = 0 To 100
TB(i) = i
Next
MsgBox "156 existe : " & Exist(156) & " // 16 existe : " & Exist(16)
End Sub
Private Function Exist(L As Integer) As Boolean
Dim i As Long
Exist = False
For i = LBound(TB) To UBound(TB)
If TB(i) = L Then Exist = True: Exit Function
Next i
End Function
La première méthode permet de se servir de la fonction avec plusieurs variables tableaux différentes...
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
la version est pour 2013
Merci !
Cordialement