Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Fonction : DansListe
Permet de savoir si un élément donné fait partie d'une liste (tableau).
(Consulté 20337 fois.)

Public Function DansListe(stTmp As String, ParamArray tabList()) As Boolean
' Vérifie si stTmp se trouve dans la liste passée en paramètre.
' Le "ParamArray" permet de passer un nombre d'arguments indéfinis.
' Exemple d'appel :
' ...
' If DansListe(stQui, "Moi", "Lui", "Elle", "Nous") Then
' ...
Dim lgFor As Long, blOk As Boolean
' Initialisation de la valeur de retour
blOk = False
For lgFor = 0 To UBound(tabList)
    ' Comparaison des éléments
    blOk = (tabList(lgFor) = stTmp)
    ' Sort si on trouve
    If blOk Then Exit For
Next lgFor
' Retourne le résultat de la recherche
DansListe = blOk
End Function

Retour à la liste des fonctions