Indicateur de modification de cellule

Bonjour,

J'utilise une macro qui me permets pour une plage de cellule si il y a une modification les cellules d'une colonne prennent la valeur 1

Le probleme est que quand l'utilisateurs fait un copier coller sur plusieurs cellules cela ne marchent pas

Pouvez vous m'aider :P

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range If Not Intersect(Target, Range("B12:CE1200")) Is Nothing Then Range("CG" & Target.Row) = 1 End If endsub

---

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("B12:CE1200")) Is Nothing Then Range("CG" & Target.Row & ":CG" & Target.Row + Target.Rows.Count - 1) = 1 End If   End Sub

---

Merci ca fonctionne