Evelynetfrancois
XLDnaute Impliqué
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
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