Discussion :

[dlight]

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 :

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

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

Merci à l'avance..

dlight

[mercatog]

Code :

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

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

[dlight]

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

Dlight