Executer une procedure partiellement

[Angus]

Bonjour,

Est il possible de spécifier les bornes d'une procédure afin de ne l’exécuter que partiellement depuis un bouton ou entièrement depuis un autre bouton ?

Merci.

 

[KenDev]

Re : Executer une procedure partiellement

Bonjour Angus,

On peut faire comme ça :

Private Sub bouton1_clic()
    Call Procedure(0)
End Sub
Private Sub bouton2_clic()
    Call Procedure(1)
End Sub
Sub Procedure(x%)
    '...
    If x = 0 Then
        MsgBox "Je m'arrête ici"
        Exit Sub
    End If
    '...
    MsgBox "Ou alors là"
End Sub

Cordialement

KD

 

[Angus]

Re : Executer une procedure partiellement

Merci KenDev,

Je ne comprend pas très bien alors il faut que j'essais plus tard...

 

[Softmama]

Re : Executer une procedure partiellement

Bonjour à vous,

Une variante :

Sub bouton1_Clic()
test
End Sub

Sub bouton2_Clic()
test
End Sub

Sub test()
msgbox "Partie commune aux 2 boutons"
If Application.Caller = "Bouton 1" Then Exit Sub
msgbox "Partie réservée au bouton 2"
End Sub