Fenetre espion en VBA

Bonjour,

Je cherche à créer l'équivalent de la fenêtre espion d'Excel via un userform, mais je suis vraiment Newbie sur ce coup là.

Problème:
Afficher pour l'utilisateur final la valeur présente dans certaines cellules, à chaque modification d'une cellule quelque soit la feuille modifiée l'affichage doit se mettre à jour, et il doit être toujours visible


Je suis arrivé à quelque chose qui fonctionne mais qui me laisse quelques questions...
Pour le test à chaque modification de cellule j'incrémente la cellule A1 que je fais afficher via un TextBox.

1) A quoi sert cette commande ? ( Je l'ai récupéré sur le web sur une autre routine) sans elle ça ne fonctionne pas (L'incrémentation se fait via un pas de 52 ???)

Code:

---

1 2	Application.EnableEvents = False Application.EnableEvents = True

---

2) De plus je voudrais qu'à chaque changement dans une cellule de n'importe quelle feuille le UserForm se mette à jour, seulement quand j'essaye de passer la mise à jour sur le Workbook_SheetChange (J'espère que c'est bien là), je me retrouve avec quelque chose qui ne marche pas (Un peu comme si je ne mettais pas les lignes Application.EnableEvents.


3) J'ai l’impression de charger plein de fois le userform, vais-je avoir un problème de mémoire, sachant qu'il doit toujours resté visible
Le truc qui ne me plait pas trop, c'est que je doive en permanence réaffecter la valeur au textBox.value, j'aurais bien dans l'idée d'attribuer en permanence à la TextBox la valeur de La cellule en question (A1) dans mon test mais ou dois-je mettre ce lien ? dans les propriétés ?



Voilà le fichier


http://cjoint.com/?DLvjyxnJM15

En attendant vos commentaires éclairés

En vous remerciant par avance pour votre aide.

Cordialement

Golempas

Bonjour

La fonctionnalité intégrée nativement dans Excel ne suffit-elle pas : Onglet formules, Fenêtre espion ?

Bonjour 78Chris,
non, pas vraiment, je compte pouvoir mettre des mises en formes et d'autres petites choses par la suite, chose que ne fait pas la fenêtre espion à ma connaissance.


Cordialement,
Golempas

Bonjour,

Citation:

---

1) A quoi sert cette commande ?

---

à ne plus surveiller les événements.
Tu es dans l'événement Change et tu écris sur la feuille, ce qui re-déclenche un Change etc.
Si tu ne le mets pas tu entres dans une boucle infinie qui fini par un plantage.
Tu peux très bien conserver ton compteur dans une variable de portée module (ou globale avec Public au lieu de Dim si tu en as besoin dans d'autres modules). Ainsi plus d'événements Change en cascade.
A moins que tu ne désires conserver le compteur à la prochaine ouverture. Dans cas l'inscrire à la fermeture et le charger à l'ouverture.

2) Il faut te mettre dans ThisWorkbook Workbook_SheetChange() qui reçoit tous les Changes de toutes les feuilles.
Voir exemple allégé joint

Citation:

---

3) J'ai l’impression de charger plein de fois le userform

---

Pourquoi ne pas faire un seul .show avec vbModeless ? Ca ne sert à rien de le remettre dans Change (?)

eric

Bonsoir Eriiic,

Merci de votre commentaire,

Je comprends mieux à quoi servent ces lignes et leur utilité, forcément que ça ne marchait pas sinon.

Sinon je ne connaissais pas le vbmodeless, il sert juste à passer l'userform en mode non modal ? ou a-t-il une autre fonction ?

En fait je veux que le userForm soit toujours visible, d'ou mon idée de le forcer à se ré-afficher à chaque modif, (sinon les utilisateurs vont le fermer et ne plus l'avoir sous les yeux, ce qui peut leur être pratique ponctuellement, mais dès que les modifs vont reprendre, il faut qu'il s'affiche à nouveau).

Normalement pour qu'il s'affiche à nouveau j'aurai juste à placer UserForm1.Show vbModeless dans le Workbook_SheetChange, ou cela pose t-il un problème ?

Je vais regarder votre fichier et je reviens vers vous.

En tout cas déjà un grand merci pour votre aide précieuse.

Cordialement,

Golempas

Citation:

---

il sert juste à passer l'userform en mode non modal ?

---

oui

Perso pour le ré-afficher je ne mettrais que dans Workbook_SheetActivate.
Que celui qui n'en veut pas ponctuellement puisse s'en débarrasser. Changer de feuille le rappelle.
Mais aucun inconvénient qu'il soit dans Workbook_SheetChange.

eric

Bonjour,

Merci cela répond parfaitement à mes besoins.


Passez de bonnes fêtes de fin d'année.

Bien cordialement,

Golempas