Bonsoir
Bonsoir,
Je pense que pour la première question, il s'agit de cases d'option, et non pas de cases à cocher.
Voici les macro que tu peux ajouter sur modification de ces cases :
Private Sub OptionButton1_Click()
Dim macellule As Range
Set macellule = ActiveDocument.Tables(1).Rows(1).Cells(1).Range
If OptionButton1.Value = True Then macellule.Text = "bleu"
End Sub
Private Sub OptionButton2_Click()
Dim macellule As Range
Set macellule = ActiveDocument.Tables(1).Rows(1).Cells(1).Range
If OptionButton2.Value = True Then macellule.Text = "rouge"
End Sub
Private Sub OptionButton3_Click()
Dim macellule As Range
Set macellule = ActiveDocument.Tables(1).Rows(1).Cells(1).Range
If OptionButton3.Value = True Then macellule.Text = "vert"
End Sub
Pour ta deuxième question, il s'agit plutôt d'une case à cocher, et c'est même plus simple :
Private Sub CheckBox1_Click()
Dim macellule As Range
Set macellule = ActiveDocument.Tables(2).Rows(1).Cells(1).Range
If CheckBox1.Value = True Then
macellule.Text = "Voici le texte que je veux montrer"
Else: macellule.Text = "voici le texte plus petit"
End If
End Sub
Le plus compliqué avec les macros Word, c'est de placer le texte. La solution tableau est la solution la plus simple.
Dans mon exemple, pour les cases d'option, le texte sera inséré dans la première cellule du premier tableau de ton document, et pour les cases à cocher dans la première cellule du second tableau de ton document.
m@rina
ton forum est d'ailleurs chouette et j'y ai vite fait trouvé une chose interessante ce matin (INCLUDETEXT)
j'ai testé ca basiquement et ca me convient comme methode....
maintenant question
Si je prends des includes texte pour afficher les bouts de pages selon les options cochées
{ INCLUDETEXT "nomdufichier" Signet }
je voudrais, lorsque je modifie soit une case à cocher soit un bouton option, changer la valeur « nomdefichier » d’un champ INCLUDETEXT
ou alors ajouter un nouveau champ INCLUDETEXT à l’endroit que je veux
If Chkbx_Type1.Value = 1 Then AJOUTER UN NOUVEAU CHAMP A TEL ENDROIT
Else PAS DE CHAMP A AFFICHER
Quel serait le code VB à ajouter dans le clic de mon bouton si je veux que les bonnes pages de texte soit inséré en fonction des options cochées lorsque je clique sur ce dernier ?
encore une fois merci :)