Discussion :

[Jon Shannow]

Bonjour,

J'ai un petit soucis dans Word. J'insère des tableaux, la plupart tiennent sur la page, mais là, je l'insère à quelques lignes de la fin de la page, et j'ajoute des lignes. Quand le bas de page est arrivé, tout le tableau s'est déplacé sur la page suivante, alors que je pensais qu'il allait simplement coupé le tableau. Comment je peux faire pour qu'il coupe le tableau automatiquement ? Parce que là, présentement, c'est nul. J'ai le nom du tableau, puis un grand vide et le tableau dans la page suivante !

Merci de vos conseils

JS

[Invité]

Bonjour,

Regardez dans les propriétés du tableau si vous avez cela :

Pièce jointe 500413

[Jon Shannow]

Bonjour,
Merci de la réponse, mais oui, j'ai bien ça.
JS

[Invité]

Bonjour,

Le tableau en question ne serait-il collé pas sous forme d'image ? Pouvez vous modifier des cellules ?

[Jon Shannow]

C'est un tableau, tout ce qu'il y a de plus classique. Oui, j'accède aux cellules, d'ailleurs, c'est en faisant "TAB" sur la dernière cellule, qu'il me rajoute une ligne (ça, c'est cool), mais qu'il m'a déplacé tout mon tableau sur la page suivante (et ça, c'est pas cool).

[Invité]

J'ai fait un copier coller d'un tableau Excel de plus de 120 lignes, les lignes se scindent bien. On ne doit pas parler de la même chose ou mes réglages Word sont différents. Mettez un fichier en ligne si vous souhaitez que je regarde.

[Jon Shannow]

Je pense à un truc. Mes tableaux, je les crée via une macro. Peut-être que ça vient de la méthode de création par la macro, qui pose problème.

Voici la macro en question

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Inserer_Tableau_Champs()
'
' Inserer_Tableau_Champs Macro
' Insere un tableau de définition de champs de données
'
    Set maPlage = Selection.Range
    Set maTable = ActiveDocument.Tables.Add(Range:=maPlage, NumRows:=3, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed)
    With maTable
        If .Style <> "Grille du tableau" Then
            .Style = "Grille du tableau"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    maTable.Select
    Selection.TypeText Text:="Nom"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Type"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Taille"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Commentaire"
    maTable.Style = "Tableau Grille*5 Foncé - Accentuation*1"
    maTable.Columns(1).PreferredWidthType = wdPreferredWidthPoints
    maTable.Columns(1).PreferredWidth = CentimetersToPoints(3.74)
    maTable.Columns(2).PreferredWidthType = wdPreferredWidthPoints
    maTable.Columns(2).PreferredWidth = CentimetersToPoints(1.5)
    maTable.Columns(3).PreferredWidthType = wdPreferredWidthPoints
    maTable.Columns(3).PreferredWidth = CentimetersToPoints(1.75)
    maTable.Columns(4).PreferredWidthType = wdPreferredWidthPoints
    maTable.Columns(4).PreferredWidth = CentimetersToPoints(11.64)
    maTable.Columns(2).Select
    maTable.Rows.HeadingFormat = True
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    maTable.Rows(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

Est-ce que ça peut venir de là ?
Merci d'avance,
JS

[Invité]

Lorsque je lance la procédure, un tableau de 3 lignes et de 4 colonnes est bien créé en début de page. Lorsque je me mets dans la dernière cellule et que j'utilise la touche tabulation jusqu'au changement de page, j'ai bien le tableau qui se scinde sur les deux pages.

[Jon Shannow]

Oui, mais, est-ce que si tu crées un tableau au milieu d'une page, ça fait la même chose ?

[Invité]

Effectivement, le tableau ne se scinde pas dans ce cas.

Pour régler le problème, se positionner sur une ligne du tableau, dans le menu Mise en page, sélectionner Fractionner le tableau.

Pièce jointe 500875

[Jon Shannow]

Effectivement, ça fonctionne.

Mais, ça le fractionne là où on se situe, c'est pas évident de bien se situé, ensuite, l'entête n'est pas reprise, alors qu'elle le devrait.

C'est quand même étrange, ce fonctionnement ? Il me semblait bien que les tableaux se fractionnait automatiquement, non ?

JS

[Invité]

Sinon, en VBA pour positionner la rupture, il faudrait évaluer la distance restante par rapport au haut de la page :

Code :

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

Selection.Information(wdVerticalPositionRelativeToPage)

Et en déduire le nombre de lignes pouvant être injectées sur la page en cours en fonction des N premières lignes du tableau.

[Jon Shannow]

Merci de ton aide,

Je vais regarder tout ça de prés.

A+
JS

[clementmarcotte]

Bonjour,

l'entête n'est pas reprise, alors qu'elle le devrait.

JS

Clique sur "Répéter les lignes d'en-tête" dans l'onglet Mise en page du Ruban

[Jon Shannow]

Bonjour,

Merci clementmarcotte, c'est effectivement cette option qui fout le bazar.

Je peux mettre en résolu, encore merci à vous deux pour votre aide et votre temps.

JS