Code VBA sur toutes les feuilles ?

[THOMAS]

Bonjour, j'ai un code VBA, pour la mise en forme de cellules (couleur de fond) suivants la valeur qu'elles contiennent.

Je voudrais savoir comment faire pour étendre la procédure à toutes les feuilles du classeur, sans avoir à copier ce code sur chaque feuille (ce qui prend de la place ....).

je vous remercie d'avance.

Le code que j'utilise est du genre (en plus long sur lignes case 'critères' - environ 20 critères) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
Select Case c
Case 'G'
c.Interior.ColorIndex = 10
Case ''
c.Interior.ColorIndex = 0
End Select
Next
End Sub

 

[deudecos]

Salut thomas, le forum,

Dans ton cas, tu peux deplacer ton code, du moins ce que j'en vois, dans ThisWorkBook.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
For Each c In Target
Select Case c
Case 'G'
c.Interior.ColorIndex = 10
Case ''
c.Interior.ColorIndex = 0
End Select
Next
End Sub

Bonne soiree

Olivier

 

[Thomas]

Salut Olivier,

Merci pour ta réponse aussi rapide et ton efficacité.

thomas


:woohoo: