InputBox et VBRetry

Version imprimable

InputBox et VBRetry

Bonjour à tous.

J'ai le code suivant (il y a plus que ce bout de code avant ce qui suit incluant la déclaration des variables):
Code:

1 2 3 4 5 6 7 Private Sub Workbook_Open() If [NombreEmployé] = 0 Then NomEmployé1 = InputBox("Quel est le prénom et le nom de votre premier employé ?", "Démarage du fichier !") If NomEmployé1 = "" Then MsgBox "Le prénom et le nom de famille du premier employé est obligatoire. Veuillez inscrire les informations S.V.P.", vbRetryCancel, "Démarage du fichier !" Case vbRetry
Si l'utilisateur n'inscrit pas le nom dans le Inputbox, j'aimerais que s'il clique sur Retry que le code retourne au début.

Me reste à savoir comment :oops:

Merci à l'avance..

dlight

Code:

1
2
3
4
5
6
7
8
9
10
Dim NomEmploye1 As String
Dim Rep As Integer
 
Do
    NomEmploye1 = InputBox("Quel est le prénom et le nom de votre premier employé ?", "Démarage du fichier !")
    If NomEmploye1 = "" Then
        Rep = MsgBox("Le prénom et le nom de famille du premier employé est obligatoire. Veuillez inscrire les informations S.V.P.", vbRetryCancel, "Démarage du fichier !")
        If Rep = vbCancel Then Exit Do
    End If
Loop Until NomEmploye1 <> ""

11/11/2010, 23h16
dlight

VbRetry

Merci à vous mercatog pour cette réponse mais aussi pour la rapidité à laquelle vous avez répondu à ma question.

Dlight:ccool: