Eviter l'instruction "If Not Application.Intersect(Target, Range("I18")) Is Nothing Then"

Bonsoir le Forum,

J'étrenne l'instruction If Not Application.Intersect(Target, Range("I18")) Is Nothing Then dans le cadre de la macro Private Sub Worksheet_Change(ByVal Target As Range) associée à cette cellule.
Bien pratique, elle m'apporte bien des satisfaction, mais...

Dans une autre partie de mon code, j'utilise l'instruction Range("J18").ClearContents et lors de l'exécution de cette instruction, il repasse par la macro Private Sub Worksheet_Change(ByVal Target As Range) et applique des instructions inadéquates à ce moment-là.

Existe-t-il un moyen de vider ma cellule J18 sans provoquer l'exécution de cette macro ?

Merci d'avance pour vos réponses et pour tout le soutien que ce forum m'apporte régulièrement et sans lequel je n'aurais jamais pu réaliser mes modestes réalisations.

Henri

re

Code:

---

1 2 3

application.enableevents=false Range("J18").ClearContents application.enableevents=true

---

Mille mercis Patrick, je teste ça et je te reviens.
Bat
Henri

re
de rien mais perso j'ai un soucis avec ca moi pour une autre raison

Code:

---

J'étrenne l'instruction "If Not Application.Intersect(Target, Range("I18")) Is Nothing Then"

---

question :est ce que target peut éventuellement être une plage de cellule ?

parce que si c'est pas le cas tu n'a pas besoins de intersect
tu peux simplement tester la cellule

Code:

---

if target.address=range("I18").address then

---

Patrick,
Je viens de tester, ça marche super bien.

Pour ce qui est du second message, intersect fonctionne avec une cellule mais s'il y a moyen d'épurer mon code, pourquoi pas. Je vais tester également.

Merci encore d'être souvent là pour prêter main forte.
Bonne soirée !
Henri

Salut

Par précaution, il est préférable de toujours entourer un EnableEvents d'une gestion d'erreurs, car si plantage avant EnableEvents = True, la propriété restera à False et les évènements de l'application (donc du classeur et des feuilles) ne seront plus écoutés. Voici un code minimaliste pour cela. Eventuellement, gérer l'erreur avec if err<>0 then juste après le ClearContents

Code:

---

1 2 3 4

application.enableevents=false On Error Resume Next Range("J18").ClearContents application.enableevents=true

---

Bonjour Pierre,
Sans oublier de placer la ligne On Error Goto 0 juste après le Range("J18").ClearContents

Bonjour Philippe,

En effet, tu fais bien de le préciser ;)

Bonjour
J'ai pour discipline fondamentale de ne jamais toucher aux paramètres de l'application.
Une gestion d'erreur est ici aux mieux un "pis-aller" qui ne protège pas de tout.
L'utilisation d'une variable booléenne me parait nettement plus sage ici.
Exemple rudimentaire :

Code:

---

1 2 3 4 5 6 7 8 9

Private b As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address And Not b Then b = True Range("A1").Value = Range("A1").Value & "b" b = False End If   End Sub

---

Salut.

Cette astuce ne désamorce pas

• les Worksheet_Change des autres feuilles;
• les Workbook_SheetChange;
• les app_SheetChange.

On n'a pas forcément connaissance que ces évènements sont écoutés, et quand bien même, on n'a pas forcément la main pour les désamorcer de la sorte, et même si on a la main, il me semble délicat de devoir passer par une variable publique et de "prévoir" la gestion de ces évènements. Bien circonscrite par une gestion d'erreurs, je ne rencontre pas de problèmes lors de la désactivation de l'écoute des évènements ;)

Citation:

---

Cette astuce ne désamorce pas

les Workshttps://www.developpez.net/forums/newreply.php?p=11071838&noquote=1heet_Change des autres feuilles;
les Workbook_SheetChange;
les app_SheetChange.

---

cela peut également se gérer de la même manière (l'exemple n'était que rudimentaire pour montrer un mécanisme)
Il est par ailleurs des cas de figure où l'on peut souhaiter que les évènements change continuent de survenir ailleurs (réactions en "cascade") sans "se répéter" dans la cellule en cours.

Bonjour à tous,

sauf que la gestion d'erreur n'empêche pas l'exécution des instructions indésirables.
Je suis plutôt un adepte d'un booléen qui permet de maîtriser totalement la gestion des événements sans les désactiver.
Si besoin, rien n'empêche d'agir de même sur d'autres événements, voire même d'avoir une gestion indépendante pour chaque.
eric

Si j'ai bien compris, tu veux que la procédure dans Worksheet_Change se déclenche quand on modifie J18 sauf si c'est pour la vider.

Dans ce cas, pourquoi ne pas tout simplement transcrire telle quelle cette condition dans le Worksheet_Change ?

Code:

---

If Target.Address = Range("I18").Address And Target.Value <> "" Then

---

Ainsi, même si cette cellule est vidée "à la main", la procédure ne se lancera pas.

Comme il a été dit, toucher à la propriété enableevents a une zone d'influence qui est difficile à contrôler.
Ma solution a l'avantage d'avoir un périmètre d'effet plus facile à maitriser.

Citation:

---

Envoyé par eriiic

Bonjour à tous,

sauf que la gestion d'erreur n'empêche pas l'exécution des instructions indésirables.
Je suis plutôt un adepte d'un booléen qui permet de maîtriser totalement la gestion des événements sans les désactiver.
Si besoin, rien n'empêche d'agir de même sur d'autres événements, voire même d'avoir une gestion indépendante pour chaque.
eric

---

Bonjour eriiic:plusser:
D'autant que :
- Excel peut planter quelquefois sans même crier gare
- Que Windows lui-même peut décider sa propre fermeture immédiate dans certains cas
- Qu'il arrive que l'utilisateur utilise CTRL-ALT-SUP (voire coupe carrément l'alimentation) pour se sortir de certaines situations
- et j'en passe ...

Citation:

---

Envoyé par unparia

[...]
- Excel peut planter quelquefois sans même crier gare
- Que Windows lui-même peut décider sa propre fermeture immédiate dans certains cas
- Qu'il arrive que l'utilisateur utilise CTRL-ALT-SUP (voire coupe carrément l'alimentation) pour se sortir de certaines situations
- et j'en passe ...

---

Dans le cas de EnableEvents, ça n'a pas d'importance, car c'est une propriété temporaire de l'application qui est systématiquement à True à l'ouverture d'Excel, même après un plantage brutal alors qu'elle était à False ;)

Bonsoir à tous les intervenants,

J'ignorais que ma petite question allait provoquer un débat d'expert. 8O
Désolé, mais mon niveau de connaissances est insuffisant que pour trier le bon grain de l'ivraie, dans tout cela.

Par contre, j'ai une autre question.
J'ai entouré les instructions qui faisaient indûment appel à la macro Private Sub Worksheet_Change(ByVal Target As Range)en les entourant de application.enableevents=true et false. Exemple :

Code:

---

1 2 3

application.enableevents=false Range("J18").ClearContents application.enableevents=true

---

Et j'ai donc ainsi un peu partout cet application.enableevents=false ou true dans mon code.

Je me demande s'il ne serait pas plus "propre" de placer application.enableevents=false en début de programme et d'utiliser le application.enableevents=true uniquement lorsqu'il est nécessaire de faire appel à la procédure Private Sub Worksheet_Change(ByVal Target As Range) (ce qui n'arrive qu'une ou deux fois).

J'aimerais avoir votre avis à ce propos. Par ailleurs, si mon sentiment est le bon et qu'il vaut mieux avoir un application.enableevents=false en début de programme, où faut-il le placer ?

Merci d'avance pour vos réponses. Bonne soirée.

Henri

re
ben en fait il faudrait connaitre tout le code pour te répondre
dans tout les cas cette fonction inhibe l'es évènements elle est donc a utiliser très précisément au moment ou l'on veut(ou besoins)
la généraliser serait pas une solution a mon avis

C'est éventuellement un des cas où une variable publique d'application pourrait être utilisée. Je me demande cependant pourquoi il y a multiplication de ces cas et je suspecte des problèmes d'architecture de code.

Pourrais-tu expliquer pourquoi tu as cette multiplication?

Bonjour Patrick, bonjour Pierre,

Je pense que le plus simple est de vous donner le fichier.
Deux mots d'explication pour que vous compreniez à quoi il sert. Ma fille travaille pour une agence d’intérim située à Anvers, raison pour laquelle les libellés sont en néerlandais.
Dans le cadre de son travail, elle doit vérifier une série d'informations techniques concernant les personnes qui sont engagées par les clients de l'agence.
Ce fichier est donc une liste de contrôle qui leur permet de vérifier si toutes les infos sont présentes et/ou correctement entrées dans leur ERP.

Il y a plusieurs encadrés. Chaque encadré "s'ouvre" lorsqu'on répond "oui" à la question titre. Le dernier encadré "Contract" doit toujours être rempli et la question titre est donc bloquée à "Oui" et inaccessible.
Pour qu'elle puisse voir en un coup d’œil les questions qu'elle doit encore poser, lorsqu'on répond "Oui" à la question titre, je colorie de jaune tout l'encadré. A chaque question répondue, la ligne concernée redevient blanche.

Certaines questions ne peuvent être posées que lorsque la précédente est égale à une réponse précise. Exemple : Dans le premier encadré, Vaste fee/uur et Koopkrachtpremie ne deviennent accessibles qu'en fonction de la PC (commission paritaire) qui est entrée.
Faites le test en entrant en I18 successivement 1, 100, 200 et en effaçant le contenu de la cellule. Observez ce qui se passe pour Vaste fee/uur et Koopkrachtpremie .

Mon problème général est que je suis un amateur - que la programmation passionne, certes - mais un amateur quand même. J'ai fait du Clipper il y a 30 ans mais je n'ai plus fait de programmation qu'occasionnellement depuis cette époque.
Mon code est donc fait de macros enregistrées, de mes recherches sur le net et de la bonne volonté de professionnels comme vous qui prennent de leur temps pour dépanner les incompétents. Ne vous étonnez donc pas du manque de structure du code.
A propos de ce code en particulier, au départ, c'était "un petit truc vite fait sur le gaz" et je n'ai pas pris la peine de déclarer mes variables. Sinon, d'ordinaire, il va de soi que je le fais.

Pour ce qui est des accès aux cellules depuis le programme dont je parle dans mon post précédent, il s'agit de faire apparaître, d'effacer ou de modifier les valeurs de certaines cellules.
Pour vous faciliter le travail, voici les lignes où se trouve le code.
1120 - de 1610 à 1617 - 1628 - 1785 - 2099 - 2119 - 2292 - 2295 - 2549 - 2552 - 2563 - 2597 - 2631.

Outre cela, mon problème actuel est que dans l'encadré "Contract" (le dernier), s'il est répondu "Oui" à la question Maaltijdcheques (chèques-repas) une fenêtre doit s'ouvrir où l'utilisateur doit pouvoir entrer deux valeurs.
Le code derrière le bouton "Ok", doit faire appel à une macro publique qui se trouve à la ligne 27 de la feuille "Blad1 (checklist)". J'ai essayé plusieurs formules sans succès.
En outre, pour pouvoir noter la réponse à hauteur de la ligne de la question, je devrais rendre les réponse Ja et Neen invisibles, mais là aussi, il ne trouve pas mes boutons d'action.
Si vous pouviez répondre aussi à ces questions, ce serait très sympa.

Encore un mot, originellement, le fichier est un XLTM que j'ai enregistré en XLSM pour qu'il soit accepté en pièce jointe.

Merci, merci, merci, que pourrais-je dire d'autre ? A charge de revanche ? :D

Bon dimanche et encore merci !

Henri

Citation:

---

Outre cela, mon problème actuel est que dans l'encadré "Contract" (le dernier), s'il est répondu "Oui" à la question Maaltijdcheques (chèques-repas) une fenêtre doit s'ouvrir où l'utilisateur doit pouvoir entrer deux valeurs.
Le code derrière le bouton "Ok", doit faire appel à une macro publique qui se trouve à la ligne 27 de la feuille "Blad1 (checklist)". J'ai essayé plusieurs formules sans succès.
En outre, pour pouvoir noter la réponse à hauteur de la ligne de la question, je devrais rendre les réponse Ja et Neen invisibles, mais là aussi, il ne trouve pas mes boutons d'action.
Si vous pouviez répondre aussi à ces questions, ce serait très sympa.

---

Patrice m'a aidé à trouver la solution à ce dont je vous parlais ci-dessus, il n'est donc plus nécessaire d'y répondre.

Bonne fin de journée.

Henri