Probleme de copie

[sokour]

Bonjour,

J'essaie de copier une cellule lorsqu'une cellule est modifie mais lors de la copie cela bug

Voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range)

L = Target.Row
c = Target.Column


If L = 8 And c = 1 Then

If Cells(8, 1) = "fermer" Then

Range("B8").Select
Selection.Copy
Sheets("magasinsfermeture").Select
Range("C15").Select
ActiveSheet.Paste 'Cela bug ici
end if
end if
end sub

Merci de votre aide

 

[sokour]

Re : Probleme de copie

petite rectification cela bug au niveau de cette ligne :

Range("C15").Select

 

[job75]

Re : Probleme de copie

Bonjour sokour,

Le code nettoyé (beaucoup) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$8" Then
  If Target = "fermer" Then
    With Sheets("magasinsfermeture")
      .Range("C15") = Range("B8")
      .Activate 'peut être pas nécessaire...
    End With
  End If
End If
End Sub

A+

 

[sokour]

Re : Probleme de copie

merciii ca marche nickelll