Formulaire en Word 2010

alimi · #1 04-15-2015, 04:56 AM

Salut chers tous
Prière de m'aider j'ai réalisé un formulaire en Word 2010 que vous trouverez ci-joint.
Sur cette page j'ai deux tableaux
Mon souhait est que ce n'est que lorsque je coche la case sur une rubrique du premier tableau que s'affiche la ligne du second tableau, lorsque je décoche la case la ligne du deuxième doit être masquée
Exemple: si je coche la case capacity Works ce n'est qu'en ce temps que s'affiche uniquement la deuxième ligne du deuxième tableau puisque la première ligne est l'entête de mon deuxième tableau; et ainsi de suite.
y' a t'il un code VBA qui me permettrait de le faire?
Voici mon code que j'ai utilisé:

Sub checkbox211_Change()

If CheckBox211.Value = True Then
ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = False
Else
ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = True
End If
End Sub

gmayor · #2 04-16-2015, 01:55 AM

En supposant que ce sont des champs de formulaire existants et les tables sont dans le corps du document et non dans des boîtes de texte:

Code:

Sub Example()
Dim bProtected As Boolean
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        bProtected = True
        ActiveDocument.Unprotect Password:=""
    End If
    If ActiveDocument.FormFields("CheckBox211").CheckBox.Value = True Then
        ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = False
    Else
        ActiveDocument.Tables(2).Rows(2).Range.Font.Hidden = True
    End If
    If bProtected = True Then
        ActiveDocument.Protect _
                Type:=wdAllowOnlyFormFields, _
                NoReset:=True, _
                Password:=""
    End If
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2010 protection password cleared on conversion to Word 2003	Smallweed	Word	0	05-06-2014 07:38 AM
Pasting tables from Excel 2010 into Word 2010 - How to fix column widths?	GracieB	Word	7	10-02-2013 06:24 AM
embed excel 2010 into word 2010 using VBA	molesy	Excel	1	09-11-2013 01:08 PM
Problem saving in Word 2007 a dotm Addin developed in Word 2010	RichardP	Word VBA	6	04-26-2012 04:22 AM
Word 2010 and Excel 2010 Mail merge - multiple headers	robby	Word	3	04-18-2012 06:37 PM