Tableaux

Comment afficher et masquer rapidement des lignes de tableau ?

2024-04-28T13:02:34+00:00

Avec une macro. Ou plus exactement, avec deux macros, l'une pour masquer les lignes sélectionnées, l'autre pour afficher toutes les lignes du tableau.

Notez que la fonction Masquer n'existe pas. La première macro met à 0 la hauteur des lignes sélectionnées, la seconde donne une hauteur automatique à toutes les lignes du tableau.

Il suffira d'affecter un raccourci clavier à chacune des macros, ou bien à installer deux boutons sur la barre d'outils ou dans le ruban.

Sub masque()
'macro écrite par m@rina
If Selection.Rows.Height > CentimetersToPoints(0.3) Then
Selection.Rows.Height = CentimetersToPoints(0.02)
Selection.Rows.HeightRule = wdRowHeightExactly
End If
End Sub

Sub affiche()
'macro écrite par m@rina
Dim tablo As Table
Set tablo = Selection.Tables(1)
tablo.Rows.HeightRule = wdRowHeightAtLeast
End Sub

Comment ajouter une ligne de texte avant un tableau existant ?

2024-04-28T12:51:29+00:00

Il y a au moins deux solutions. On clique dans la première ligne puis :

On utilise le raccourci clavier Ctrl+Maj+Entrée
ou
Sous l'onglet Mise en page (de tableau) ou Outils de tableau/Mise en page (selon votre version), groupe Fusionner, on clique sur Fractionner le tableau.

On peut également cliquer avant le premier caractère de la première cellule, et simplement appuyer sur Entrée.

Vous noterez que cette dernière solution ne fonctionne QUE lorsque le tableau est situé en début de document.

Pour supprimer un retour paragraphe avant un tableau, vous devez le couper (Ctrl + x).

Comment ajuster automatiquement toutes les colonnes du tableau à leur largeur minimale ?

2024-04-28T13:07:41+00:00

Double-cliquez sur la bordure gauche du tableau.

ou via le menu :

Onglet Mise en page (de tableau), groupe Taille de la cellule, bouton Ajustement automatique, Ajustement automatique du contenu

Comment centrer les lignes dans un style de tableau ?

2024-04-28T12:44:51+00:00

Il faut le reconnaître, il s'agit d'un bug.

Ce bug est dû à l'incompatibilité avec l'alignement justifié du style Normal de votre document.

Comment changer la largeur d'une colonne dans un tableau sans modifier celle des autres colonnes ?

2024-04-28T13:23:57+00:00

Pour modifier manuellement la largeur d'une colonne sans qu'il y ait répercussion sur les autres colonnes du tableau, il faut maintenir en même temps la touche Shift enfoncée.

Comment colorer chaque cellule d'un tableau selon son contenu ?

2024-04-28T12:55:35+00:00

Voici un exemple de macro qui colore les cellules du premier tableau du document en fonction de leur contenu :

en vert brillant pour les cellules qui contiennent le mot "Paris"
en jaune brillant pour les cellules qui contiennent le mot "Marseille"
en bleu pâle pour les cellules qui contiennent le mot "Strasbourg"

Sub couleurs()
'macro écrite par m@rina
Dim cellule As Cell, ligne As Row, ville
For Each ligne In ActiveDocument.Tables(1).Rows
For Each cellule In ligne.Cells

With cellule.Shading
Select Case ville
Case ville = InStr(1, cellule.Range.Text, "Paris")
.BackgroundPatternColor = wdColorBrightGreen
Case ville = InStr(1, cellule.Range.Text, "Marseille")
.BackgroundPatternColor = wdColorLightYellow
Case ville = InStr(1, cellule.Range.Text, "Strasbourg")
.BackgroundPatternColor = wdColorPaleBlue
End Select
End With
Next
Next ligne
End Sub

Notez que la casse doit être respectée.

Comment encadrer chaque cellule de tableau d'une couleur différente ?

2024-04-28T13:04:25+00:00

Prenons l'exemple d'un emploi du temps scolaire où chaque cellule correspondrait à une matière. On souhaite encadrer les cellules de la même manière d'une couleur identique de façon à obtenir une vue synthétique de l'emploi du temps sans pour autant vider ses cartouches d'encre !

Le problème réside dans le fait qu'une bordure est commune à deux cellules (en dehors des bordures d'encadrement du tableau.

La solution est très simple, il suffit de laisser un espace entre chaque cellule. Pour cela, afficher la boîte de dialogue Propriétés du tableau :

Clic droit dans le tableau => Propriétés du tableau

Dans la boîte de dialogue Propriétés du tableau, cliquez sur le bouton Options, cocher l'option Autoriser l'espacement entre les cellules et régler l'espacement souhaité.

Il suffit ensuite de mettre une bordure pour chaque cellule, de la manière habituelle. Sélectionnez toutes les cellules qui auront la même couleur à l'aide de la touche Ctrl, et choisissez la couleur et l'épaisseur de la bordure.

Voici le résultat :

Comment faire dans un tableau pour insérer une colonne automatiquement numérotée ?

2024-04-28T13:24:55+00:00

Sélectionner cette colonne
Cliquer sur la numérotation automatique de Word

Comment faire la somme des nombres d'une colonne d'un tableau, quel que soit le format de ces nombres ?

2024-04-28T13:11:27+00:00

Voici une macro qui permet de faire la somme des nombres d'une colonne d'un tableau, quel que soit le format de ces nombres.

Cette macro :

repère où se trouve le point d'insertion (la cellule où on veut faire apparaître la somme)
supprime tous les espaces éventuels placés avant un texte ou un nombre situés dans la colonne concernée
supprime tous les espaces (séparateurs de milliers par exemple) dans les nombres de la colonne
met des zéros dans les cellules vides concernées par le calcul
insère la formule de somme, calcule le résultat, et formate ce dernier ainsi que les nombres de la colonne qui ont été utilisés pour l'obtenir.

Par défaut, le résultat est arrondi à 2 décimales, mais on peut en changer (on peut se faire une macro pour arrondir à l'entier le plus proche, et lui affecter un bouton). Inconvénient : si on supprime les décimales, et qu'on veut ensuite les récupérer, c'est impossible : elles sont perdues.

Sub SommeColonneTableau()
'macro écrite par André Barelier
Dim Contenu As String
Dim NbCol As Integer
Dim NbLig As Integer
Dim NbCel As Long
Dim i As Long
If Selection.Information(wdWithInTable) = True Then
With Selection
'repérage de la cellule où on veut mettre la formule
ligne = .Information(wdStartOfRangeRowNumber)
colonne = .Information(wdStartOfRangeColumnNumber)
End With
Selection.Tables(1).Select
For i = 1 To ligne - 1 'balayage des cellules au dessus
ActiveDocument.Tables(1).Cell(i, colonne).Select
Contenu = Selection.Text
terme1 = Asc(Contenu)
If terme1 = 32 Then 'élimination des blancs en début de texte
Selection.Find.Execute FindText:="^w", ReplaceWith:="",
Replace:=wdReplaceAll
End If
If terme1 = 45 Or terme1 = 43 Then 'élimine espaces après - ou +
Selection.Find.Execute FindText:="^w", ReplaceWith:="",
Replace:=wdReplaceAll
End If
If terme1 > 47 And terme1 < 58 Then
'élimination des séparateurs éventuels dans les nombres
Selection.Find.Execute FindText:="^w", ReplaceWith:="", _
Replace:=wdReplaceAll
End If
If terme1 < 32 Then Selection.TypeText Text:="0"
'mettre zéro dans les cellules vides
Next i
Selection.Tables(1).Cell(ligne, colonne).Select
Selection.Delete 'enlever le zéro
Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="# ##0.00"
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
For i = 1 To ligne - 1
Selection.Tables(1).Cell(i, colonne).Select
If Val(Selection.Text) <> 0 Then
Selection.Text = Format(Val(Selection.Text), "# ### ### ##0.00")
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End If
Next i
Else
MsgBox "Mettre le point d'insertion dans un tableau"
End If
End Sub

Formatage nombres entiers (avec prise en compte des nombres négatifs)

Sub FormatageNombreEntier()
'macro écrite par André Barelier
With Selection
ligneDebut = .Information(wdStartOfRangeRowNumber)
colonneDebut = .Information(wdStartOfRangeColumnNumber)
ligneFin = .Information(wdEndOfRangeRowNumber)
colonneFin = .Information(wdEndOfRangeColumnNumber)
End With
For i = ligneDebut To ligneFin
For j = colonneDebut To colonneFin
Selection.Tables(1).Cell(i, j).Select
Contenu = Selection.Text
terme1 = Asc(Contenu)
If terme1 = 32 Then
'élimination des blancs éventuels en début de texte
Selection.Find.Execute FindText:="^w", ReplaceWith:="", _
Replace:=wdReplaceAll
End If
If terme1 > 48 And terme1 < 58 Then
'élimination des séparateurs éventuels dans les nombres
Selection.Find.Execute FindText:="^w", ReplaceWith:="", _
Replace:=wdReplaceAll
End If
Next j
Next i
For i = ligneDebut To ligneFin
For j = colonneDebut To colonneFin
Selection.Tables(1).Cell(i, j).Select
Contenu = Selection.Text
If Asc(Contenu) = 45 Or (Asc(Contenu) > 48 And _
Asc(Contenu) < 58) Then
Selection.Text = Format(Val(Selection.Text), _
"# ### ### ##0")
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End If
Next j
Next i
End Sub

Comment faire pour reporter les titres d'un tableau qui tient sur plusieurs pages en haut de chacune de ces pages ?

2024-04-28T13:31:57+00:00

Cliquer dans la ligne que l'on veut utiliser comme titre sur toutes les pages. S'il y a plusieurs lignes, il faut les sélectionner. Puis :

Onglet Mise en page (de tableau), groupe Données, bouton Répéter les lignes d'en-tête