Function Contains(ByVal Source() As String, ByVal Value As String) As Boolean Value = Value.ToLower() For Each Element As String In Source If Element.ToLower() = Value Then Return True Next Return False End Function
Dim MonTblUCase() as String Dim Result as Boolean ReDim MonTblUCase(MonTbl.Count - 1) For Compteur As Int32 = 0 To MonTbl.Count - 1 MonTblUCase(Compteur) = MonTbl(Compteur).ToUpper Next Result = MonTblUCase.contains(MaVal.ToUpper) Erase MonTblUCase
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf Element.ToLower() = Value Then Return True
If Element.ToLower() = Value.ToLower() Then Return True
Value = Value.ToLower()