Erreur d'exécution 13 / Incompatibilité de type !! Fermé

Question

Bonjour à tous, et meci de me lire :) 

J'ai écris une macro qui m'indique la date du jour automatiquement dans la colonne D lorsque la colonne Ccontient "Y". Cette macro fonctionnait très bien, MAIS !

Malheureusement je viens de mapercevoir que si j'effectue des copier/coller, un message d'erreur apparaît : Erreur d'exécution 13 / Incompatibilité de type

Je suis perdu !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = "Y" And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Format(Now, "dd/mm/yyyy")
End If
End Sub

Configuration: Windows / Internet Explorer 11.0

yg_be · Answer

bonjour, je suggère ceci:
Option Explicit
Private Sub Worksheet_Change(ByVal CHG As Range)
Dim Target As Range
For Each Target In CHG
    If Target.Column = 3 And Target.Value = "Y" And Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Format(Now, "dd/mm/yyyy")
    End If
Next Target
End Sub

Erreur d'exécution 13 / Incompatibilité de type !!

1 réponse

Discussions similaires