user_mobilelogo

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

Aujourd'hui2233
Hier1193
Cette semaine2233
Ce mois11860
Total depuis 200411664587

12
visiteurs actuellement en ligne

6 juillet 2020