Discussion :

[vinssieux]

Bonjour,

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

Mercii

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Var2 = Var1

fonctionne aussi bien

[vinssieux]

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