Comment lancer la même procédure avec 2 boutonsRésolu

Question

Bonjour.

Je voudrais pouvoir en cliquant sur un bouton aller lancer une procédure par un gosub et avec un autre bouton aller par un gosub au même endroit sans pour autant doubler les quelques lignes de programmations sur chaque bouton.

Exemple :

_____________________________________________________
Private Sub XPButton1_Click()
Gosub Traitement
' Ligne de programmation 
End Sub
_____________________________________________________
Private Sub XPButton2_Click()
Gosub Traitement
' Ligne de programmation Différente du premier
End Sub
_____________________________________________________
Traitement:
' Plusieurs lignes pour le traitement
return
_____________________________________________________

Merci pour vos réponses.
Cordialement

NHenry · Accepted Answer

Bonjour

EN VB PAS DE GOSUB

Utilise plutot une Sub : 
private Sub Traitement
    'Traitement
end Sub

Et à tes event sur nles boutons, tu fait : CallTraitement

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Tanaka56 · Answer

Salut.
J'avais l'habitude de mettre des "gosub" sans doute l'ancienne école.
J'ai bien pris note et en plus c'est plus facile que de répéter dans les modules les mêmes lignes de programmations.
 Merci pour ta solution.
Alain.

Comment lancer la même procédure avec 2 boutons

2 réponses

Votre réponse