Discussion :

[willis]

Bonjour,
j'ai une macro qui s'applique automatiquement sur une feuille de mon classeur et sur une plage de cellule précise ; elle a pour objet d'attribuer couleur précise à une cellule lorsque la valeur 2 est entrée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Worksheets("Feuil1").Range("A1:G25")
    If c.Value = 2 Then
        c.Interior.ColorIndex = 26
        End If
  Next c
End Sub

Je souhaiterais pouvoir faire appliquer cette macro sur la totalité des feuilles de mon classeur et sur la totalité des plages de cellules de chaque feuilles...
Merci d'avance pour votre aide.

[cafeine]

Hello,

Tu peux essayer ce code en le mettant sur le module de ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
For Each c In Sh.Range("A1:G25").Cells
    If c = 2 Then
        c.Interior.ColorIndex = 26
    End If
Next c
 
 
End Sub

Sinon, pourquoi ne pas utiliser la mise en forme conditionnelle qui ne nécessite pas de code ?

[willis]

en réalité ma macro inclut plus de 3 conditions (j'ai simplifié pour le forum), c'est pourquoi je ne peux utiliser la mise en forme conditionnelle.
Merci pour la réponse, ça fonctionne.
Toutefois, si je souhaite qu'elle s'applique sur toutes les cellules de toutes les feuilles ; dans le code actuel elle demeure limitée à la plage de cellules indiquée.