VarType, fonctionVarType function

Renvoie un entier qui indique le sous-type d’une variableou le type de la propriétépar défaut d’un objet.Returns an Integer indicating the subtype of a variable, or the type of an object's default property.

SyntaxeSyntax

VarType (varname)VarType(varname)

L’argument varname obligatoire est une valeur de type Variant qui contient n’importe quelle variable, à l’exception d’une variable de type défini par l’utilisateur.The required varname argument is a Variant containing any variable except a variable of a user-defined type.

Valeurs de retourReturn values

L’une des constantes suivantes ou la somme d’un certain nombre de ces constantes est renvoyée.Either one of the following constants or the summation of a number of them is returned.

ConstanteConstant ValeurValue DescriptionDescription
vbEmptyvbEmpty 00 Empty (non initialisée)Empty (uninitialized)
vbNullvbNull 0,11 Null (aucune donnée valide)Null (no valid data)
vbIntegervbInteger n°22 IntegerInteger
vbLongvbLong 33 Entier longLong integer
vbSinglevbSingle 44 Nombre à virgule flottante à simple précisionSingle-precision floating-point number
vbDoublevbDouble disque5 Nombre à virgule flottante à double précisionDouble-precision floating-point number
vbCurrencyvbCurrency 6.x6 Valeur monétaireCurrency value
vbDatevbDate 7j/77 Valeur de dateDate value
vbStringvbString 8bits8 StringString
vbObjectvbObject 4,99 ObjetObject
vbErrorvbError 10 10 Valeur d’erreurError value
vbBooleanvbBoolean a411 Valeur booléenneBoolean value
vbVariantvbVariant an12 Variant (utilisée seulement avec des tableaux de variants)Variant (used only with arrays of variants)
vbDataObjectvbDataObject kg13 Objet d’accès aux donnéesA data access object
vbDecimalvbDecimal 1314 Valeur décimaleDecimal value
vbBytevbByte cm17 OctetByte value
vbLongLongvbLongLong vingtaine20 Entier LongLong (valide sur les plateformes 64 bits uniquement)LongLong integer (valid on 64-bit platforms only)
vbUserDefinedTypevbUserDefinedType 3636 Variant contenant des types définis par l’utilisateurVariants that contain user-defined types
OnvbArray 81928192 Tableau (toujours ajouté à une autre constante renvoyée par cette fonction)Array (always added to another constant when returned by this function)

Notes

Ces constantes sont spécifiées par Visual Basic pour Applications.These constants are specified by Visual Basic for Applications. Vous pouvez les utiliser partout dans votre code pour remplacer des valeurs réelles.The names can be used anywhere in your code in place of the actual values.

RemarquesRemarks

Si un objet est passé et qu’il possède une propriété par défaut, VarType(Object) renvoie le type de la propriété par défaut de l’objet.If an object is passed and has a default property, VarType(object) returns the type of the object's default property.

La fonction VarType ne retourne jamais la valeur pour la constante vbArray elle-même.The VarType function never returns the value for vbArray by itself. Elle est toujours ajoutée à une autre valeur pour indiquer un tableau d’un type particulier.It is always added to some other value to indicate an array of a particular type. Par exemple, la valeur renvoyée pour un tableau d’entiers est calculée comme vbInteger + VBArray, ou 8194.For example, the value returned for an array of integers is calculated as vbInteger + vbArray, or 8194.

La constante vbVariant n’est retournée que lorsqu’elle est associée à vbArray pour indiquer que l’argument de la fonction VarType est un tableau de type Variant.The constant vbVariant is only returned in conjunction with vbArray to indicate that the argument to the VarType function is an array of type Variant.

ExempleExample

Cet exemple utilise la fonction VarType pour déterminer les sous-types de différentes variables, et dans un cas, le type de la propriété par défaut d’un objet.This example uses the VarType function to determine the subtypes of different variables, and in one case, the type of an object's default property.

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' Run VarType function on different types.
MyCheck = VarType(IntVar)   ' Returns 2.
MyCheck = VarType(DateVar)  ' Returns 7.
MyCheck = VarType(StrVar)   ' Returns 8.
MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                            ' even though AppVar is an object.
MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                            ' `8192 + 12`, the computation of
                            ' `vbArray + vbVariant`.

Voir aussiSee also

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.