Bonjour,
Je suis embêté car je ne sais pas comment gérer les interlignes dans une liste de puces voici mon code j'espère que vous pourrez m'aider
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 Set plage = Range("A2:G2") For Each Cell In plage If Not IsEmpty(Cell) Then n = n + 1 Next Cell 'MsgBox n ' Récupération des composants de la vente Z = 1 w = 1 Set plage = Range("A2:G2") For i = 1 To n For Each Cell In plage If Not IsEmpty(Cell) Then WordDoc.Bookmarks("Signet" & Z).Range.Text = Cells(2, i) Else Z = Z - 1 End If i = i + 1 Z = Z + 1 Next Cell Next i For w = 1 To n WordDoc.Bookmarks("Signet" & w).Range.ListFormat.ApplyBulletDefault Next w WordDoc.Range.ListFormat.Space20
Partager