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

Fermé

Ccc8 - 19 mai 2017 à 17:22
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 - 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

A voir également:

Erreur d'exécution 13 / Incompatibilité de type !!
Erreur 0x80070643 - Guide
Erreur 38 free ✓ - Forum Mobile
Erreur d'execution 1004 ✓ - Forum Excel
Erreur d'éxecution 1004 - Forum Programmation
Fifa 13 apk - Télécharger - Jeux vidéo

1 réponse

Réponse 1 / 1

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
19 mai 2017 à 19:35

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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters