Cellule modifiée

Bonjour,

je cherche une macro qui modifie la couleur des celulles (de la plage J6:AB610) quand elles sont modifiées et rapatrie un 'x' dans la colonne J pour pouvoir les repairer plus facilement. Avec Private Sub Worksheet_Change (ByVal Target as Range) ??

Merci pour votre aide.

Bonjour

J'ai modifié la plage pour enlever la colonne J, car c'est toi qui la modifies en y mettant un "X"

Code à placer dans le module de la feuille

Clic droit sur l'onglet ---> Visualiser le code

Tu y colles cette macro

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Range("K6:AB610"), Target) Is Nothing And Target.Count = 1 Then
        Target.Interior.ColorIndex = 3
    Range("J" & Target.Row) = "X"
  End If
End Sub

Merci beaucoup!!