Recherche

Dans ces exemples, je pars du principe que le tableau en question est le premier tableau du document.

Pour ajouter une seule ligne à la fin du tableau :

Sub inser_1ligne()
ActiveDocument.Tables(1).Rows.Add
End Sub
 

Pour ajouter une ligne après la ligne d'en-tête (donc avant la 2e ligne) :

Sub inser_ligne_avant()
Dim tablo As Table
Set tablo = ActiveDocument.Tables(1)
tablo.Rows.Add beforerow:=tablo.Rows(2)
End Sub
 

 Pour ajouter plusieurs lignes à la fin (5 dans mon exemple) :

Sub inser_pls_lignes()
Dim tablo As Table
Set tablo = ActiveDocument.Tables(1)
For x = 1 To 5
    tablo.Rows.Add
Next
End Sub
 

Pour demander le nombre de lignes à ajouter et les ajouter:

Sub nb_lignes()
Dim tablo As Table
Dim nb As Long
Set tablo = ActiveDocument.Tables(1)
nb = InputBox("Combien de lignes ?")
For x = 1 To nb
    tablo.Rows.Add
Next
End Sub
 

 

 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

64

Pays
018273548
Aujourd'hui: 3
Hier: 93
Cette semaine: 654
Semaine dernière: 1.156
Ce mois: 1.810