Private Sub Worksheet_Change(ByVal Target As Range)

[Evelynetfrancois]

Bonjour tout le monde
J’essaye de simplifier mes macros ...

Quand sur chaque feuille j ai un " Private Sub Worksheet_Change(ByVal Target As Range) "
je note ma macro à la suite, et ça fonctionne très bien.....
Cependant comme j ai 30 feuilles, je note donc la même macro sur ces 30 feuilles....

Pour info voici une partie de la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B6:H10,B13:H17]) Is Nothing And Target.Count = 1 Then
Select Case UCase(Target.Value)
Case Is = 1
Target.Value = Range("L5").Value
Target.Interior.ColorIndex = 43
Case Is = 2
Target.Value = Range("L6").Value
Target.Interior.ColorIndex = 22
etc...

Ma question :
Est t il possible de faire un Call .... vers un module pour noter cette macro qu'une seule et unique fois
j espère être clair
MERCI pour toutes vos idées...
Bonne journée à tous
E et F

 

[Pierrot93]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Bonjour,

tu peux toujoursfaire un "call" vers une procédure dans un module standard, mais tu peux aussi placer le code dans le module "thisworkbook", s'appliquera à toutes les feuilles du classeur en question... :

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'ton code
End Sub

bonne journée
@+

 

[Evelynetfrancois]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

bonjour Pierrot93

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) !!!!! super!!

Merci pour cette info qui allège considérablement mon classeur et qui facilite énormément les motifs à venir, une seule maintenant pour toutes les feuilles....génial !
Très bonne journée
et encore un énorme merci !!!
E et F