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

Ccc8 - 19 mai 2017 à 17:22 - Dernière réponse : yg_be 4376 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 12 janvier 2018 Dernière intervention
- 19 mai 2017 à 19:35
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

Afficher la suite 

1 réponse

Répondre au sujet
yg_be 4376 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 12 janvier 2018 Dernière intervention - 19 mai 2017 à 19:35
0
Utile
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
Commenter la réponse de yg_be