code evenementiel se lance 2 fois

mromain

XLDnaute Barbatruc

• 24 Juin 2009

• #2

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+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 24 Juin 2009

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2009

• #4

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
@+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 24 Juin 2009

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2009

• #6

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"...

@+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 24 Juin 2009

• #7

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.

 

Vote positif 0 Vote négatif