T
THOMAS
Guest
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
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