conversion de type entier-->bytes!

Bonjour,

Quelqu'un connaît-il la formule ou fonction permettant de convertir un entier en Bytes ?
Si oui , cela m'intéresse :D

Mercii

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim Var1 As Integer Dim Var2 As Byte Var1 = 254 Var2 = CByte(Var1) MsgBox Var2 'ou MsgBox CByte(Var1) End Sub

---

Mais

Code:

---

Var2 = Var1

---

fonctionne aussi bien ;)

Oui ,je m'en étais aperçu ;)
Merci