Worksheet_Change dans un classeur ?

Bonjour, à toutes et tous,

j'ai un code

 Private Sub Worksheet_Change(ByVal Target As Range)
        Dim LigneDer As Long
        If Target.Row = 3 Then Triage_Noms ' macro à exécuter
    End Sub

est-il possible de mettre ce code dans le ThisWorbook

Afin qu'il soit disponible pour toutes les feuilles du classeur ?

actuellement, ce code est dans le code d'une feuille

merci pour votre aide

Amitiés

Pierrot

Bonjour,

Tout à fait. Comme ceci :

Public WithEvents evts_feuille As Worksheet

Private Sub evts_feuille_Change(ByVal Target As Range)
    Dim LigneDer As Long
    If Target.Row = 3 Then Triage_Noms ' macro à exécuter
End Sub

Private Sub Workbook_Open()
    Set evts_feuille = ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Set evts_feuille = ActiveSheet
End Sub

Bonjour, thev

Merci de ta réponse

Pourquoi 3 codes différents ?

j'ai essayé un code à la fois et puis tous ensemble,

hélas, ça ne marche pas, la macro ne se déclenche pas

Amicalement

Pierrot

Bonjour Pierre

Mettre ce code dans Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim LigneDer As Long
If Target.Row = 3 Then Call Triage_Noms ' macro à exécuter
End Sub

Amicalement

Bonjour, Dan

Merci beaucoup et de plus, ça marche

Bonne fin de Week-end

Amitiés

Pierrot