J'ai remarqué que l'exemple de l'aide concernant
"Instruction On...GoSub;Instruction On...GoTo [Exécution]"
avait sans doute été mal traduit.
Je voulais le signaler, juste pour faire avancer le schmilblik,
mais étant tout nouveau (dans ooo-Basic et sur le forum),
je ne suis pas du tout certain de frapper à la bonne porte...
Voici l'exemple tel quel :
Code : Tout sélectionner
Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " De Sub 1 à" : retour
Sub2:
sVar =sVar & " De Sub 2 à" : retour
Line1:
sVar =sVar & " Étiquette 1" : GoTo End
Line2:
sVar =sVar & "Étiquette 2"
Fin :
MsgBox sVar,0,"On...Gosub"
End Sub
Code : Tout sélectionner
Sub ExampleOnGosub_modif
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " De Sub 1 à" : return
Sub2:
sVar =sVar & " De Sub 2 à" : return
Line1:
sVar =sVar & " Étiquette 1" : GoTo Fin
Line2:
sVar =sVar & "Étiquette 2"
Fin:
MsgBox sVar,0,"On...Gosub"
End Sub
.Le modérateur a écrit :Rapport 94483 ouvert pour vous