D
Delors
Guest
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
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