Dim SIM As Single ' flottants simple précision
Dim ENT As Integer
Dim ENT2 As Integer
Dim ENT3 As Integer
Dim CHA As String
Dim CHA2 As String
Dim CHA3 As String
Liste des conversions classiques :
La syntaxe est toujours : VarDeTypeFinal = Cxxx (VarDeNimporteQuelType)
SIM = 3.1416
CHA = CStr(SIM)
Dans le cas d'un booléen : 0 = Faux, le reste = Vrai
ENT2 = 5: ENT3 = 5
Vérifie = CBool(ENT2 = ENT3) ' Vérifie contient la valeur Vrai.
SIM = 3.14
ENT = Fix(SIM)
SIM = Val("24.5") ' Renvoie 24,5.
SIM = Val("24.51") ' Renvoie 24,51.
ENT = Val("24.5") ' Renvoie 24.
ENT = Val("24.51") ' Renvoie 25.
ENT = Val(" 2 45 7") ' Renvoie 2457.
ENT = Val("24 et 57") ' Renvoie 24.
CHA = Str(459) ' Renvoie " 459".
CHA = Str(-459.65) ' Renvoie "-459,65".
CHA = Str(459.001) ' Renvoie " 459,001".
A noter : Le point décimal au lieu de la virgule
CHA2 = "19"
CHA3 = "95"
SIM = Val(CHA2 + "." + CHA3)
Range("A1").Select
ActiveCell.FormulaR1C1 = SIM