La fonction `VarType` en VBA est utilisée pour déterminer le type de données d’une variable. Elle renvoie une valeur numérique qui correspond à l’un des types de données pré-définis dans VBA. Voici comment vous pouvez l’utiliser :
Syntaxe
VarType(variante)
- variante : La variable dont vous voulez connaître le type de données. Cela peut être n’importe quel type de variable en VBA.
Valeurs de retour communes
Voici quelques valeurs de retour communes que `VarType` peut fournir :
- `vbEmpty` (0) : La variable n’est pas initialisée.
- `vbNull` (1) : La variable contient une valeur Null.
- `vbInteger` (2) : La variable est un entier.
- `vbLong` (3) : La variable est un long (entier long).
- `vbSingle` (4) : La variable est un simple (nombre à virgule flottante).
- `vbDouble` (5) : La variable est un double (nombre à virgule flottante à double précision).
- `vbCurrency` (6) : La variable est de type currency.
- `vbDate` (7) : La variable est de type date.
- `vbString` (8) : La variable est une chaîne de caractères.
- `vbObject` (9) : La variable est un objet.
- `vbBoolean` (11) : La variable est un booléen.
- `vbVariant` (12) : La variable est de type Variant (uniquement dans les tableaux).
- `vbDataObject` (13) : La variable est un objet de données.
- `vbDecimal` (14) : La variable est un decimal.
- `vbByte` (17) : La variable est un octet.
- `vbArray` (8192) : La variable est un tableau.
Exemple d’utilisation
Voici un exemple simple qui montre comment utiliser `VarType` pour déterminer et afficher le type d’une variable :
Sub ExampleVarType()
Dim myVar As Variant
myVar = 10
Select Case VarType(myVar)
Case vbInteger
MsgBox "myVar est un Integer."
Case vbLong
MsgBox "myVar est un Long."
Case vbDouble
MsgBox "myVar est un Double."
Case vbString
MsgBox "myVar est une String."
Case Else
MsgBox "Type de myVar est : " & VarType(myVar)
End Select
End Sub
Dans cet exemple, la fonction `VarType` est utilisée pour déterminer le type de `myVar`, et un message est affiché en fonction de ce type. Modifiez la valeur et le type de `myVar` pour voir comment `VarType` réagit à différents types de données.