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

**My_DiDi** · 26/05/2009, 16h19

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

**DeaD78** · 26/05/2009, 16h32

Bonjour,

Pour ton problème,

Code :

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

Loop Until sup20 = vbNo Or sup21 = vbNo

Ca te met sur la voie ?

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.

**My_DiDi** · 26/05/2009, 16h35

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

**DeaD78** · 26/05/2009, 16h47

Enlève

Code :

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

Until sup20 = vbNo Or sup21 = vbNo

et laisse juste le

Code :

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

Loop

et vois ce que ça donne.

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

Code :

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

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

Tiens moi au courant (et ne m'électrocute pas... Oula, la fin de journée est rude

)

**My_DiDi** · 26/05/2009, 16h54

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

**DeaD78** · 26/05/2009, 17h09

Ah oui, en effet, c'est ma faute

J'avais oublié

Mets

Code :

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

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

On risque pas de sortir de la boucle comme ça

Après, c'est pas la bonne méthode mais j'ai pas envie de tout changer

Si quelqu'un veut prendre ça

**Krovax** · 26/05/2009, 17h18

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

Code :

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

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)

**DeaD78** · 26/05/2009, 17h24

Tiens, tiens.

Je ne connaissais pas le

Code :

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

Loop Until False

Merci Krovax

Tu sais ce qu'il te reste à faire maintenant !

**My_DiDi** · 27/05/2009, 11h07

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

Code :

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

Loop Until false

il me dit : erreur de compilation
Attendu: fin d'instruction

**Krovax** · 27/05/2009, 12h01

bizard ca fonctionne sous 2003 et 2007. Au pire essaye

Code :

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

Loop Until 1 = 2

Si ca ne fonctionne tjs pas redonne toute ta boucle

**Jean-Philippe André** · 27/05/2009, 12h10

bonjour,
et si vous changiez la syntaxe en passant par :

Code :

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

1
2
Do until test
Loop

**laetitia** · 27/05/2009, 13h05

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

**My_DiDi** · 27/05/2009, 13h51

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

**DeaD78** · 27/05/2009, 13h57

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

En gros la boucle continue tant que 1 n'est pas égal à 2

D'après mes cours de maths, je ne crois pas que c'est possible

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

Teste et dis-nous !

**My_DiDi** · 27/05/2009, 14h18

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

Code :

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

Loop sup20 = vbNo

non?

**DeaD78** · 27/05/2009, 14h46

Oh que non !

Code :

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

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 :

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

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

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

le sol)

**My_DiDi** · 28/05/2009, 13h52

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

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