comment faire sans goto

[Delors]

bonjour au Forum.
J´aimerai savoir comment obtenir le code suivant sans goto:

Sub test()
1: If x <> 1 Then
z = FaitCeci(x, y)
If y = 3 Then
2: z = FaitCela(x, y)
If z = 5 Then
z = FaitNimporteQuoi(x, y)
Else
GoTo 1
End If
Else
z = FaitNimporteQuoi(x, y)
End If
Else
GoTo 2
End If
End Sub

merci pour tout aide

 

[AlainM]

Bonjour à toutes zé à tous et encore une fois bonne année

En remplacant les goto ... par du code ? non ?

-😉 @lain

 

[Ti]

voilà, pour autant que j'aie pu comprendre ta logique (ce qui n'est pas sûr) comment tu peux traduire ça sans goto :

Sub testTi()
Dim X, Z, Y
Do
If X <> 1 Then Z = FaitCeci(X, Y)
If (X <> 1 And Y = 3) Or X = 1 Then
Z = FaitCela(X, Y)
If Z = 5 Then Z = FaitNimporteQuoi(X, Y)
Else
Z = FaitNimporteQuoi(X, Y)
End If
Loop Until Z = 5
End Sub

 

[Delors]

C´est super Ti !
merci beaucoup.