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

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

Bonsoir,

Dans une insertion auto, tu mets ce que tu veux ! Même 10 pages...

Le code n'est pas caché. Si tu télécharges le fichier, tu as accès au code.
C'est un code exemple très simple, tu peux le modifier à souhait.

En fait, je n'ai pas utilisé les signets. A chaque appui sur la touche OK, la macro reconstruit entièrement le fichier et insère une TM. C'est très rapide.

m@rina

Bonjour,

Dans l'exemple, on ne reprend pas le texte que l'utilisateur a tapé. Il s'agit de texte type issu d'insertion automatique.

Le problème pour insérer un texte à la place d'un mot est qu'une fois le texte inséré, le signet aura disparu. Et si l'utilisteur veut faire marche arrière, ce ne sera pas possible.

Pour pallier ce problème, il faut que tu ajoutes le nom du signet dans l'insertion automatique.

Si tu reprends mon exemple :
- Crée chaque paragraphe type, et ajoutes-y un signet, puis enregistre le en insertion automatique
- Dans ton modèle, tu mets un mot ou une lettre ou ce que tu veux à l'endroit où doit s'insérer le texte et tu mets le même nom de signet
- Ensuite pour chaque texte à insérer, tu auras une case à cocher avec une macro comme ceci (ici le signet se nomme "T1") :

If Me.CheckBox1.Value = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="T1"
ActiveDocument.AttachedTemplate.AutoTextEntries("chap1").Insert Where:= _
        Selection.Range, RichText:=True

End If

Okay pour ce point je devrais avoir compris...

1) peu tu encore me dire comment bien crée une insertion auto?

2) les insertions automatique sont elle enregistrer dans le document même? ou alors ce sont des des autre .doc ou .dot?

3) si je fais voyager mon document type sur d'autre post ca marchera bien? ou faut-il copier d'autre chose en même temps que le doc?

4) la mise en page des insert auto sera t'elle pareil que lorsque je l'aurais enregistré?

si tu passe par strasbourg je te paye un verre de vin chaud au marché de noel :D ca le mérite bien :)

Bonjour sebi82


2) les insertions automatique sont elle enregistrer dans le document même? ou alors ce sont des des autre .doc ou .dot?
Les insertions auto doivent être enregistrées dans le modèle. Une IA ne peut être qu'enregistrée dans un modèle. Il faut l'enregistrer dans le modèle de ce document, et pas dans le normal.dot (voir en dessous).

1) peu tu encore me dire comment bien crée une insertion auto?

- Saisie du texte et sélection
- Menu Insertion, Insertion automatique, Insertion automatique
- Taper le nom de l'insertion
- Regarder dans : choisir le modèle actif et non pas le normal.dot
- Clic sur Ajouter

3) si je fais voyager mon document type sur d'autre post ca marchera bien? ou faut-il copier d'autre chose en même temps que le doc?
Ton document type doit être un modèle (voir ci-dessus). Il contiendra les IA et la macro. Le document final ne contiendra pas la macro.

4) la mise en page des insert auto sera t'elle pareil que lorsque je l'aurais enregistré?
oui, à condition de bien enregistré avec le ou les retours paragraphes. Ne pas oublier aussi les signets.


Et pis, zut pour le verre de vin chaud !!!! Figure-toi que j'ai un AR pour Strasbourg pour ce mois-ci dans ma poche, mais le vin chaud ne sera pas encore là !!! ;)
Et même que mes billets, je vais devoir les jeter, car au final, j'ai un contre-temps qui m'empêche de venir... C'est po juste !! :(
Merci quand même...

m@rina

Ah ben zut alors :( il me semble que le marché de noel ouvre dns 1 voir 2 semaine je crois :) je vais tester tout ceci et j'te tiendrais au courant si j'ai reussi ou non ;) en tous cas merci pour ta patience ;)

Je t'ai laissé un Mp marina :)

Bon j'ai réussi à faire ce que je voulais ou presquuqe :)

peu tu encore me dire comment appeler la userform lorsqu'on appui sur un bouton ou un lien qui se trouve en fin de document ??

un grand merci a toi encore une fois :D

Bonsoir,

Il faut un petit bout de code, car le formulaire ne va pas se charger tout seul ! ;)

Sub formulaire()
Load UserForm1
UserForm1.Show
End Sub

Tu ajoutes sur ta barre d'outils ou dans un menu un bouton lié à cette macro.

m@rina