Utilisation de Sous-Sub

[nadejka]

Bonjour,

Je voudrais utiliser des Call SousSub dans ma macro mais je ne sais pas trop comment procéder?
Ceci car ma procédure est trop longue.

Ma macro commence par:

Private Sub Worksheet_change(ByVal Target As range)
.........
.........
.........
End Sub

Merci d'avance
Nadège

 

[WILFRIED]

Salut Nadejka,

J'utilise trés souvent des 'sous sub' dans mes macro pour un souci de compréhenssion:

ex

Public sub main
dim i as long
dim j as integer
for j=1 to 2
for i=0 to 50000
beep
next i
select case j
case 1
call test1
case 2
call test2
end select
next j
end sub

sub test1
msgbox 'sous prog 2'
end sub

sub test2
msgbox 'sous prog 2'
end sub.

cela fonctionne parfaitement.

Si tu veux mettre tes sub dans différent module pense à les déclarer en public et pour la compréhension :
call nom_module.nom_macro

voila A+