Gosub ou pas gosub

Question

Bonjour a toutes et tous, forum bonjour

Juste pour faire un essai, est'il possible avec un GOSUB aller se positionner dans le projet, ou sinon comment faire SVP autrement que avec gosub

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Cells(2, 3) = "Bonne journée"

AfficheMessage:
Cells(4, 3) = "A tous"
Return
End Sub

'*** peut'on avoir le résultat sans avoir a cliquer DROIT


Private Sub Worksheet_Change(ByVal Target As Range)
Dim message
message = 5
If message = 5 Then GoSub AfficheMessage
End Sub

Merci a vous et de votre temps Agréable journée a tous

Raymond

tech_57 · Answer

Bonjour,

On peut utiliser des routines avec GoSub pourvu que ce soit à l'intérieur d'une meme Sub ... End Sub
Exemple:

Sub test()
Dim texte

   texte = "BONJOUR A TOUS"
   GoSub message

   texte = "Bonne journée à tous"
   GoSub message
Exit Sub

message:
   MsgBox texte
Return

End Sub

Tu remarqueras l'instruction Exit Sub avant l'étiquette message:
Ne pas la mettre causerait une erreur.

A+.

tech_57 · Answer

Re,

L'autre solution est d'utiler deux procédures, l'une appelant l'autre:

Sub test2()
Dim texte

   texte = "BONJOUR A TOUTES ET A TOUS"
   Call message(texte)

   texte = "Bonne journée"
   Call message(texte)

End Sub

Sub message(txt)
   MsgBox txt
End Sub

L'avantage de cette méthode est que la procédure message() peut etre appelée de n'importe où dans de programme.

A+.

Gosub ou pas gosub

2 réponses

Discussions similaires

Newsletters