Traduction code excel 5

Bonjour à tous,

Je travaille sur un code écrit en français sous Excel 5 que je veux le transcrire sous Excel 2003. sauf qu'il y a pas mal de mots clé dont je connaît pas l'équivalent en anglais surtout avec le fait que je suis débutant sur le vba.

Voila le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'procédure d'affichage d'une boîte de saisie Public Fonction Saisie(Text$; Titre$) En Entier Faire Saisie = Application.BoîteSaisie(Text; Titre; ; ; ; ; ; 1) Si Saisie < 0 Alors Bip Message ("Le numéro de référence choisi est négatif.") Fin Si Si Saisie = Vide Alors Sortir Fonction Fin Si Boucle TantQue Saisie <= 0 Fin Fonction

---

Je ne sais pas trop comment traduire cette partie du code. some help please...:bebe:

cé juste la phrase coloriée qui me freine.

J'ai traduit ce code de la façon suivante mais ça fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'procédure d'affichage d'une boîte de saisie   Public Function Saisie(Text$, Titre$) As Integer Do Saisie = Application.TextBox1.Value If Saisie < 0 Then Bip MsgBox ("Le numéro de référence choisi est négatif.") End If If Saisie = Empty Then Exit Function End If Loop While Saisie <= 0 End Function

---

Re,

Ca doit correspondre a Inputbox


Edit:
Et Bip devient Beep