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

**Henri1830** · 01/08/2019, 17h54

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

**patricktoulon** · 01/08/2019, 17h56

re

Code :

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

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

**Henri1830** · 01/08/2019, 17h58

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

**patricktoulon** · 01/08/2019, 18h04

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

Code :

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

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 :

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

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

**Henri1830** · 01/08/2019, 18h15

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

**Pierre Fauconnier** · 01/08/2019, 21h01

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 :

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

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

**Philippe Tulliez** · 02/08/2019, 07h49

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

**Pierre Fauconnier** · 02/08/2019, 07h53

Bonjour Philippe,

En effet, tu fais bien de le préciser

**unparia** · 02/08/2019, 08h05

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 :

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

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

**Pierre Fauconnier** · 02/08/2019, 08h14

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

**unparia** · 02/08/2019, 08h28

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.

**eriiic** · 02/08/2019, 08h38

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

**unparia** · 02/08/2019, 09h16

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

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

**Pierre Fauconnier** · 02/08/2019, 10h13

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

**Menhir** · 02/08/2019, 08h44

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 :

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

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.

**Pierre Fauconnier** · 04/08/2019, 08h27

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?

**Henri1830** · 04/08/2019, 10h40

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 ?

Bon dimanche et encore merci !

Henri

**Henri1830** · 04/08/2019, 15h57

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

**Pierre Fauconnier** · 04/08/2019, 16h14

Le non partage des solutions et l'apport des solutions par mp, alors que certains ont pris la peine de se pencher sur ton problème n'est pas vraiment dans l'esprit du forum

Il n'y a aucune interdiction à régler un problème technique par mp. Mais:

il serait courtois d'informer les membres ayant répondu sur le forum que tu as entrepris cette démarche afin qu'ils ne passent plus de temps à chercher de leur côté alors que, du tien, tu élabores la solution en "apparté", négligeant ainsi le temps qu'ils te consacrent;
tu n'as ainsi qu'une unique solution et qu'une unique manière de voir ton problème, dépendant ainsi des uniques connaissances de ton interlocuteur et te privant de la "confrontation" et d'autres idées qui te permettraient peut-être une solution plus pérenne.

Cela dit, si c'est ton choix...