user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

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'hui152
Hier3318
Cette semaine13569
Ce mois76366
Total depuis 200412594998

6
visiteurs actuellement en ligne

27 novembre 2020