> Tous les forums > Forum Bureautique
 Affichage cliquable
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Jumpty
  Posté le 08/08/2019 @ 15:59 
Aller en bas de la page 
Astucien

Bonjour à tous.

Je suis sous Word 2003.

J'aimerais savoir si il est possible de créer un objet style "zone de texte" cliquable qui ne s'affiche que si on clique dessus ou si la souris passe dessus en "survol".

Explication :

c'est pour un document dont on a fait un mémo en début de page
(qui n'a pas besoin d'être vu en permanence)

le principe serait que :

- si l'utilisateur passe la souris dessus ou si il clique dessus, il puisse voir le mémo, dans le cas contraire il est réduit.
(évidemment, si "survol" agit pour agrandir, quand il ne survole plus cela se réduit tout seul, et si "clic" pour agrandir il reclique dessus pour réduire)

exemple : bulle "agrandie" pour voir tout le mémo si "cliquée" ou survolée sinon réduite à son minimum

Merci de votre réponses à tous.



Modifié par Jumpty le 08/08/2019 17:41
Publicité
DjiDji59430
 Posté le 08/08/2019 à 17:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour à tous,

T'as pas essayé

révision nouveau commentaire


Crdlmt

Jumpty
 Posté le 08/08/2019 à 21:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello,

comment utilises tu cet outil ?

et ou le trouve t-on ?

on sélectionne un mot et ensuite clic droit ?

(Rappel ... Je suis sous Word 2003.)

trouvé mais cela ne me convient pas...

faut aller voir une barre d'outil et cliquer sur "Afficher commentaires"

Mais , quand les commentaires sont masqués, il n'y a aucun point de repère pour l'utilisateur pour savoir si il y a un commentaire à voir ou pas..

(ce document est fait pour des personnes qui maitrisent peu l'informatique..)

Donc c'est pour cela que je voulais un repère visuel "facile" style un triangle ou un signe quelconque ...



Modifié par Jumpty le 08/08/2019 21:50
Gabrilou
 Posté le 08/08/2019 à 22:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Une autre idée...

Tu pourrais créer deux macros, une qui masquerait, l'autre qui démasquerait.

Difficile pour moi de t'expliquer car la version 2003, je l'ai beaucoup oublié. En gros, il s'agit de retrouver dans les options avancées la commande qui permet de contrôler l'affichage : Afficher les dessins et les zones de texte à l'écran. Une fois que tu as trouvé cette option, il est facile de créer les deux macros pour masquer ou démasquer cette zone de texte. J'espère qu'il n'y en a pas plusieurs dans le texte car elles seront toutes masquées, ainsi que les images, s'il y en a, et je ne pense pas que c'est ce que tu veux.

Ensuite, sur le site de m@rina : http://www.faqword.com/index.php/word/gestion-des-macros/510-peut-on-dans-word-declencher-lexecution-dune-macro-en-cliquant-sur-un-element-de-la-feuille#word-2000-2003

1) Par l'insertion de deux champs MACROBUTTON tu intègres ces deux macros.

2) Ou bien tu installes ces deux macros dans ta barre d'outils...

Edit : je viens de voir ta réponse à DjiDji59430

Par sûre que ma réponse te plaise, car il faudrait installer ces deux macros sur l'ordinateur d'autres utilisateurs



Modifié par Gabrilou le 08/08/2019 22:52
m@rina
 Posté le 10/08/2019 à 04:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour,

En fait, tu cherches un tour de magie ! Je passe la souris, ça apparaît, je repasse la souris, ça disparaît !!

Word, c'est du traitement de texte, c'est pour l'impression, il faut arrêter de croire qu'on peut tout faire avec, surtout avec une version aussi ancienne.

Déjà, même par macro, le survol de la souris, c'est quelque chose qui n'existe pas y compris dans les nouvelles versions. C'est possible néanmoins avec PowerPoint.

Au mieux, on pourrait avoir des cases à cocher ou des boutons d'option : je coche, la zone de texte apparaît, je décoche, elle disparaît.

Essaie par exemple ceci : dans ton doc, tu insères une zone de texte, et un contrôle ActiveX Case à cocher. Dans ThisDocument, tu mets la macro suivante :

Private Sub CheckBox1_Change()

If CheckBox1.Value = True Then

ActiveDocument.Shapes(1).Visible = msoCTrue

Else: ActiveDocument.Shapes(1).Visible = msoFalse

End If

End Sub

Cela étant, je ne suis même pas sûre que tu puisses insérer une case à cocher. Si ça ne marche pas, essaie avec un bouton d'option, mais dans ce cas, il en faudra deux, car un bouton d'option ne se désactive pas en recliquant dessus.

Tu as aussi la solution du MacroButton évoquée par Gabrilou, avec une macro comme ça :

If ActiveDocument.Shapes(1).Visible = msoTrue Then

ActiveDocument.Shapes(1).Visible = msoFalse

Else: ActiveDocument.Shapes(1).Visible = msoTrue

End If

mais bon, ça reste artisanal !

Jumpty
 Posté le 18/08/2019 à 17:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello m@rina, -

Merci pour ta réponse

-

Dsl pour le temps de la réponse.. absent.

-

Ton idée de case à cocher est une super idée.

-

Testé avec difficulté car je suis pas un pro.. ..

=> (j'ai donc dû baisser le niveau de sécurité des macros)

cela marche

(j'ai créé 1 zone de texte avec l'outil dessin et 1 case a cocher avec la boute à outils VB)

avec cela OK.

-

concernant le survol de la souris (apparition disparition d'une zone de texte)

c'est vrai que word est un traitement de texte donc je comprends.. mais

comme il est possible de faire tellement de choses avec le VBA que je me disais peut être ...

bref...

c'est déjà super avec un bouton de case à cocher.

-

par contre j'ai du modifier car avec Shapes(1) cela ne marchait plus sur mon fichier perso

(Normal pb d'index)

-

J'ai donc cherché à trouver le nom de la zone de texte

trouvé grâce à ce lien :

https://www.generation-nt.com/reponses/vba-obtenir-nom-vba-039-forme-entraide-353622.html

et donc , en renommant Shapes(1) par Shapes("Zone de texte XXX")

"XXX" correspond au N° attribué par word à la zone de texte
et
"Zone de texte XXX" correspond à son nom

Cela marche.

Voir ce fichier :

https://www.cjoint.com/c/IHspOXWYBEp

-

Pour info, y a t-il un moyen pour donner un nom spécifique à une zone de texte ?

je n'ai pas trouvé cela .

-

Enfin : dernier renseignement

pour faire fonctionner les macros, j'ai dû mettre le niveau de sécurité sur moyen et a chaque fois que j'ouvre le fichier avec cette macro

voir cette capture :

un message me demande si je veux activer les macros.

j'aimerais savoir si il est possible de supprimer ce message et accepter l'ouverture des macro que j'ai crée et pas les autres.

vois tu ce que je veux dire.

j'ai cru comprendre que cela dépendait de signature ???

pour ma part je n'en utilise jamais sauf cette fois..

mais comment paramétrer Word pour lui dire que c'est moi qui l'ai créé et que celle ci est fiable.

vois tu ce que je veux dire ?



Modifié par Jumpty le 18/08/2019 17:43
Jean-Pierre
 Posté le 18/08/2019 à 18:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Juste pour amener mon grain de sel :

Cette idée serait facilement réalisable en HTML + JS.

Cela éviterait toute confusion interne/externe niveau risque viral ou autre.

Oupsssss, suis déjà reparti

Jumpty
 Posté le 18/08/2019 à 20:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re Jean-Pierre

merci de ton passage..

Peux tu faire une exemple de fichier word sur cjoint ?

afin de voir ce que cela donne

m@rina
 Posté le 18/08/2019 à 23:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour,

Pour les noms des objets, depuis les nouvelles versions, c'est facile, il suffit de savoir lire !! :)

Avec les anciennes versions, il faut une macro. Celle-ci par exemple qui va afficher les noms des objets de tout le document dans la fenêtre Exécution :

Sub test()

Dim image As Shape

For Each image In ActiveDocument.Shapes

Debug.Print image.Name

Next

End Sub

Après, une fois que tu connais les noms, tu peux les changer. C'est plus simple de coder avec le nom, on sait de quoi on parle :

ActiveDocument.Shapes("Text Box 2").Name = "toto"

Pour ne pas être ennuyé avec les avertissements de macro, tu peux utiliser un selfcert. J'explique ici :

http://faqword.com/index.php/word/gestion-des-macros/549-comment-en-ouvrant-un-document-contenant-des-macros-ecrites-par-moi-meme-ne-pas-avoir-ce-message-qvoulez-vous-activer-les-macros-q

m@rina

Publicité
Jean-Pierre
 Posté le 19/08/2019 à 11:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Jumpty a écrit :

Re Jean-Pierre

merci de ton passage..

Peux tu faire une exemple de fichier word sur cjoint ?

afin de voir ce que cela donne

Hé non, s'agit de tout autre chose ; d'un autre concept : simplement une page web.

Mais faut savoir que même SANS avoir le Web, tu peux très bien gérer des fichiers (pages) en extension .HTML sur ton ordi.

Au final, au lieu d'avoir un fichier Word ou autre chose à cliquer, tu auras un fichier en extension .HTML.

A mon avis cela facilitera grandement les choses et ne nécessitera aucunement l'éveil de l'antivirus via tes macros

Reste à savoir si cette nouvelle porte serait exploitable en ton cas : à savoir un fichier qui lance le navigateur plutôt qu'un autre logiciel.

JP

Jumpty
 Posté le 19/08/2019 à 11:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re m@rina,

Qu'appelles tu les "nouvelles versions ?"

A partir de quelle version ?

-

Pour le renommage sans passer par le le VBA, (avec les outils fournis) n'y a t-il pas un moyen pour renommer les Zones de Texte ?

(car clic droit ne permet pas de le faire)

-

A propos de "Selfcert.exe"

non présent sur mon PC ??

par contre un dossier SelfUpdate

qui est situé dans Windows/SoftwareDistribution

Mais pas de Selfcert.exe

et aussi suivi le lien : http://support.microsoft.com/kb/308983/fr

qui indique :

vérifié.

c'est coché.... mais les messages continuent



Modifié par Jumpty le 19/08/2019 15:57
Jumpty
 Posté le 20/08/2019 à 17:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re2 m@rina,

J'ai essayé ta macro :

Sub test()

Dim image As Shape

For Each image In ActiveDocument.Shapes

Debug.Print image.Name

Next

End Sub

pour voir le nom des objets..

Mais cela ne semble pas marcher ..

voir ce fichier :

https://www.cjoint.com/c/IHupyXKgC7p

est ce moi qui fait une erreur ?

Jumpty
 Posté le 21/08/2019 à 20:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re m@rina,,

plus de réponse ?

Gabrilou
 Posté le 21/08/2019 à 23:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

J'ai essayé ta macro...

... Mais cela ne semble pas marcher ..

Elle marche la macro de m@rina : Elle précise « il faut une macro. Celle-ci par exemple qui va afficher les noms des objets de tout le document dans la fenêtre Exécution :

---

Fais comme si tu voulais modifier ta macro (ou Appuie sur Alt+F11)

Clic sur Affichage, puis Fenêtre exécution (ou Ctrl+G)

Tu verras apparaître dans le bas la fenêtre exécution avec le nom des objets

Jean-Pierre
 Posté le 22/08/2019 à 12:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Jumpty a écrit :

Re Jean-Pierre

merci de ton passage..

Peux tu faire une exemple de fichier word sur cjoint ?

afin de voir ce que cela donne

Voici le principe de base :

https://jsbin.com/xarohapuyi/edit?html,js,output

Si cette méthode ne t'intéresse pas, n'hésite pas ; dis-le je ne reviendrais plus t'embêter.

Ceci dit tout le monde possède un navigateur ; contrairement à Word ou Excel.

Jumpty
 Posté le 05/09/2019 à 00:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re

désolé du retard pour la réponse ..
Merci Jean-Pierre, c'est une idée ..

Merci Gabrilou

en effet avec la fenêtre exécution on voit les noms .

Par contre encore un truc zarbi ...

1 Zone de texte a 2 noms ....

voir cette capture :

Avec VBA c'est : "Text Box 1 2 ... etc ...."

Avec l'outil de word c'est "Zone de Texte" 1 2 etc ...)

il y a 2 noms pour le même objet ????

-----------------------

Outils de word pour trouver le nom de la zone de texte

trouvé grâce à ce lien :

https://www.generation-nt.com/reponses/vba-obtenir-nom-vba-039-forme-entraide-353622.html

et donc , en renommant Shapes(1) par Shapes("Zone de texte XXX")

"XXX" correspond au N° attribué par word à la zone de texte
et
"Zone de texte XXX" correspond à son nom

Cela marche.

---------------------------

on peut donc mettre "Text Box y" ou "Zone de texte y" cela fonctionne ?????

Et pour le renommage de zones de texte sais tu si il y a un moyen ?

Gabrilou
 Posté le 05/09/2019 à 03:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Tu modifies la macro que m@rina a Posté le 10/08/2019 à 04:01 de la façon suivante :

ActiveDocument.Shapes("Text Box 2").Name = "toto"

Ma façon de procéder est un peu différente :
Dans Accueil
Onglet Modification
Cliquer sur la flèche vis-à-vis de sélectionner
Cliquer sur Volet sélection
Toutes les formes de ton document (images, formes, zones de texte) sont répertoriées par page) En cliquant 1 fois sur un nom, tu peux savoir à quoi correspondant la forme car elle est sélectionnée dans la page. En cliquant 2 fois sur leur nom, tu peux les renommer. Il ne faut pas oublier de renommer aussi les macros.

Edit :
Tu exécutes à nouveau la macro test pour que dans la fenêtre Exécution, le nom des objets soit mis à jour



Modifié par Gabrilou le 05/09/2019 03:37
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Acrobat Reader affichage
PowerPoint : Affichage "fantaisiste" en mode projection
Valeur de cellule différente de l'affichage
Affichage cellule sur Google Sheets
Problème d'affichage en passant sur un autre ordinateur
Affichage d'une colonne disparue
Affichage des jours dans cellule
LibreOffice Calc: affichage de date
affichage polices inutiles
Affichage dans un UserForm
Plus de sujets relatifs à Affichage cliquable
 > Tous les forums > Forum Bureautique