Insérer un paragraphe via un userform

Version imprimable

Bonjour,

Je souhaite savoir comment insérer un paragraphe via une boîte de dialogue qui m'afficherait les paragraphes à disposition. Le document est un modèle en .dotm qui sera protégé pour les utilisateurs finaux.
J'ai donc créé un userform via le mode développeur puis insérer une liste déroulante avec mes paragraphes. Ça, c'est la partie qui n'est pas trop compliquée.

Ensuite concernant le code à proprement parler
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Private Sub CommandButton1_Click() Dim bmrange As Range For i = 0 To ListBox1.ListCount - 1 x = i + 1 Set bmrange = ActiveDocument.Bookmarks("signet" & x).Range If ListBox1.Selected(i) = True Then bmrange.Text = ListBox1.List(i) Else bmrange.Text = "" End If ActiveDocument.Bookmarks.Add "signet" & x, bmrange Next i Me.hide End Sub Private Sub CommandButton2_Click() UserForm1.hide End Sub Private Sub UserForm_Initialize() ListBox1.Clear With ListBox1 .MultiSelect = 1 .AddItem "Test 15/11/2019." .AddItem "Paragraphe 2." .AddItem "Troisième ligne de tests" End With End Sub
Ca marche très bien sans la protection mais je ne sais pas comment faire avec la protection pour que mes signets fonctionnent correctement...

Merci d'avance et bon weekend !

15/11/2019, 17h52
Invité

Citation:

Envoyé par La_Taupe

Bonsoir,

Vous ôtez la protection à l'initialisation du Userform et vous la remettez sur la commande Unload du Userform.

Merci Eric et désolé pour le temps de réponse...

Du coup cela donnerait ça?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub CommandButton1_Click()
Dim bmrange As Range
For i = 0 To ListBox1.ListCount - 1
x = i + 1
Set bmrange = ActiveDocument.Bookmarks("signet" & x).Range
        If ListBox1.Selected(i) = True Then
            bmrange.Text = ListBox1.List(i)
            Else
            bmrange.Text = ""
 
        End If
    ActiveDocument.Bookmarks.Add "signet" & x, bmrange
Next i
Me.hide
End Sub
 
 
 
Private Sub CommandButton2_Click()
UserForm1.hide
End Sub
 
Private Sub UserForm_Initialize()
 
ListBox1.Clear
ActiveDocument.Unprotect ""
 
       With ListBox1
            .MultiSelect = 1
            .AddItem "Test 15/11/2019."
            .AddItem "Paragraphe 2."
            .AddItem "Troisième ligne de tests"
 
        End With
 
   ActiveDocument.Protect ""
 
End Sub

Parce que j'ai une erreur à l'exécution...

21/11/2019, 16h03
Invité
Citation:

Envoyé par La_Taupe

Bonjour,

La syntaxe n'est pas bonne, voir l'aide en ligne.
Code:

1 2 3 4 5 With ActiveDocument .Protect Type:=wdAllowOnlyReading, Password:="" End With
C'est plutôt avec CommandButton2_Click en quittant le Userform, s'il est modal, qu'il faut reprotéger. Voir la propriété ShowModal du Userform.

Bonjour Eric,

Merci pour votre réponse.
Je viens de tester ça et ça a l'air de fonctionner en l'état.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub CommandButton1_Click()
Dim bmrange As Range
Dim OriginalProtection As WdProtectionType
OriginalProtection = ActiveDocument.ProtectionType
If OriginalProtection <> wdNoProtection Then ActiveDocument.Unprotect
For i = 0 To ListBox1.ListCount - 1
x = i + 1
Set bmrange = ActiveDocument.Bookmarks("signet" & x).Range
        If ListBox1.Selected(i) = True Then
            bmrange.Text = ListBox1.List(i)
            Else
            bmrange.Text = ""
 
        End If
    ActiveDocument.Bookmarks.Add "signet" & x, bmrange
Next i
With ActiveDocument
      .Protect Type:=wdAllowOnlyFormFields, , Password:=""
   End With
Me.hide
End Sub
 
 
 
Private Sub CommandButton2_Click()
 
UserForm1.hide
End Sub
 
Private Sub UserForm_Initialize()
 
ListBox1.Clear
 
       With ListBox1
            .MultiSelect = 1
            .AddItem "Test 15/11/2019."
            .AddItem "Paragraphe 2."
            .AddItem "Troisième ligne de tests"
 
        End With
 
End Sub