Discussion :

[hfranck]

Bonjour à tous,

Dans mon document WORD, j'ai un tableau possédant 2 lignes :
- La première ligne du tableau est une ligne d'en-tête dans laquelle, pour chaque colonne, j'ai un libellé différent.
- Ma deuxième ligne est un peu particulière. Dans chaque colonne, j'ai un code.

Je veux insérer dans ce tableau, des informations qui proviennent d'un fichier extérieur. De ce fait, lorsque je traite le tableau en VB, pour chaque ligne présente dans mon fichier extérieur, j'insère une nouvelle ligne dans le tableau et je fais correspondre la valeur de la colonne en fonction du code de la colonne => J'insère donc une ligne supplémentaire avec les valeurs dans les bonnes colonnes. Pour être complet, au terme du traitement du tableau, j'ai une méthode qui supprime la ligne du tableau dans laquelle, j'ai le fameux code pour ne pas avoir une ligne "moche" dans le tableau

Ma question est : Lorsque j'insère ma nouvelle ligne dans le tableau, est ce que peux reprendre la mise en forme de la deuxième ligne (celle où j'ai les codes) et l'appliquer sur la nouvelle ligne insérée (la troisième en fait) ?

D'avance merci.
Franck.

[Heureux-oli]

Salut,

Essaie en plaçant la curseur dans la dernière cellule à droite de ton tableau, utilise la touche tabulation et une nouvelle ligne est créée avec la mise en forme de la précédente.

Normalement, l'ajout d'une ligne avec les outils tableau donne le même résultat.

[hfranck]

Merci pour la réponse.

Je viens de faire la manipulation en utilisant Word et enregistrer la macro pour regarder le code VB que Word génère sur l'action :
- Je me positionne sur la dernière cellule de la deuxième ligne
- Je lance l'enregistrement de la macro
- Je tabule ==> Word insère automatiquement une ligne

Voici ce que donne la macro :

Code :

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

1
2
3
4
 
Sub Macro1()
     Selection.MoveRight Unit:=wdCell
End Sub

Je n'ai pas mon code sous les yeux, mais dès demain, j'essaie d'intégrer cette solution.

Merci beaucoup.

[hfranck]

Je n'ai effectivement pas accès à mon code, mais j'ai au moins accès à Word et à l'enregistrement de macro...

Dans Word, dans un document vide, je me suis donc créé un tableau identique à celui que je dois gérer (2 lignes, plusieurs colonnes).
Je rappelle que je souhaite ajouter des lignes dans mon tableau. Ces nouvelles lignes ajoutées doivent avoir la même mise en forme que la ligne 2. La première ligne étant l'en-tête du tableau.

Voici le code associé à la macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub AddRow()
    Dim count As Integer
    'Nombre de colonnes dans la tabealu n°1
    count = ActiveDocument.Tables(1).Columns.count
    'Sélection de la dernière cellule de la deuxième ligne du tableau
    ActiveDocument.Tables(1).Rows(2).Cells(count).Range.Select
    'Ajout d'une nouvelle ligne ==> Automatiquement, Word reprend la même mise en forme que la ligne sur laquelle on était
    Selection.MoveRight Unit:=wdCell
End Sub

Je viens de tester cette macro, directement dans Word, et ça fait très exactement ce que je veux !!!

Merci beaucoup Heureux-oli et bonne soirée.

[Heureux-oli]

Salut,

Tu n'as jamais mentionné que c'était avec du code que tu souhaitais faire cette manipulation.

[hfranck]

Salut,

dans mon premier post, j'ai écrit

...De ce fait, lorsque je traite le tableau en VB...

Ce n'était sûrement pas assez clair dans ma phrase, j'essaierai de l'être plus la fois prochaine.
Désolé.
Cependant, c'est tout de même grâce à ta réponse que j'ai su comment faire (je ne savais que la touche TAB en fin de tableau, ajoutait une ligne en reprenant la mise en forme de la précédente).

A+

[Heureux-oli]

Salut,

Autant pour moi, ça m'a échappé, si je l'avais svu, j'aurais déplacé dans la partie VBA du forum Word.