Discussion :

[spud96]

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

Code :

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

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

[fring]

Bonjour,

Code :

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

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

[spud96]

Merci ca fonctionne