BOnjour ,
J'ai édité une macro relié à des formulaire de champ case a cocher et zone de saisie de texte
L'idée est que l'orsque je coche la case un certain texte apparait et que lorsque je la décoche un autre apparait .
La macro fonctionne , seulement la chaine de caractère que je veux faire apparaitre est trop longue et j'ai un message d'erreur erreur 4608 !
Pourtant sur les parametre de la zone de texte j'ai bien mis nombre de caractères illimités . Y a t il une solution pour pouvoir insérer beaucoup de lignes sans limites ?
Je suis sous word 2013 et voici la macro :
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub caseacocher1() Dim macase As CheckBox Dim montexte As FormField Set macase = ActiveDocument.FormFields("Case1").CheckBox Set montexte = ActiveDocument.FormFields("Texte1") If macase.Value = True Then montexte.Result = "Poste 1: Réunion d'enclenchement, plan de prévention et visite d'inspection commune " Else: montexte.Result = "" End If End Sub
Yoann
Partager