Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 04-15-2015, 04:56 AM
alimi alimi is offline Formulaire en Word 2010 Windows 7 32bit Formulaire en Word 2010 Office 2013
Novice
Formulaire en Word 2010
 
Join Date: Apr 2015
Posts: 1
alimi is on a distinguished road
Default Formulaire en Word 2010

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
Attached Files
File Type: docx Essai.docx (56.4 KB, 10 views)
Reply With Quote
  #2  
Old 04-16-2015, 01:55 AM
gmayor's Avatar
gmayor gmayor is offline Formulaire en Word 2010 Windows 7 64bit Formulaire en Word 2010 Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply



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
Formulaire en Word 2010 Problem saving in Word 2007 a dotm Addin developed in Word 2010 RichardP Word VBA 6 04-26-2012 04:22 AM
Formulaire en Word 2010 Word 2010 and Excel 2010 Mail merge - multiple headers robby Word 3 04-18-2012 06:37 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:48 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft