Bonjour,

J'ai cherché brievement et je n'ai pas trouvé grand chose de concluant, mes connaissances en vba n'arrangeant rien ...

J'aurais besoin d'écouter sur plusieurs cellules d'une feuille excel un changement de couleur et de répercuter ce changement de couleur sur d'autres cellules se trouvant sur d'autres feuilles.

J'ai trouvé ce code sur votre site mais je ne sais pas comment l'utiliser ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit 
 
Dim x As Integer 
Dim Cell As String 
 
 
 
Private Sub Worksheet_Activate() 
        x = ActiveCell.Interior.ColorIndex 
        Cell = ActiveCell.Address 
End Sub 
 
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    On Error Resume Next 
 
    If Cell = "" Then 
        x = Target.Interior.ColorIndex 
        Cell = Target.Address 
        Exit Sub 
    End If 
 
    If Range(Cell).Interior.ColorIndex <> x Then _ 
        MsgBox "la couleur de la cellule " & Cell & " a changé" 
 
    x = Target.Interior.ColorIndex 
    Cell = Target.Address 
End Sub
Merci à vous !
Kulnae.