Discussion :

[kyluxox]

Bref, je voudrais simplement que lorsque j'ai une erreur dans la boucle, je recommence la boucle où elle était avant cette erreur.

Exemple: si debut était à 3 to 10 et qu'il y a une erreur et bien je voudrais pas passer a 4 to 10 mais recommencer le 3 to 10.

J'ai essayé plein de chose mais ma variable "debut" ne veut pas changer.

La seule condition que je peux utiliser est si il y a une erreur.

MERCI !

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
 
Dim debut As Integer = 0
Dim fin As Integer = 10
 
For startboucle = debut To fin Step 1
 
Try
 
......
 
Catch ex As Exception
MessageBox.Show("Une erreur")
 
End Try
Next startboucle

[franticfranz]

Ma proposition, pour refaire une itération ratée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim debut As Integer = 0
Dim fin As Integer = 10
 
For startboucle = debut To fin Step 1
 
Try
 
......
 
Catch ex As Exception
MessageBox.Show("Une erreur")
startboucle -= 1
End Try
Next startboucle

Edit : Oups, je crois que j'ai mal compris la question... Si l'idée est de recommencer la boucle au point de départ il faut mettre

Code :

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

startboucle = debut-1

et non pas

Code :

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

startboucle -= 1

[kyluxox]

Cela fonctionne très bien je t'en remercie et merci à tous les autres pour votre temps.

Ma proposition, pour refaire une itération ratée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim debut As Integer = 0
Dim fin As Integer = 10
 
For startboucle = debut To fin Step 1
 
Try
 
......
 
Catch ex As Exception
MessageBox.Show("Une erreur")
startboucle -= 1
End Try
Next startboucle

Edit : Oups, je crois que j'ai mal compris la question... Si l'idée est de recommencer la boucle au point de départ il faut mettre

Code :

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

startboucle = debut-1

et non pas

Code :

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

startboucle -= 1

[getule]

essayes le 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
 
Dim debut As Integer = 0
Dim fin As Integer = 10
 
1: For startboucle = debut To fin Step 1
 
Try
 
......
 
Catch ex As Exception
MessageBox.Show("Une erreur")
 goto 1
End Try
Next startboucle

[Pol63]

le goto est à éviter de nos jours ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim reussite as boolean
for
  reussite = false 
  while reussite = false 
    try
      'code
      reussite = true
    catch
      ' erreur ...
    end try
  end while
next

attention tout de même à avoir une condition de sortie de boucle infinie
pour plus de lisibilité, tu peux mettre le code du try catch dans une fonction à part qui demande la valeur à traiter (issue de la boucle for)
ce qui permet alors de faire plus facilement x tentatives

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
for i
  if traitement(i) then continue for
  if not traitement(i) then msgbox "ca fait 2x que je tente pour " & i.tostring & " et ca passe pas ..."
next
(...)
private function traitement(i as integer) as boolean
  try
    ' traitement
    return true
  catch
    return false
  end try
end function