Discussion :

[Askillaz]

Bonjour à vous.

Je dois mettre en page un fichier comprenant beaucoup de tableaux. Ceux-ci ne sont pas bien ajustés et je souhaiterais effectuer un "Ajustement automatique de la fenêtre" sur l'ensemble de ces tableaux. Sauf que, si je ne me trompe pas, on ne peut le faire que tableau par tableau. Cela va me prendre un temps fou...
Existe-t-il une méthode pour les sélectionner tous et les ajuster en une seule fois?
Faut-il créer une macro pour cela? Si oui, comment la faire?
Je vous joint mon exemple de fichier au cas ou il serait nécessaire.
Pour info, le premier tableau est de la taille souhaitée, les autres sont à ajuster à l'identique du premier.

En vous remerciant d'avance de vos réponses.

Bonne journée.

[Anne_HM]

Bonjour,

sans macro, il y a bien un moyen d'aller assez vite pour faire ce que tu veux mais c'est manuel :
- tu fais la manipulation d'ajustement à la fenêtre sur un tableau
- tu cliques dans le suivant (inutile de le sélectionner) et tu appuies sur la touche de fonction [F4]
- et tu continues : clic dans le tableau suivant, [F4], etc.

Sinon, la petite macro suivante, issue du web, fait ce que tu veux :
Sub AdjustTableWidth()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
With oTable
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
End With
Next oTable
End Sub

Elle fonctionne très bien, mais ce n'est pas rapide. Tu me diras que pendant ce temps-là, tu peux faire autre chose...

Je crois que j'aurais fait plus vite avec [F4] ;-)

Anne

[Askillaz]

Bonjour Anne.

Je vous remercie pour votre réponse, la macro est parfaite
ça va vraiment me simplifier la mise en page de mes dossiers.

Encore merci.

Cordialement.

Bonne continuation.