Bonjour,
Je reviens vous solliciter pour un document que je retravaille. J'aurais bien voulu le poster mais impossible de remettre la main sur le logo qui s'y trouve (qui disparait et apparait selon que j'active ou le mode création... je ne sais pas ce que j'ai bidouillé ). Je suis obligée de le
Voilà ce que je souhaite faire :
1/ sur coche ou décoche (selon le contexte) de certaines cases, je souhaiterais voir afficher soit un paragraphe, soit un mot "NEANT" ou "NON CONCERNE" par exemple.
Jusqu'à présent, la solution que j'ai trouvée était de mettre ces paragraphes dans un tableau (1,1) et affecter le codeça fonctionne mais ça m'oblige à laisser un espace entre le titre et le mot. Je voulais savoir s'il n'y avait pas une solution plus heureuse que celle-ci pour faire en sorte que NEANT remplace le texte et inversement sur coche ou décoche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public Sub caseAcocher() If ActiveDocument.FormFields("bruit").Result = True Then ActiveDocument.Tables(6).Cell(1, 1).Range.Font.Hidden = False ActiveDocument.FormFields("neant").Range.Font.Hidden = True Else ActiveDocument.Tables(6).Cell(1, 1).Range.Font.Hidden = True ActiveDocument.FormFields("neant").Range.Font.Hidden = False End If End Sub
2/ Dans la même idée, je souhaite cette fois-ci que sur click d'un bouton, un paragraphe soit visible ou invisible tout court. Idem, j'ai choisi la solution du texte inséré dans un tableau mais là, je ne sais pas ce que j'ai fait mais cela ne fonctionne pas (du coup j'ai supprimé le code que j'avais fait pensant pouvoir repartir à zéro). Je ne peux cliquer sur le bouton de commande quand je verrouille mon doc en mode formulaire. L'affichage ou non ne fonctionne qu'en mode déverrouillé or mon doc sera un modèle verrouillé.
Petite remarque, ne vous fiez pas aux numéros de tables car j'ai supprimé bcp de texte pour anonymiser mon ficher donc les correspondances ne sont pas forcément les bonnes
Avez-vous une idée ?
D'avance merci.
Partager