Discussion :

[battit64]

ci joint mon code dans la cellule 7 je dois faire un tableau de 4 cellule je bloque comment fais t'on ça merci

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
With App
Set objDoc = .Documents.Open(modele)
.Visible = False
 
 
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,7,1
 
Set objTable = objDoc.Tables(1)
'objTable.Range.Font.Size = 18
objTable.Range.Font.Bold = True
objTable.ApplyStyleHeadingRows = True
objTable.ApplyStyleLastRow = False
objTable.ApplyStyleFirstColumn = True
objTable.ApplyStyleLastColumn = False
objTable.ApplyStyleRowBands = True
objTable.ApplyStyleColumnBands = False
objTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
objTable.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
objTable.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
objTable.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
    'Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleSingle
    'Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleSingle
 
'objTable.Cell(1, 1).Range.Text = "Feuille de route du " + date_tirage
With objTable.Cell(1, 1).Range
.Font.Size = 18
.Text = "Feuille de route du " & date_tirage & vbCrLf & "LE JOURNAL"
.Borders(wdBorderBottom).LineStyle =wdLineStyleSingle
End With
With objTable.Cell(2, 1).Range
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
End With
With objTable.Cell(3, 1).Range
.Font.Size = 14
.Borders(wdBorderBottom).LineStyle =wdLineStyleSingle
.Text="PORTEUR :" & porteur & "  " & nom_porteur & vbCrLf & "TOURNEE :" & tournee & "  "  & nom_tournee & vbCrLf & " ILOT :  " & ilot & " "  & nom_ilot
End With
 
With objTable.Cell(4, 1).Range
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
End With
 
With objTable.Cell(5, 1).Range
.Font.Size = 18
.Borders(wdBorderBottom).LineStyle =wdLineStyleSingle
.Text="NOMBRE DE JOURNEAUX A LIVRER     " & nbre_journeaux
End With
 
With objTable.Cell(6, 1).Range
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
End With
 
 
With objTable.Cell(7, 1).Range
 
 
 
End With

[Heureux-oli]

Salut,

Tu dois insérer ta table sur un range plus petit que toute la table, tu dois en fait adresser la celulle qui va contenir ta seconde table.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Tables.Add Range:=ActiveDocument.Tables(1).Cell(3, 3).Range, numrows:=1, numcolumns:=3

[battit64]

concretement dans mon code cela donnerait quoi, comprends pas

[Heureux-oli]

Salut,


Tu as essayé où ?

[fafou312]

Bonjour,

Je me permet de prendre part à la conversation (quand bien même qu'elle date depuis 2011) car je rencontre le même problème et grâce à toi "Heureux-oli" j'ai pu insérer un tableau dans une cellule de tableau.

Cependant j'ai un souci quant au nombre de lignes (rows) du tableau dans la cellule. J'ai beau y mettre autant de lignes que je veux, je n'en ai toujours qu'une au final.

Pourrais-tu m'aider ?

Thomas

[Heureux-oli]

Salut,

Peut-être en sélectionnant ce tableau et en lui ajoutant les lignes souhaitées.