Discussion :

[Nessie37]

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

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

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

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.

[clementmarcotte]

Bonjour,

Je n'ai pas téléchargé ton fichier, mais je pense que tu recherches quelque chose dans ce genre-là:

http://heureuxoli.developpez.com/off...cument-tiroir/

[Nessie37]

Bonsoir,

Merci pour ton message. Malheureusement, je suis limitée en vba et là où tu me suggères d'aller me semble vraiment loin.
Par ailleurs, je n'utilise pas (et ne souhaite pas utiliser car pas nécessaire dans mon cas) d'userform.
Mais la solution que tu me proposes fonctionne quand le doc est verrouillé en mode formulaire ?

Bien à toi

[argyronet]

Bonjour,

Du fait qu'il est délicat de coupler texte caché, texte visible et positionnement des paragraphes, tu peux envisager de jouer sur la propriété Hidden ainsi que tu l'as fait mais plutôt au niveau Font du paragraphe et ce dans un signet plutôt que d'user d'un tableau car même si tu caches le texte, le tableau garde sa hauteur et c'est bien cela qui semble te gêner...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub MAJ_Test()
Dim strSignetCible                                     As String
Dim strCaseCocher                                      As String
 
    strSignetCible = "MonSignet"
    strCaseCocher = "CaseCocher1"
    CacherAfficherTexte strSignetCible, ActiveDocument.FormFields(strCaseCocher).Result, ""
End Sub
 
Sub CacherAfficherTexte(ByRef NomSignet As String, ByVal Etat As Boolean, ByVal Contenu As String)
Dim oSignet                                            As Bookmark
    'On affecte le signet à une variable...
    Set oSignet = ActiveDocument.Bookmarks.Item(NomSignet)
    'Si l'on change le contenu
    If Len(Contenu) Then
        oSignet.Range.Fields.Item(1).Result.Text = Contenu
    End If
    'Si l'on cache ou non le texte
    oSignet.Select
    With Selection
        With .Font
            .Hidden = Etat
        End With
    End With
End Sub

Tu pourrais aussi avoir une procédure générique qui se chargerait de mettre à jour ton document, par exemple sur les évenements DocumentBeforePrint ou DocumentBeforeSave de l'objet Application...

Argy

[Nessie37]

Bon....

Je vais essayer de digérer tout ceci....

Faut que je remette tout dans l'ordre et que j'essaie de comprendre la procédure.

Merci, je te tiens informé

[Heureux-oli]

Salut,

Le problème du texte caché est qu'il ne l'est pas vraiment, du moins à l'affichage.

Si je demande l'affichage des caractères non imprimables pour avoir un vue sur ce que contient mon document, le texte caché est affiché.
La mise en page devient difficile à mettre en oeuvre.