SUB ListBox Change

[tdaoui]

Bonjour le forum,
Bonjour à tous,

J'ai une petite question SVP
Pour ne pas charger mon module je souhaite savoir si je peux associer un seul code pour plusieurs actions

Private Sub S1_Change()
UserForm
End Sub
Private Sub S2_Change()
UserForm
End Sub
Private Sub S3_Change()
UserForm
End Sub
Private Sub S4_Change()
UserForm
End Sub

Demande : Je souhaite associer l'execution du Sub [UserForm] à plusieurs Listbox en même temps!
Est ce possible?

Merci d'avance pour votre aide

 

[Kobaya]

Re : SUB ListBox Change

bonjour tdaoui et Bonne Année,

A priori, je dirais oui. L'affichage du userform aura lieu à chaque fois que l'un des évènements Change aura lieu. Il te suffit simplement d'essayer 😛

 

[tdaoui]

Re : SUB ListBox Change

Salut Kobaya,
Bonne année à toi aussi 🙂

Donc pas moyen de créer une seule SUB pour toutes ces actions?

 

[Kobaya]

Re : SUB ListBox Change

éventuellement, c'est possible si S1, S2, S3, S4 sont des feuilles Excel, via l'évènement Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range).

 

[tdaoui]

Re : SUB ListBox Change

malheureusement, elles ne sont pas des feuilles mais plutôt des listbox :-(

 

[Kobaya]

Re : SUB ListBox Change

Pour ne pas charger mon module

tu veux dire pour ne pas surcharger ton module avec 4 fois le même code ?

 

[tdaoui]

Re : SUB ListBox Change

Oui c'est bien ça !

 

[Kobaya]

Re : SUB ListBox Change

il te suffit d'écrire ton code dans une procédure. ainsi, tu feras juste appel à ta procédure depuis chaque évènement de listbox : un simple Call MaProc suffit, pas de code dupliqué !

Private Sub S1_Change()
    Call MaProc
End Sub
Private Sub S2_Change()
    Call MaProc
End Sub
Private Sub S3_Change()
    Call MaProc
End Sub
Private Sub S4_Change()
    Call MaProc
End Sub
Private Sub MaProc
    ' ton code
End Sub