Discussion :

[zeralium]

Bonjour,

J'utilise la fonction Private Sub worksheet_change pour detecter un changement dans ma feuille, pour ensuite venir ecrire dans dans des cellules de cette meme feuille.
Le probleme est que dés que je viens ecrire dans la cellule la macro se relance, car elle detecte un changement dans la feuille.
Existe t'il un moyen de bloquer la detection durant l'execution de la macro.

[Krovax]

au début de ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

n'oublie pas de le mettre a true a la fin

Edite petite précision
Si ta macro plante avant le passage a True. Les macro événementiel ne seront plus lancé. Pendant le développement fait toi une petit macro avec juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = True

Et lance la après chaque plantage
Tu peux aussi faire de la gestion d'erreur mais je trouve que pendant la phase de développement du code ce n'est pas très pratique de ne pas avoir la ligne qui pose problème

[laetitia]

bonjour zeralium le forum pas simple comme cela sans plus d' infos!!
regarde deja du côte de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

ps oups bonjour l' ami krovax plus rapide que moi bisous a+

[Gorfael]

Salut
Je structures mes macro ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Change
'déclarations ===============
'MEI ========================
Application.EnableEvents = False
Application.ScreenUpdating = False
'Traitement ==================
'sortie ======================
Sort_Change:
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
'Traitement des erreurs ======
Err_Change:
MsgBox Err.Description, , "Erreur Excel N°" & Err.Number
Resume Sort_Change
End Sub

Oui, je sais c'est lourd. mais en cas de problème, je gagne du temps
A+

[zeralium]

Merci pour votre aide precieuse, j'aurais du penser à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

Par contre merci Gorfeal, qui m'as donné une bonne methode pour structurer mes programmes.