Discussion :

[DeFCrew]

Bonjour à tous,

Est-ce que par le plus grand des hasard, hasardement hasardeux, quelqu'un aurait une idée de la façon de procéder pour incrémenter d'une ligne, un tableau word, grâce à un bouton notamment ?

Voilà c'est tout,
Merci à tous d'avance et un grand bravo au FORUM (soit dis en passant bien sûr... )

[SilkyRoad]

bonjour

cet exemple ajoute une lign dans le 1er tableau du document Word

Code :

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

ActiveDocument.Tables(1).Rows.Add

michel

[DeFCrew]

merci beaucoup SilkyRoad ça fonctionne très bien !!

Juste pour savoir, si je veux créer une nouvelle ligne en faisant un copier/coller de la troisième ligne de façon à reproduire à l'identique la ligne et son contenu ?
'(c'est parce que j'ai mis des listbox et labelbox dans cette fameuse 3eme ligne)', comme ça dès que je créer une nouvelle ligne, il ya déjà les contrôles dans la nouvelle ligne.

J'ai essayer de lancer une macro et de copier manuellement la 3eme ligne mais sa ne fonctionne pas !! enfin bon ceci est une autre histoire...

Encore merci

[SilkyRoad]

bonjour

tu peux tester cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
    Dim x As Integer
 
    'Ajoute une ligne
    ActiveDocument.Tables(1).Rows.Add
    'compte le nombre de lignes dans le tableau
    x = ActiveDocument.Tables(1).Rows.Count
    'copie la 3eme ligne
    ActiveDocument.Tables(1).Rows(3).Range.Copy
    'colle dans la derniere ligne du tableau
    ActiveDocument.Tables(1).Rows(x).Range.Paste
 
    '-- option pour supprimer la derniere ligne --
    'qui est créée lors du collage
    'ActiveDocument.Tables(1).Rows(x + 1).Delete
    '----
End Sub

Utilse la derniere ligne en option si nécessaire



michel

[DeFCrew]

SilkyRoad !!

Ton code, après deux trois modification, fonctionne à merveille



Encore merci pour ton aide