[WD-2003] Ajout d'une ligne dans un tableau [Résolu]

[trash_07]

Bonjour,

Je n'arrives pas à programmer ce que je veux malgré un algorithme pourtant simple(je débute en VBA, mais on passe tous par la ^^).
J'ai un tableau qui contient des lignes de différents formats ( par exemple une ligne avec 5 colonnes et une autre avec 1 colonne.
Je souhaite récupérer le format de la 1ere ligne et l'insérer(Ajout de la ligne avec le format pré-sauvegardé) en 3 eme position dans mon tableau.

Y'aurait il une solution miracle.
Actuellement ce que j'ai essayé de faire :

Code :

1
2
ActiveDocument.Tables(4).Rows(1).Range.Select
ActiveDocument.tables(4).Rows(3).Range.specialPaste

Mais malheureusement ca n'a pas fonctionné, ca me reprend la valeur de la ligne précédente. Il n'arrive pas à sauvegarder le format de ma ligne courante
peut etre avec pasteandformat mais je ne vois pas comment l'utiliser dans mon cas.

Code :

Code :

Voilà donc deux solutions pour la résolution de ce problème.
Merci aux personnes qui m'ont aidé

[carden752]

Bonjour,

Peut-être une formule de ce type

Code :

1
2
3
4
ActiveDocument.Tables(1).Rows(1).Range.Copy
ActiveDocument.Tables(1).Rows(1).Range.Select
ActiveDocument.Tables(1).Rows(3).Range.Select
selection.PasteAppendTable

selection.PasteAppendTable insère avant la sélection

[trash_07]

Malheureusement, dans ce cas précis le format de mon tableau n'est pas respecté

Je copie bien la bonne ligne, mais les colonnes ne sont pas formater à la dimension de mon tableau.
Schématiquement voilà ce que je souhaite avoir :

|A|B|C|D|E|
|FFFFFFFFF|
|A|B|C|D|E|
|FFFFFFFFF|
|FFFFFFFFF|
|FFFFFFFFF|


Avec la méthode que tu me utilise je me retrouves avec :
|A|B|C|D|E|
|FFFFFFFFF|
|AAAAAAAA|B|C|D|E|
|FFFFFFFFF|
|FFFFFFFFF|
|FFFFFFFFF|

Ce qui est déjà un premier pas en avant.

[Heureux-oli]

Salut,


Je viens de faire un test et je ne rencontre pas de problème concernant le nombre de colonnes.

Code :

1
2
3
4
ActiveDocument.Tables(1).Rows(2).Range.Select
Selection.Copy
ActiveDocument.Tables(2).Rows(2).Select
Selection.Paste

Ma ligne est ajoutée juste au dessus de la ligne choisie.