Gosub ou pas gosub
duduray
-
duduray -
duduray -
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
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
2 réponses
Bonjour,
On peut utiliser des routines avec GoSub pourvu que ce soit à l'intérieur d'une meme Sub ... End Sub
Exemple:
Tu remarqueras l'instruction Exit Sub avant l'étiquette message:
Ne pas la mettre causerait une erreur.
A+.
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+.
Re,
L'autre solution est d'utiler deux procédures, l'une appelant l'autre:
L'avantage de cette méthode est que la procédure message() peut etre appelée de n'importe où dans de programme.
A+.
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+.
Merci bien pour ta réponse,
bien compris le code exemple, mais la question est alors
Comment faire de mème mais autrement bien
Réponse en VBA peut etre
Merci bonne après midi a toi
Raymond