Comment lancer la même procédure avec 2 boutons [Résolu]

Signaler
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
-
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
-
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

2 réponses

Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
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)
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009

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.