Accueil › Forums › Excel › Coller des valeurs automatiquement › Répondre à : Coller des valeurs automatiquement
1 août 2014 à 13 h 30 min
#8100
Participant
Si je modifiais les codes comme ci-dessous, Est-ce que ça pourrait empêcher l’arrêt de l’exécution du IF?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo Erreur
If Cells(Target.Row, Target.Column) > 0 And Cells(Target.Row, Target.Column) < 0.6 Then
Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, Target.Column)
End If
Erreur:
Application.EnableEvents = True
End Sub

