Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic On n'est pas obligé de poser toujours 1 question ...

On n'est pas obligé de poser toujours 1 question ...

2 réponses
Avatar
Bismark Prods
voilà un code que je viens de trouver sur le net et que je trouve des plus
pratiques. vous le connaissiez deja ?

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fly
Salut,

non, je connaissais pas, mais merci : ca peut toujours être utile de se
cultiver!


Bonne journée

Fly.(Francois)
MVP Access
Bismark Prods a écrit dans le message :

voilà un code que je viens de trouver sur le net et que je trouve des plus
pratiques. vous le connaissiez deja ?

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




Avatar
Fly
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)


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/