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

Ccc8 -  
yg_be Messages postés 23541 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

A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
Erreur exécution 13 : incompatibilité de type
Belinos -
yg_be -

9 réponses