écrire une fonction

Public Function EntierEnChaine(n As Long) As String
Dim reste As Long, resultat As String, an As Long
' on va travailler sur la valeur absolue de n
' le signe sera traité à la fin
an = Abs(n)
' initialisation de resultat
resultat = ""
Do
  ' reste = reste de la division de an par 10
  ' reste =  dernier chiffre de an (de 0 à 9)
  reste = an Mod 10
  ' chr(48) est le caractère de code ASCII 48 soit le caractère "0"
  ' ensuite 49 est le code de 1 etc ...
  resultat = Chr(48 + reste) + resultat
  ' an = quotient de an par 10
  ' an = la suite des chiffres de an sauf celui des unités
  an = an \ 10
Loop Until an = 0
' renvoi du resultat avec traitement des négatifs
If n < 0 Then
  EntierEnChaine = -resultat
Else
  EntierEnChaine = resultat
End If
End Function

Public Function IntToStr(n As Long) As String
If Abs(n) < 10 Then
  If n >= 0 Then
    IntToStr = Chr(48 + n)
  Else
    IntToStr = "-" & Chr(48 - n)
  End If
Else
  IntToStr = IntToStr(n \ 10) & (Abs(n) Mod 10)
End If
End Function