Tester une variable de type variant
Publié: 11 Mai 2007 à 18:59Cette fonction permet de savoir si un variant est renseigné.
- Code : Tout sélectionner
Public Function TestVariant(vrValue As Variant) As Integer
'Cette fonction permet de savoir si un variant est renseigné.
'renvois false si la variable est vide, nul ou égale à nothing
'si la variable est une liste ou un tableau renvoi false si il n'y a aucune ligne
'déclaration Variable
Dim i As Long
On Error Goto ErreurHandle
Select Case Datatype(vrValue)
Case 0,1, 10 'EMPTY,NULL, OLE error
TestVariant = False
Case 9 'OLE object or NOTHING
If vrValue Is Nothing Then
TestVariant = False
Else
TestVariant = True
End If
Case Else
If Isempty(vrValue) = True Then
TestVariant = False
Exit Function
End If
i = 0
If Isarray(vrValue) Or Islist(vrValue) Then
Forall Value In vrValue
i = i+1
If i > 2 Then
'pour eviter un traitement trop long s'il ya bcp de valeurs
Exit Forall
End If
End Forall
If i = 0 Then
TestVariant = False
Else
TestVariant = True
End If
Else
TestVariant = True
End If
i = 0
End Select
Exit Function
ErreurHandle:
Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
TestVariant = False
Exit Function
End Function