Bonjour!

Je vous expose mon problème. Lorsque sup20= vbNo, ou sup21=vbNo, le programme s'arrete au lieu de reprendre la boucle. Pouvez-vous me dire pourquoi, merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Private Sub CommandButton1_Click()
Dim sup2
sup2 = InputBox("entrer le nom du commercial attitré")
 
Do
 
If sup2 = "Zielyk Daniel" Then
 
'on commence par remplir les heures d'éric
Dim sup16
sup16 = MsgBox("voulez-vous remplir les heures d'Eric Lastennet?", vbYesNo + vbDefaultButton1 + vbQuestion)
If sup16 = vbYes Then
Cells(10, 4) = InputBox("saisir le nombre d'heures d'étude de temps effectuées")
Cells(11, 4) = InputBox("saisir le nombre d'heures de démonstrations effectuées")
Cells(12, 4) = InputBox("saisir le nombre d'heures de support technique effectuées")
Cells(14, 4) = InputBox("saisir le nombre d'heures d'applications effectuées")
Cells(15, 4) = InputBox("saisir le nombre d'heures d'exposition effectuées")
Cells(16, 4) = InputBox("saisir le nombre d'heures d'installation effectuées")
Cells(17, 4) = InputBox("saisir le nombre d'heures de show room maitenance effectuées")
Cells(19, 4) = InputBox("saisir le nombre d'heures de permanence téléphonique effectuées")
Cells(20, 4) = InputBox("saisir le nombre d'heures de traduction effectuées")
Cells(21, 4) = InputBox("saisir le nombre d'heures de SAV effectuées")
Cells(22, 4) = InputBox("saisir le nombre d'heures de Formation clients effectuées")
Cells(23, 4) = InputBox("saisir le nombre d'heures de Formation du personnel effectuées")
Cells(24, 4) = InputBox("saisir le nombre d'heures de Réception clefs-en-main effectuées")
Cells(26, 4) = InputBox("saisir le nombre d'heures de Formation professionnelle effectuées")
End If
 
'si on ne veut pas remplir les heures d'éric, alors on remplit les heures de fabrice
If sup16 = vbNo Then
 Dim sup17
 sup17 = MsgBox("voulez-vous remplir les heures d'Fabrice Crassin?", vbYesNo + vbDefaultButton1 + vbQuestion)
 If sup17 = vbYes Then
  Cells(10, 13) = InputBox("saisir le nombre d'heures d'étude de temps effectuées")
  Cells(11, 13) = InputBox("saisir le nombre d'heures de démonstrations effectuées")
  Cells(12, 13) = InputBox("saisir le nombre d'heures de support technique effectuées")
  Cells(14, 13) = InputBox("saisir le nombre d'heures d'applications effectuées")
  Cells(15, 13) = InputBox("saisir le nombre d'heures d'exposition effectuées")
  Cells(16, 13) = InputBox("saisir le nombre d'heures d'installation effectuées")
  Cells(17, 13) = InputBox("saisir le nombre d'heures de show room maitenance effectuées")
  Cells(19, 13) = InputBox("saisir le nombre d'heures de permanence téléphonique effectuées")
  Cells(20, 13) = InputBox("saisir le nombre d'heures de traduction effectuées")
  Cells(21, 13) = InputBox("saisir le nombre d'heures de SAV effectuées")
  Cells(22, 13) = InputBox("saisir le nombre d'heures de Formation clients effectuées")
  Cells(23, 13) = InputBox("saisir le nombre d'heures de Formation du personnel effectuées")
  Cells(24, 13) = InputBox("saisir le nombre d'heures de Réception clefs-en-main effectuées")
  Cells(26, 13) = InputBox("saisir le nombre d'heures de Formation professionnelle effectuées")
  Dim sup21
sup21 = MsgBox("voulez-vous arréter de remplir la fiche horraire?", vbYesNo + vbDefaultButton1 + vbQuestion)
 If sup21 = vbYes Then
  Exit Sub
 End If
 End If
 
End If
 
End If
 
If sup17 = vbNo Then
Dim sup20
sup20 = MsgBox("voulez-vous arréter de remplir la fiche horraire?", vbYesNo + vbDefaultButton1 + vbQuestion)
 If sup20 = vbYes Then
  Exit Sub
 End If
End If
 
Loop Until sup20 = vbNo Or sup21 = vbNo
 
End Sub