Discussion :

[yannick113]

Bonjour,

je souhaite dimensionner mes tableaux sous word à l'aide d'une petite macro. J'ai récuperer des idées sur les autres tutos mais je n'arrive pas à définir la largeur de chacune des colonnes.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub tabldim()
With ActiveDocument.Tables(1)
Selection.Columns(1).PreferredWidth = CentimetersToPoints(1)
End With
With ActiveDocument.Tables(1)
Selection.Columns(2).PreferredWidth = CentimetersToPoints(2)
End With
End sub

Si je souhaite dimensionner la deuxieme colonne du tableau, ca ne marche pas.

Il doit avoir une ligne de code qui permet de faire cette opération de maniere facile.

Merci pour votre aide

[carden752]

Bonjour,

n'est-ce pas tout simplement parce que ton tableau a une largeur fixe déjà?

Code :

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

ActiveDocument.Tables(1).PreferredWidth

Regarde aussi si tu as bien défini une taille en points et pas pourcentage

Code :

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

ActiveDocument.Tables(1).PreferredWidthType

[Heureux-oli]

Salut,

Le premier problème est que tu n'adresses pas une colonne.

Code :

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

Selection.Columns(2).PreferredWidth = CentimetersToPoints(2)

tu reçois un message stipulant que le menbre de la collection n'existe pas.

Code :

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

ActiveDocument.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(2)

Dans ce morceau de code, tu commence par adresser une table pour ensuite travailler avec une sélection.

Code :

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

1
2
3
With ActiveDocument.Tables(1)
Selection.Columns(1).PreferredWidth = CentimetersToPoints(1)
End With

Ton code devrait ressembler à ça :

Code :

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

1
2
3
With ActiveDocument.Tables(1)
    .Columns(1).PreferredWidth = CentimetersToPoints(1)
End With

En Fait, With introduit une possibilité d'utiliser plusieurs méthodes ou propriétés pour un même objet.

Code :

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

1
2
3
4
5
6
With monobjet
   .propriété1
   .propriété2
   .Methode1
   .methode2
End With

Et est identique à :

Code :

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

1
2
3
4
5
 
   monobjet.propriété1
   monobjet.propriété2
   monobjet.Methode1
   monobjet.methode2

donc ton code devrait devenir :

Code :

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

1
2
3
4
5
 
With ActiveDocument.Tables(1)
   .Columns(1).PreferredWidth = CentimetersToPoints(1)
   .Columns(2).PreferredWidth = CentimetersToPoints(2)
End With

[carden752]

Bonjour Heureux-Oli,

Bien vu ce bout de code m'avait echappe!!

[yannick113]

Bonjour,

Merci pour votre aide, je viens de m'apercevoir que la macro de marche pas car j'avais pas tenu compte que mes tableaux contenaient du texte.