Target.Value erreur 13 incompatibilité de type

[stephanie31]

Bonjour,

N'ayant pas pu trouver ma solution dans des cas déjà exposés je vous soumets pour la première fois un problème qui m'arrive.

Il s'agit d'un fichier qui met à jour un tableau à partir d'autres tableaux (bouton "mise a jour" de la feuille "masterlist").

J'ai rajoutté la macro dont l'extrait ci dessous est le siège d'une erreur 13 "incompatibilté de type" à la ligne en rouge
Ce qu'il faut savoir c'est que tout marchait bien chez moi quand je l'ai écrite mais quand je l'ai testée sur mon lieu de stage et que j'ai lancé la macro de mise à jour l'erreur est arrivée.


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Columns(17)) Is Nothing Then
If Not IsEmpty(Target.Value) Then
If Target.Value = "X" Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1) = Date
End If
End If
End If
End If


je ne sais pas si je suis bien claire, mais merci pour aide.

 

[Dranreb]

Re : Target.Value erreur 13 incompatibilité de type

Bonsoir.
Ajoutez peut être ceci en tête de votre Worksheet_Change :

If Target.Count > 1 Then Exit Sub

À +

 

[stephanie31]

Re : Target.Value erreur 13 incompatibilité de type

Bonjour,

Merci Dranreb de votre réponse d'autant plus que ça marche, je n'ai plus d'erreur.
Par contre si vous avez le temps pourriez vous me dire quel était le pb, et que fait cette ligne de code.

merci

 

[Dranreb]

Re : Target.Value erreur 13 incompatibilité de type

Bonjour
L'erreur survenait lorsque plusieurs cellules étaient modifiées simultanément (par Suppr par exemple, au hasard, pour évoquer quelque chose qui n'était sûrement pas prévu !)
Dans ce cas Target est une plage de plusieurs cellules dont la propriété Value est un tableau de Variant, lequel ne peut définitivement pas être comparé à une constante String.
Je me suis borné à abandonner la procédure lorsque Target comportait plusieurs cellules.
On pourrait aussi les traiter une par une dans une boucle For Each Cel In Target
Cordialement.