Problème avec la boucle "Do-Loop Until"

Version imprimable

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:

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

26/05/2009, 17h32
DeaD78

Bonjour,

Pour ton problème,

Code:

Loop Until sup20 = vbNo Or sup21 = vbNo

Ca te met sur la voie ? :mouarf:

Cette ligne veut dire que ta boucle continue tant que sup20 <> vbNo ou sup21 <> vbNo. Dans le cas contraire, ben fin de la procédure...

Bonne continuation.
26/05/2009, 17h35
My_DiDi

hump désolé je ne suis encore que débutant dans toutes sortes de programmations, donc non ça ne me met pas sur la voie ... tu pourrais m'expliquer un peu mieux stp ??
26/05/2009, 17h47
DeaD78

Enlève

Code:

Until sup20 = vbNo Or sup21 = vbNo

et laisse juste le

Code:

Loop

et vois ce que ça donne.

En gros, tu as une condition de sortie de ta boucle qui est

Code:

Until sup20 = vbNo Or sup21 = vbNo

Lorsque c'est le cas, le programme quitte la boucle tout simplement et s'arrête donc puisque c'est la fin.

Et vu ton code, lorsque tu arrives à sup20 et sup21, peu importe ta réponse, le programme s'arrête.

En gros, laisse juste le Loop et ça devrait marcher :ccool:

Tiens moi au courant (et ne m'électrocute pas... Oula, la fin de journée est rude :cry:)
26/05/2009, 17h54
My_DiDi

je viens de tester ta solution, malheureusement, cela ne marche pas :? il m'affiche :
Erreur de compilation:
Attendu: While ou Until ou fin d'instruction
26/05/2009, 18h09
DeaD78

Ah oui, en effet, c'est ma faute :mouarf: J'avais oublié :roll:

Mets

Code:

Loop Until sup20 = "HiHi" Or sup21 = "HoHo"

On risque pas de sortir de la boucle comme ça :mouarf:

Après, c'est pas la bonne méthode mais j'ai pas envie de tout changer :cry: Si quelqu'un veut prendre ça :zoubi:
26/05/2009, 18h18
Krovax

Plus ismple encore mais sans changer d'idée par contre

Code:

Loop Until False

par contre ca serait peut être une bonne idée de déclarer les variable au début du code et pas au milieu des boucle
et un type pourais être une idée à développer
(mais n'est pas obligatoire)
26/05/2009, 18h24
DeaD78

Tiens, tiens.

Je ne connaissais pas le

Code:

Loop Until False

Merci Krovax ;)

Tu sais ce qu'il te reste à faire maintenant !
27/05/2009, 12h07
My_DiDi

j'ai toujours mon problème, cette fois ci avec la comande

Code:

Loop Until false

il me dit : erreur de compilation
Attendu: fin d'instruction
27/05/2009, 13h01
Krovax

bizard ca fonctionne sous 2003 et 2007. Au pire essaye

Code:

Loop Until 1 = 2

Si ca ne fonctionne tjs pas redonne toute ta boucle
27/05/2009, 13h10
Jean-Philippe André
bonjour,
et si vous changiez la syntaxe en passant par :
Code:

1 2 Do until test Loop
:oops:
27/05/2009, 14h05
laetitia

bonjour le fil le forum pour moi il me semble qu' il serait plus facile de passer par un userform avec une combobox ou listbox pour les noms des commerciaux puis avec 14 textbox & un bouton valider il code serait beaucoup plus simple si tu as 20 commerciaux cela va vite devenir une usine a gaz ????
27/05/2009, 14h51
My_DiDi

bonjour laeticia,
pourrais-tu m'expliquer plus amplement les différentes procdures que tu me proposes stp ?

Excuse moi Krovax, mais peut tu me dire ce que représentent les chiffres 1 et 2 stp
27/05/2009, 14h57
DeaD78

Les chiffres 1 et 2 représentent... TADAM... (roulement de tambours)... les chiffres 1 et 2 ! :mouarf:

En gros la boucle continue tant que 1 n'est pas égal à 2 8O D'après mes cours de maths, je ne crois pas que c'est possible :roll:

Bref, la boucle continue et ne s'arrête pas comme je te l'avais proposé.

Teste et dis-nous !
27/05/2009, 15h18
My_DiDi

mais en gros c'est ce que je fais quand j'écris

Code:

Loop sup20 = vbNo

non?
27/05/2009, 15h46
DeaD78

Oh que non !

Code:

sup20 = vbNo

est une fenêtre de dialogue. vbNo est la réponse "Non" dans cette fenêtre et vbYes est la réponse "Oui".

En gros, d'après ton code, qd tu réponds "Oui" pour "Oui j'ai fini" tu mets un Exit Sub qui signifie fin de la procédure et donc fin du programme.

De plus ton programme doit continuer à boucler en permanence tant que tu n'as pas répondu "Oui" dans cette petite fenêtre.

Or ta boucle se termine si

Code:

sup20 = vbNo

Cela signifie que quand tu cliques sur "Non", ta boucle se termine et le programme aussi donc. C'est donc bien différent de ce qui t'a été proposé.

1 = 2 n'arrivant jamais, tu es complètement sûr que ton programme ne s'arrêtera jamais peu importe ta réponse à sup20 et sup21.

Te souviens-tu quand je t'avais demandé si cela te mettait sur la voie ? Je pensais exactement à ça et c'est ce qu'on te proposait.

Bref, maintenant, change comme cela t'a été proposé et reviens nous voir après pour nous dire comment cela marche. Mais fais ce qu'on te propose. Cela nous sert à rien de te proposer des choses si tu ne les testes pas... :roll:

Sinon, je suis tout à fait d'accord avec le commentaire de laetitia que je salue bien bas (:aie: le sol)

alros j'ai effectué la première modification que vous m'aviez conseillé, ce qui nous donne maintenant:

Code:

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")
 
 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
 
 
 
End Sub

Cependant, en ce qui concerne ma variable sup20, j'ai beau changer sa valeur (c'est à dire qu'elle soit égale à vbNo ou vbYes), la bloucle ne s'effectue tjs pas et à chaque fois mon programme se termine...

28/05/2009, 16h43
DeaD78

As-tu écouté ce qui a été dit dans les différents posts ?

Oublie tes vbYes ou vbNo et mets ce qui a été proposé avant :

Code:

Loop Until 1 = 2

Soit tu le fais, soit tu restes avec ton problème, à toi de choisir.

A+ :evilred: