Discussion :

[hannibal_barka]

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 :

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

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...

[hannibal_barka]

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

[hannibal_barka]

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

Code :

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

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

[Minick]

Re,

Ca doit correspondre a Inputbox


Edit:
Et Bip devient Beep