Si j'arrivais à modifier:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Sub SelTab()
Selection.GoTo What:=wdGoToBookmark, Name:="MonTableau2"
Dim T As Table, NbRows As Long, A As Long
Set T = ThisDocument.Tables(2)
NbRows = T.Rows.Count
Dim i As Integer
For i = 1 To NbRows
ActiveDocument.Tables(2).Cell(i, 1).Range.Select
Selection.MoveDown unit:=wdParagraph, Count:=1
Selection.Cells.Add
Next i
End Sub |
en faisant varier le de
ActiveDocument.Tables(2).Cell(i, 1).Range.Select
pour tenir compte du nombre variable de cellules par ligne, je pense que ça pourrait fonctionner?????
Partager