Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

VBAConversion

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)

Exemples :

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.

Fonctions de conversions disponibles

Autres fonctions de conversions

Conversions de flottants en entiers :

SIM = 3.14

ENT = Fix(SIM)

Conversions de nombres en chaînes :

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.

Conversions de chaînes en nombres

CHA = Str(459) ' Renvoie " 459".

CHA = Str(-459.65) ' Renvoie "-459,65".

CHA = Str(459.001) ' Renvoie " 459,001".

Exemple complexe de ChaineNum

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