Discussion :

[statista]

Bonjour,

Ma question concerne les cas ou une boucle parcourt un tableau pour chercher une valeur (par exemple), et que dès que la valeur est trouvée il n'y a plus besoin de continuer la boucle (donc autant passer à l'itération suivante pour rapidifier l'opération)...
@édit: désolée cet exemple induisait en erreur: il ne faut pas sortir de la boucle, mais juste passer au suivant

Quand c'est le cas avec une boucle While par exemple on fait donc:

Code :

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

1
2
3
4
5
Do While blablabla
(blablabla opérations à répéter)
if (condition) then Loop
("suite des opérations")
Loop

Ainsi quand la condition "condition" est réalisée, on itère directement la boucle WHILE sans faire le reste des opérations ("suite des opérations").

Mais en essayant de faire la même chose dans une boucle For (--> if condition then next), ça a refusé de compilé (Erreur débogage: "Next sans boucle For").

Savez vous comment procéder pour itérer sans faire la suite des opérations dans une boucle "for" (mais sans sortir de la boucle non plus, donc pas "Exit For").

Merci d'avance pour toute aide.

[wilfried_42]

Bonjour

il y a dans le basic une commande assez Barbare que je n'utilise plus depuis des années tellement c'est laid (surtout quand elle son cumulée) à la fin on ne sait même plus ou on va.

Code :

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

1
2
3
4
5
6
For i = 1 to 200
      Montraitement
      Si la condition est ok : GOTO suite
      Mon2eme traitement
:suite
Next i

mais franchement à ne pas faire. les boucles do loop ont été aussi faites pour éviter les gosub et goto

[tedo01]

Bonjour,
Petite question : pourquoi ne pas vouloir utiliser le Exit For ? Il est en principe fait pour ça...

[wilfried_42]

Boujour

Bonjour,
Petite question : pourquoi ne pas vouloir utiliser le Exit For ? Il est en principe fait pour ça...

telle qu'est posée la question avec son exemple exit for ne convient pas, d'aprés ce que j'ai compris, il ne désire pas sortir de la boucle mais selon une certaine condition ne pas effectuer le traitement à venir et passer à l'enregistrement suivant.

finalement dormir peut servir lol

Pourquoi tester une valeur alors qu'on peut tester la non valeur

Code :

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

1
2
3
If drapeau = true then  loop
montraitement
loop

fait pareil que :

Code :

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

1
2
3
4
If drapeau<>true then
     mon traitement
end if
Loop

[helas]

Bonjour,
Il est possible d'imbriquer deux boucles

Code :

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

1
2
3
4
5
6
7
 
Do While blablabla
  Do While condition
   (blablabla opérations à répéter)
  Loop   
 ("suite des opérations")
Loop

[pgz]

Bonjour.

On peut faire sans pb

Code :

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

1
2
3
4
5
6
For ...
    traitement commun
    If <condition> Then
        Traitement particulier = "suite de opérations"
    end If
Next

Cordialement,

PGZ

[Theze]

Bonjour,

L'erreur :

"Erreur débogage: "Next sans boucle For"

vient probablement du fait que le For se trouve dans un bloc If Then End If et le Next à l'extérieur de ce bloc. onc, le compilateur ne voit pas le For. Soit tu rentre le Next dans le bloc If soit tu sort le For du bloc If.
Généralement, une boucle Do Loop est utilisée quand on ne connait pas les limites de l'objet que l'on veut parcourir par contre, une boucle For ou For Each est tout à fait indiquée pour parcourir un objet dont on connait les limites :

Code :

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

1
2
3
4
5
6
7
 
For I = 1 To UBound(Tbl)
 
    If Tbl(I) = Condition Then Exit For
 
Next
'ici, récup soit de I soit autre traîtement...

Hervé.

[alsimbad]

plus besoin de continuer la boucle (donc autant passer à l'itération suivante

c'est une contradiction, passe a l'itération suivante signifie continuer la boucle
je pense comme theze qu'il te manque tout simplement un end if quelque part
essaye ça

Code :

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

1
2
3
4
5
6
7
 
Sub test()
For i = 1 To 3
 If i = 2 Then MsgBox "valeur trouvée": Exit For
Next i
MsgBox "opération suivante"
End Sub

par contre si tu l'écris comme ça

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
For i = 1 To 3
 If i = 2 Then
 MsgBox "valeur trouvée"
 Exit For
Next i
MsgBox "opération suivante"
End Sub

tu déclenche next sans for car il te manque le end if

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
For i = 1 To 3
 If i = 2 Then
 MsgBox "valeur trouvée"
 Exit For
End If
Next i
MsgBox "opération suivante"
End Sub

[pgz]

Bonjour.

Il faudrait que statista précise sa question.
J'ai compris qu'il voulait parcourir une boucle For... Next et pour tous les éléments appliquer un traitement. De plus, pour certains d'entre eux (ceux qui satisfont une condition) faire un traitement supplémentaire.
Si c'est bien cela, une instruction Exit For ne peut pas convenir, puisque les éléments suivants ne seront pas traités.

Statista essayait de faire qqc comme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub subForNext2()
Dim s As String, i As Integer
 
For i = 1 To 6
    'traitement
    Debug.Print i - 1 & " : " & s
    'traitement sous condition
    If i Mod 2 = 1 Then Next i
    s = s & "A"
Next i
 
Debug.Print i - 1 & " : " & s
 
End Sub

Cette syntaxe n'est pas acceptée par le compilateur.

Par contre les solutins de Wilfried me semble répondre au pb. J'en proposait une variante simple

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
Sub subForNext()
Dim s As String, i As Integer
 
For i = 1 To 6
    'traitement
    Debug.Print i - 1 & " : " & s
    If i Mod 2 = 0 Then 'si i est pair
        'traitement sous condition
        s = s & "A"
    End If
Next i
 
Debug.Print i - 1 & " : " & s
 
End Sub

Mais je n'ai peut-être rien compris au pb...

Bon dimanche,

PGZ

Edit : correction de confusion de noms. L'auteur de la discussion est statista.

[OrDonc]

Bonjour,

contrairement à statista, j'ai le même problème avec un Do et un For !
Puisque Goto existe (sous entendu : utiliser avec discernement) je ferais, par exemple :

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
 
Sub t()
    [A:B].Clear
    Do While l < 100
        l = l + 1
        Cells(l, 1) = Int(Rnd() * 10 + 1)
        If Cells(l, 1) = 5 Then GoTo 1 ' si Loop  --> Erreur
        Cells(l, 2) = Cells(l, 1)
1   Loop
End Sub
Sub t1()
    [A:B].Clear
    For l = 1 To 100
        Cells(l, 1) = Int(Rnd() * 10 + 1)
        If Cells(l, 1) = 5 Then GoTo 1 ' si Next --> Erreur
        Cells(l, 2) = Cells(l, 1)
1   Next
End Sub

A noter que pour, dans le premier code, on peut être tenté par :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub t()
    [A:B].Clear
    Do While l < 100
        l = l + 1
        Cells(l, 1) = Int(Rnd() * 10 + 1)
        If Cells(l, 1) = 5 Then l=l+1
        Cells(l, 2) = Cells(l, 1)
    Loop
End Sub

mais on se retrouve avec une ligne superflue donc on change de problème !

Là aussi, changer la variable boucle dans la boucle n'est gère recommandé tout du moins à faire avec discernement.

Tiens, cela me rappelle les grands affrontements "Application.EnableEvents" ,".Select" ...

[tedo01]

Bonjour,
Pour moi, on peut toujours coder sans Goto, et c'est la méthode à privilégier.
Par exemple, je trouve que le code de OrDonc écrit comme suit est beaucoup plus propre et fait la même chose qu'avec les Goto :

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
Sub t()
    [A:B].Clear
    Do While l < 100
        l = l + 1
        Cells(l, 1) = Int(Rnd() * 10 + 1)
        If Cells(l, 1) <> 5 Then
            Cells(l, 2) = Cells(l, 1)
        End If
    Loop
End Sub
Sub t1()
    [A:B].Clear
    For l = 1 To 100
        Cells(l, 1) = Int(Rnd() * 10 + 1)
        If Cells(l, 1) <> 5 Then
            Cells(l, 2) = Cells(l, 1)
        End If
    Next
End Sub

[statista]

Bonjour,
Tout d'abord, merci à tout le monde pour sa participation.

Pour préciser un peu le pourquoi de la question: je parcours toutes les lignes d'un tableau pour leur affecter un "critère" booléen (vrai ou faux). Par défaut ce critère est vrai, mais il y a plein de raisons qui peuvent faire qu'il soit faux, et une seule raison suffit. Je teste donc ces raisons une par une, mais une fois que le critère est faux ce n'est pas la peine de regarder les autres raisons, car il reste faux.

Voilà pourquoi je cherche à itérer dès que critère devient faux pour la ligne, sans toutefois sortir de la boucle (le critère doit continuer d'être affecté pour chaque ligne). Au début je pensais à mettre des "if", mais cela aurait fait trop de "if" imbriqués et je finis toujours par m'y perdre quand il y en a trop. J'ai un peu le même souci pour "loop", car il y a déjà beaucoup de boucle while à l’intérieur de la boucle for (il y a plusieurs séries de test, à chaque fois sous la forme de boucle while), j'ai peur que les loop se marchent dessus.

Par contre je viens de tester avec GoTo (bien que ça ait l’air déconseillé) et ça marche, merci beaucoup, même si je sais que ça n’a pas l’air très approuvé…

(Si quelqu’un souhaite que je mette le code, je peux, je ne l’ai pas mis car il est un peu long et je ne pense pas que quelqu’un rentrerait dedans).
Merci.

[tedo01]

Bonjour,

Je reviens à la charge (je n'aime vraiment pas les Goto ).
Pour ce genre de tests en cascade, un seul If avec des Or entre chaque condition peut fonctionner (il ne faut pas avoir une trop grande quantité).
Sinon, il y a aussi le ElseIf qui évite d'avoir trop de niveaux d'imbrication :

Code :

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

1
2
3
4
5
6
7
If condition1 Then
   traitement1
ElseIf confition2 Then
   traitement2
ElseIf confition3 Then
   traitement3
End If

[statista]

Mais pourquoi tant de haine contre goto?
Merci en tout cas pour cette suggestion, je ne connaissais pas "ElseIf", je pense que ça me servira souvent.

[tedo01]

Re,

Ma "haine" du Goto n'est pas seulement une réaction de puriste (quoi que...).
C'est pour moi une instruction qui casse la logique des structures de contrôle du code (If, While, For, ...) et donc risque de rendre la maintenance (en particulier par une autre personne) du code plus compliquée.
Maintenant, ce n'est qu'un avis...

[el_slapper]

je suis un puriste, j'aime pas les go to, et j'aime pas les elseif non plus.

parceque ce sont des instructions qui, à mon sens, mettent le doute dans l'esprit du lecteur. ça marche très bien, mais à la maintenance, c'est bof. J'ai tendance à préférer le select case true, avec ci-joint un exemple bidon :

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
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim Condition As Boolean
 
Select Case True
    Case i = 2
        Condition = False
    Case j <> 4
        Condition = False
        i = 8
    Case l > m
        Condition = False
    Case Else
        Condition = True
End Select

C'est très proche d'un if - elseif, mais j'ai tendance à trouver ça plus lisible. Mais si ma haine des elseif est discutable(et sera sans doute discutée), celle des go to est largement partagée par les vétérans, qui tous savent à quel point une maintenance peut partir en sucette à cause de go to qui pourtant avaient l'air bien pensés.....