Discussion :

[operaq]

Bonjour,

Sur un formulaire Word j'ai inséré un tableau incorporé de champ formulaire dont l'utilisateur peut ajouter ou supprimer des lignes par le biais de bouton radio.

Mon problème est que la ligne ajoutée ne se glisse pas en dessous de la première, mais elle s'ajoute au dessus.

Ci-joint un exemple pour être plus clair.

Ainsi j'aimerais que les lignes s'ajoute à la suite de haut en bas.

[Sepia]

Salut operaq,

C'est parce que dans le code de ta procédure "...5" que tu inverses : tu copies à partir de "ligne+1" et tu recopies dans "ligne".

Code :

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

1
2
3
4
5
6
7
8
9
10
 
                 ActiveDocument.Tables(1).Cell(nb_ligne + 1, 2).Select
                 Selection.Copy
                 ActiveDocument.Tables(1).Cell(nb_ligne, 2).Select
                 Selection.Paste
 
                 ActiveDocument.Tables(1).Cell(nb_ligne + 1, 1).Select
                 Selection.Copy
                 ActiveDocument.Tables(1).Cell(nb_ligne, 1).Select
                 Selection.Paste

Inverse tes lignes "nb_ligne + 1" et "nb_ligne" du style

Code :

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

1
2
3
4
5
6
7
8
9
ActiveDocument.Tables(1).Cell(nb_ligne, 2).Select
                 Selection.Copy
                 ActiveDocument.Tables(1).Cell(nb_ligne + 1, 2).Select
                 Selection.Paste
 
                 ActiveDocument.Tables(1).Cell(nb_ligne, 1).Select
                 Selection.Copy
                 ActiveDocument.Tables(1).Cell(nb_ligne + 1, 1).Select
                 Selection.Paste

@+

[clementmarcotte]

Bonjour,

Ceci marche avec le premier tableau d'un document

Code :

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

1
2
3
4
5
6
Sub LigneÀLaFinDuTableau()
    Dim tableau As Table
    Set tableau = ActiveDocument.Tables(1)
    tableau.Select
    Selection.InsertRowsBelow 1
End Sub

Je n'ai pas ouvert ton document pour vérifier; d'autant plus que l'enregistreur de macros t'aurait probablement donné le code le temps de le dire.

1 ) Tu lances l'enregistreur de macros.
2 ) Tu sélectionnes au clavier la dernière de ton tableau
3 ) Tu te sers des menus (ou du ruban) et des boîtes de dialogues disponibles pour ajouter une ligne au-dessous de la ligne que tu as sélectionnée.
4 ) Tu cliques sur Arrêter l'enregistrement.
5 ) Bingo !

[operaq]

Pour la macro, tout bête mais je n'arrive pas à ajouter de ligne lorsque je passe en enregistrement macro, clic droit impossible...

Pour l'inversement des lignes du code, ça semble fonctionner mais je m'y perds du coup par rapport aux champs formulaires imbriqué dedans, qui devraient être copiés automatiquement dans les nouvelles lignes ajoutées.

[clementmarcotte]

Pour la macro, tout bête mais je n'arrive pas à ajouter de ligne lorsque je passe en enregistrement macro, clic droit impossible...

Relis ce que j'ai écris au point 3. Je n'ai pas écrit cela pour rien.

[operaq]

Yes merci à vous deux;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        ActiveDocument.Tables(2).Cell(nb_ligne, 2).Select
        Selection.MoveRight Unit:=wdCell
        ActiveDocument.Tables(2).Cell(nb_ligne, 2).Select
        Selection.Copy
        ActiveDocument.Tables(2).Cell(nb_ligne + 1, 2).Select
        Selection.Paste
 
        ActiveDocument.Tables(2).Cell(nb_ligne, 1).Select
        Selection.Copy
        ActiveDocument.Tables(2).Cell(nb_ligne + 1, 1).Select
        Selection.Paste

[Sepia]