Discussion :

[phileurof]

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

[NEC14]

Bonjour,

Code :

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

1
2
 
Loop While question2 <> "1812"

[SMBeccaria]

Bonjour,

Si l'utilisateur clique sur Annuler, la valeur de question2 sera "". Ce qui devrait donner dans votre cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 = "" Then Exit Do
 
 Loop While question2 <> 1812
If question2 = "" Then
Exit Sub
Else
End If
Case Else
End Select

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
 
question2 =1812
vbCancel =2 'constante vb toujours = à 2
 
'si 1812=2 ça n’arrive jamais
If question2 = vbCancel Then

[phileurof]

Bonjour,

Si l'utilisateur clique sur Annuler, la valeur de question2 sera "". Ce qui devrait donner dans votre cas:

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
 
1234567891011121314 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 = "" Then Exit Do
 
 Loop While question2 <> 1812
If question2 = "" Then
Exit Sub
Else
End If
Case Else
End Select

dans cette solution que je viens de tester, que je clique sur ok ou cancel je sort du programme or je voudrai que seulement si je clique sur cancel je sort, si non le inputbox réaparais pour autorisé une erreure de code éventuelle
j'ai remplacer

Code :

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

1
2
if question2=""then 'par
if question2 = vbcancel then

Comme me la indiqué rdurupt.
Mais je ne sort pas de la boucle tant que le code n'est pas Ok
et je ne peut pas déclaré vbcancel = 2 ou alors je n'est pas compris cette partis
Merci de votre aide je me raproche du but, reste plus cas sortir de la boucle que quand l'UE clique sur cancel.

[Invité]

vbcancel est un constante de Excel VBA.
Constante veut dire ne change jamais, donc inutile de vouloir lui dire
vbcancel =2-> vbcancel =25 ou vbcancel=1812 car sauf te manifester son mécontentement par un message d'erreur, il ne changera jamais de valeur.

maintenant pourquoi veux tu tester le cancel pour interdire la sortie du formulaire. si tu en disais plus sur tes intension et non sur le code qui vraisemblablement ne fait pas ce que tu attends de lui?

[phileurof]

Alors je vais essaye d'être plus explicite:
Ce programme s'adresse a deux type d'utilisateur des novices et des confirmés.
Si un certain nombre de parmètre font que la valeur ce situe entre 6 et 10 seul les confirmés pourront allées au bout du programme (ceux qui on le code)sauf qu'un code on peut ce tromper d'où la boucle.Les autres doivent pouvoir quiter le programme d'où le "cancel" pour eux.
J'éspere avoir été claire dans mes explication
Maintenant il ya peut être une autre solution qu'une boucle mais là je pêche.
Merci

[carden752]

Bonjour,

Peut-être est-ce plus judicieux d'utiliser la méthode Environ() qui retourne le nom d'utilisateur Windows par exemple.
Sinon ton problème se résoud à :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Do
question2 = InputBox("Le devis doit être soumis imperativement à un responsable" + Chr(13) + "veuillez entrer le code admnistrateur", vbOKCancel + vbDefaultButton1)
 
'Cas du cancel On arrête la procédure
If question2 = "" Then Exit Sub
'Sortie de la boucle par le code ("1812")
Loop While question2 <> 1812
 
End Sub