Bonjour,
J’ai un problème avec une boucle.
J'ai besoin: si un calcul donne une valeur entre 6 et 10 que l'utilisateur tape un code pour pouvoir poursuivre ou qu'il sorte du programme directement.
J'ai donc créée une boucle pour récupérer le mot de passe mais je 'arrive pas à sortir de la boucle quand on clique sur cancel.
Pouvez-vous me dire où je me trompe ?

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
Private Sub VALIDE2_Click()

Dim longeur1 As Double
Dim largeur As Double
Dim hauteur1 As Double
Dim Vv As Double
Dim av As Double
Dim A As Double
Dim Kb As Double
Dim Q As Double
Dim Q1 As Double
Dim Vtotal As Double
Dim Qcorriger As Double
Dim reservoir As Double
Dim QUESTION As Variant
Dim Qobst As Double
Dim Qte As Double
Dim gaz As Double
Dim securite As Double
Dim question2 As Variant
Dim REPONSSE As String
Dim delta As String
Dim question3 As Variant
Dim volumeloc As Double
Dim code As String

...
Case 6 To 10

Do
question2 = InputBox("Le devis doit être soumis imperativement à un responsable" + Chr(13) + "veuillez entrer le code admnistrateur", vbOKcancel + vbDefaultButton1)

If question2 = vbCancel Then Exit Do

 Loop While question2 <> 1812
If question2 = vbCancel Then
Exit Sub
Else
End If
Case Else
End Select
Merci de votre aide je n'ai rien trouvé sur le Tuto des boucles