Signaler

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

Posez votre question Ccc8 - Dernière réponse le 19 mai 2017 à 19:35 par yg_be
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

Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !