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
Ca marche très bien sans la protection mais je ne sais pas comment faire avec la protection pour que mes signets fonctionnent correctement...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance et bon weekend !
Partager