c'est vrai que dans ce cas, on pourrait récuperer des erreurs 13 type mismatch
Zoury a écrit dans le message :
: Public Function IsInArray(FindValue As Variant, _ : arrSearch As Variant) As Boolean : : If Not IsArray(arrSearch) Then : Exit Function : End If : : IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & _ : vbNullChar, vbNullChar & FindValue & vbNullChar) > 0 : : End Function
Yep!
Mais objectivement le Join ne fonctionne que sur des String alors fait moi
le
plaisir de virer les paramètres de type Variant de là... ;O)
c'est vrai que dans ce cas, on pourrait récuperer des erreurs 13 type
mismatch
Zoury <yanick_lefebvre@hotmail.com> a écrit dans le message :
OI4uyxIRDHA.2320@TK2MSFTNGP12.phx.gbl...
: Public Function IsInArray(FindValue As Variant, _
: arrSearch As Variant) As Boolean
:
: If Not IsArray(arrSearch) Then
: Exit Function
: End If
:
: IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & _
: vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
:
: End Function
Yep!
Mais objectivement le Join ne fonctionne que sur des String alors fait moi
le
plaisir de virer les paramètres de type Variant de là... ;O)
c'est vrai que dans ce cas, on pourrait récuperer des erreurs 13 type mismatch
Zoury a écrit dans le message :
: Public Function IsInArray(FindValue As Variant, _ : arrSearch As Variant) As Boolean : : If Not IsArray(arrSearch) Then : Exit Function : End If : : IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & _ : vbNullChar, vbNullChar & FindValue & vbNullChar) > 0 : : End Function
Yep!
Mais objectivement le Join ne fonctionne que sur des String alors fait moi
le
plaisir de virer les paramètres de type Variant de là... ;O)