si vraiment tu trouves pas tu te fais une fonction temporaire qui fait ca

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
function trbin(nb as byte) as string
  for i = 7 to 0 step -1
    if nb and 2^i then 
      trbin = trbin & "1"
    else
      trbin = trbin & "0"
    end if   
  next
end function
fonction non testée ...

d'ailleurs si je me rappele bien à l'origine t'avais un entier sur 32 bits
donc il suffirait de faire i = 31 to 0 ...