Accueil Forums Excel Coller des valeurs automatiquement Répondre à : Coller des valeurs automatiquement

#8100
monarc
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

Retour en haut