Worksheet_Change

[Ludo]

Dans la fonction Worksheet_Change , j'ai mis plusieurs instructions à faire dans certains cas.
Le problème c'est que maintenant j'y passe sans arret dès que je modifie ma feuille Excel. Y a t-il un moyen de désactiver temporairement cette fonction(du genre Application.Worksheet_Change.active = false)?

 

[Hellboy]

Bonjour

A ma connaissance, non. Mais tu pourrais filtrer si la 'target ' doit passer toutes la procédure ou si elle doit quitter immidiatement.

J'ai aussi souvent le même problème avec mes projets. J'essaie de faire autrement la plus part du temps.

 

[Ludo]

C'est bien ce que je pensais mais je cherchais une solution simple pour éviter de compliquer la fonction.....tant pis on compliquera....
Merci quand meme et bon WE!

 

[Macpoy]

bonsoir le forum, bonsoir hellboy,
puis je me permettre une petit question mon cher hellboy?
oui !
merci
comment fais tu pour que le lien vers la charte soit un texte très sympa et non pas l'url de la charte ?
ce n'est pas le but de ce fil, je sais et je m'en excuse mais ton savoir faire m'interesse.
merci d'avance
@ plus

Fait que chaque heure de ta vie soit un souvenir pour demain;

 

[Ludo]

C'est pas mal çà....et effectivement ca évitera de trop compliquer le code..
Merci.

 

[Ludo]

Si si je l'ai lu......j'ai répondu c'est pas mal ca, etc.......
Encore merci;

 

[Hellboy]

Bonsoir a tous

Ludo, voici un Lien supprimé pour avoir un exemple fournit par le forum qui sera s'en doute bien meilleur que mes explications.

a+

 

[Gorfael]

jmps écrit:

Bonsoir Ludo, Hellboy,

Moi j'utilise un Booléen déclaré en public pour éviter les évènements en cascade. C'est mon maître Thierry qui m'a appris ça... 😉

Je vous poste un exemple si ça vous dit.

Salut
Quand on utilise des événements du style WorkSheet_Change, on se trouve souvent confronté à un auto-bouclage : WorkSheet_Change modifie la feuille, ce qui lance WorkSheet_Change qui modifie la feuille, qui lance WorkSheet_Change ...
Pour éviter ça, j'utilise une astuce dangereuse, qui implique obligatoirement une gestion des erreurs avec sortie unique de la macro

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change

Application.EnableEvents = False
'Traitement de ta feuille

Sortie_Worksheet_Change:
'Passage obligatoire, pour remettre en action le traitement des événements
Application.EnableEvents = True
Exit Sub
Err_Worksheet_Change:
MsgBox (Err.Number & ' - ' & Err.Description)
Resume Sortie_Worksheet_Change
End Sub

Avant, j'utilisai une variable booléenne, testée en début de macro, mais ça lance obligatoirement l'événement, et sur change, tu peux t'en sortir, mais pas avec SelectionChange
A+