Macro qui disparait

[ffred2908]

Bonjour, Grâce à Jean Pierre, ma macro fonctionne, cependant, si jamais on supprime e qu'il y a dans les cellules, la macro ne fonctionne plus.
Savez vous d'où cela peut venir ?

Merci par avance


Fred

 

[ffred2908]

Re : Macro qui disparait

Voici la macro en question:

Dim vDonnée As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Not Intersect(Target, Range("L5C2:L35C2")) Is Nothing Then
Application.EnableEvents = False
vDonnée = Target.Value * 5
Target.Value = vDonnée
Application.EnableEvents = True
End If
fin:
End Sub

Merci pour votre aide

Fred

 

[pierrejean]

Re : Macro qui disparait

bonjour Fred

Voici un petit correctif

A l'occasion demande a JeanPierre de se pencher sur le bon usage de

On error Goto

Public flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
'Dim vDonnée As Integer
'On Error GoTo fin
If Not Intersect(Target, Range("B2:B35")) Is Nothing Then
'Application.EnableEvents = False
'vDonnée = Target.Value * 5
If IsNumeric(Target.Value) Then Target.Value = Target.Value * 5
'Target.Value = vDonnée
'Application.EnableEvents = True
End If
flag = False
'fin:
End Sub

 

[ffred2908]

Re : Macro qui disparait

Merci beaucoup, ça marche à merveille

Le GOTO c'était moi à la base, pas Jean Pierre.
Je suis un gros débutant en vba.

Merci encore (du premier coup en plus)!!!

Bonne journée
Fred