Discussion :

[taz_wanted]

Bonjour, je réalise un programme VB dans Word, dans lequel j'aimerais insérer un tableau de 3 lignes et 2 colonnes dans la cellule (1,2) d'un premier tableau.

J'ai repris un code de la FAQ VB_Word qui est le suivant :

Code :

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

1
2
3
4
5
6
7
Sub ajouterTables()
Dim oTbl As Table
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=2, numcolumns:=2)
oTbl.Cell(1, 2).Select
 
Selection.Tables.Add Range:=Selection.Range, numrows:=3, numcolumns:=2
End Sub

Mais ca ne fonctionne pas. Il m'insère bien un tableau mais qui n'a qu'une seule ligne

J'ai réussi à le berner en rajoutant la ligne de code suivante
Selection.TypeText ("") avant l'insertion de mon second tableau, mais ca fait pas tres propre comme combine.. Auriez vous une explication et une solution SVP?

Merci d'avance

[Heureux-oli]

Salut,

Explication : Non

Solution, peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub ajouterTables()
Dim oTbl As Table
Dim otbl2 As Table
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=2, numcolumns:=2)
 
 
Set otbl2 = ActiveDocument.Tables.Add(Range:=oTbl.Cell(1, 1).Range, numrows:=1, numcolumns:=2)
otbl2.Rows.Add
otbl2.Rows.Add
 
 
 
End Sub

[taz_wanted]

Salut,

Explication : Non

Solution, peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub ajouterTables()
Dim oTbl As Table
Dim otbl2 As Table
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=2, numcolumns:=2)
 
 
Set otbl2 = ActiveDocument.Tables.Add(Range:=oTbl.Cell(1, 1).Range, numrows:=1, numcolumns:=2)
otbl2.Rows.Add
otbl2.Rows.Add
 
 
 
End Sub

Salut,
effectivement çà marche comme çà, je n'y avais pas pensé. Ca reste une combine, mais c'est plus propre quand même.
Et comme je dois faire une boucle pour remplir mes tableaux, j'intégrerai l'ajout des lignes dans la boucle.
Merci de ton aide