code evenementiel se lance 2 fois

[noviceAG]

Bonjour chers ami(e)s du Forum,
J'ai un code évenementiel qui se lance deux fois

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("$F$1")) Is Nothing Then Exit Sub
Call ValSaisie
Application.EnableEvents = True
End Sub

Ce qui en soit est normal puisque le code appelé copie la cellule F1 pour la coller dans une autre cellule (en fonction du nombre saisi)

Comment éviter que cette macro se déclenche deux fois svp ?
En vous remerciant.

 

[mromain]

Re : code evenementiel se lance 2 fois

bonjour noviceAG,

c'est quand même bizarre, tu désactive bien les évènements en début de macro...
est-ce que dans ta macro ValSaisie tu ne remets pas Application.EnableEvents à True par hasard ?

a+

 

[noviceAG]

Re : code evenementiel se lance 2 fois

voici la macro :

Sub ValSaisie()
Application.ScreenUpdating = False
Select Case [I1].Value
Case 0 To 99
Copie1
Case 100 To 199
Copie2
Case 200 To 300
Copie3
End Select
Application.ScreenUpdating = True
Cells(1, 9).Activate
End Sub

 

[Pierrot93]

Re : code evenementiel se lance 2 fois

Bonsoir Novice, Romain

Peut être la réactivation des macros événementielles s'effectue dans les procédures Copie1 ,Copie2 ou Copie3....

bonne soirée
@+

 

[noviceAG]

Re : code evenementiel se lance 2 fois

Bonsoir Pierrot,

Voici le début de la procédure Copiue :

Sub Copie1()
Application.ScreenUpdating = False
Range("$F$1").Copy
Range("A4").Select
ActiveSheet.Paste

Je pense effectivement, compte tenue de ta remarque, que ce sont les 2 lignes Range qui provoquent ce problème. Comment l'éliminer ?
En te remerciant

 

[Pierrot93]

Re : code evenementiel se lance 2 fois

Re

vois pas trop, je viens de tester chez moi pas à pas, et pas de souci l'événement "change" ne se déclenche qu'une seule fois... peut être réactives tu les événements un peu plus loin dans les codes des procédures "copie"...

@+

 

[noviceAG]

Re : code evenementiel se lance 2 fois

Je te remercie Pierrot, je vais regarder cela de plus près demain car je dois m'absenter.
En souhaitant à chacun de vous une bonne soirée.