user_mobilelogo

Vous avez un document qui contient beaucoup de tableaux et vous souhaitez leur appliquer à tous le même format, rapidement. Il vous faut donc une macro.

La macro suivante va appliquer le style "Tableau Grille 3 - Accentuation 2". Pour connaître le nom du style il suffit de passer la souris sur les styles de tableau, dans le groupe Styles de tableau.

Lorsque vous formatez un tableau, vous choisissez les différentes options via le groupe Options de style de tableau. Vous devrez donc compléter la macro suivante selon vos choix. Vous mettrez donc False lorsque vous ne souhaitez pas ce paramètre et True lorsque vous le souhaitez. 

NB :  Attention, pour les utilisateurs des versions à partir de 2013, les noms des styles posent problème. Voyez cet article pour corriger.

Sub tablos()
'macro écrite par m@rina
For Each tablo In ActiveDocument.Tables
With tablo
.Style = "Tableau Grille 3 - Accentuation 2"
'pour les instructions suivantes, mettre True pour oui et False pour non selon ce qu'on souhaite faire
.ApplyStyleColumnBands = False      'colonnes à bandes
.ApplyStyleRowBands = True          'Lignes à bandes
.ApplyStyleHeadingRows = True       'Ligne d'en-tête
.ApplyStyleFirstColumn = True       'Première colonne
.ApplyStyleLastColumn = True        'Dernière colonne
.ApplyStyleLastRow = False          'Ligne Total
End With
Next
End Sub
 

Cette macro ne fait qu'appliquer un style de tableau avec ses différents paramètres. Si vous souhaitez également toucher aux bordures, vous devrez le spécifier. La macro suivante, par exemple, applique les bordures aussi bien pour l'extérieur que pour l'intérieur :

Sub bordures()
For Each tablo In ActiveDocument.Tables
With tablo.Borders
.InsideLineStyle = True
.OutsideLineStyle = True
End With
Next
End Sub

Vous pouvez appliquer d'autres paramètres aux bordures. Je ne donnerai pas ici toutes les possibilités, mais voici comment par exemple appliquer une bordure triple extérieure, de couleur rouge et une bordure simple pour l'intérieur :

Sub bordures()
For Each tablo In ActiveDocument.Tables
With tablo.Borders
.InsideLineStyle = wdLineStyleSingle
.OutsideLineStyle = wdLineStyleTriple
.OutsideColor = wdColorRed
End With
Next
End Sub
 

Statistiques

Aujourd'hui2126
Total depuis 200411463945

33
visiteurs actuellement en ligne

17 octobre 2019