Erreur d'exécution 13 / Incompatibilité de type !!
Ccc8
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
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
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
