XL 2013 [Résolu]Redémarrer une macro après un exit sub

[Fave]

Bonjour à tous,

J'ai un petit souci :

J'ai une macro qui me récupère les 19 premiers caractères d'une piste magnétique de carte (lu par un lecteur de carte). Çà fonctionne parfaitement.

Mon souci est que, quand j'efface une valeur, ce que je peux avoir besoin de faire, j'ai un message d'erreur "Erreur d'exécution '13' : Incompatibilité de type". J'utilise "If Target.Count > 1 Then Exit Sub" pour y remédier.

C'est là que je suis bloqué : ma macro ne redémarre pas. Elle ne me récupère plus les 19 caractères pour mes saisies suivantes.

Qu'ai-je oublié de faire ?

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B8:B5000"), Target) Is Nothing Then Target = Left(Target, 19)
Application.EnableEvents = True
End Sub

Je suis certain que c'est une connerie mais je sèche...

Je ne mets pas de bout de fichier mais si vous pensez en avoir besoin, je le ferais...

Merci d'avance pour votre aide et bonne journée,

 

[thebenoit59]

Re : Redémarrer une macro après un exit sub

Bonjour Fave.
As-tu essayé de remplacer

 If Target.Count > 1 Then Exit Sub

Par :

 On Error Resume Next

 

[Fave]

Re : Redémarrer une macro après un exit sub

Bonjour thebenoit59,

Non, je n'y avait pas pensé. Je viens de tester, c'est nickel !!!

Merci beaucoup !!!

Bonne journée,