Définir largeur de colonnes tableaux word via code vba
Liloj
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je dois mettre en formes des tableaux excel sur word , la plus grosse partie est faite via excel, il ne me reste plus qu'a copier dans word et à redimensionner les colonnes, j'ai environ 80 tableaux à traiter, chacun composés de 5 colonnes avec des largeurs différentes
(ce travail a pour but d'être dans des dimension précise afin d'être inséré dans un document publisher qui part chez l'imprimeur)
Existe-t-il un code vba qui modifierait les largeurs des colonnes de tous les tableaux sélectionnés ? et si oui, si possible de cette manière :
- 1er ligne fusionnée ( 9,1 cm )
- colonne 1 : 1,7 cm
- colonne 2 : 1,6 cm
- colonne 3 : 1 cm
- colonne 4 : 3 cm
- colonne 5 : 1,8 cm
Je vous remercies d'avance de me portait secoure, une semaine que je cherche un code et je n'arrive à rien ....
Je dois mettre en formes des tableaux excel sur word , la plus grosse partie est faite via excel, il ne me reste plus qu'a copier dans word et à redimensionner les colonnes, j'ai environ 80 tableaux à traiter, chacun composés de 5 colonnes avec des largeurs différentes
(ce travail a pour but d'être dans des dimension précise afin d'être inséré dans un document publisher qui part chez l'imprimeur)
Existe-t-il un code vba qui modifierait les largeurs des colonnes de tous les tableaux sélectionnés ? et si oui, si possible de cette manière :
- 1er ligne fusionnée ( 9,1 cm )
- colonne 1 : 1,7 cm
- colonne 2 : 1,6 cm
- colonne 3 : 1 cm
- colonne 4 : 3 cm
- colonne 5 : 1,8 cm
Je vous remercies d'avance de me portait secoure, une semaine que je cherche un code et je n'arrive à rien ....
A voir également:
- Définir largeur de colonnes tableaux word via code vba
- Tableau word - Guide
- Code ascii - Guide
- Word 2013 - Télécharger - Traitement de texte
- Comment faire des colonnes sur word - Guide
- Impossible de supprimer une page word - Guide
7 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, je pense que tu peux facilement découvrir comment réaliser cela en enregistrant, dans Word, une macro pendant que tu manipules les largeurs de colonne.
Bonjour,
Alors j'ai bien tentée mais avec l'enregistreur macro sur word je n'arrive pas à sélectionner éléments après éléments et faire les manipulations, il me semble donc qu'avec le mode automatique on ne peut pas faire se que je voudrai :(
C'est la raison pour la quelle je cherche un code en visual basic, je pensais m'en sortir étant donné que j'utilise régulièrement vba avec excel... mais je rame trop :-S
Alors j'ai bien tentée mais avec l'enregistreur macro sur word je n'arrive pas à sélectionner éléments après éléments et faire les manipulations, il me semble donc qu'avec le mode automatique on ne peut pas faire se que je voudrai :(
C'est la raison pour la quelle je cherche un code en visual basic, je pensais m'en sortir étant donné que j'utilise régulièrement vba avec excel... mais je rame trop :-S
Malheureusement rien ne s'enregistre, j'ai fait au fur et a mesure suspendre et reprendre la macro, mais aucun code dans la macro... j'ai tentée de reproduire un code excel mais non, puis j'ai trouvé le code suivant sur des forums, mais toujours pas... puis bien d'autres, mais rien n'y fait... Vous êtes vraiment mon dernier recoure !
Je vous remercie encore de prendre du temps pour m'aider à 'résoudre mon problème.
Sub Format_colonnes()
'
' Format tbl
For Each colonne In ActiveDocument.Tables_
.Columns(1).Width = CentimetersToPoints(1.7)
.Columns(2).Width = CentimetersToPoints(1.6)
.Columns(3).Width = CentimetersToPoints(1)
.Columns(4).Width = CentimetersToPoints(3)
.Columns(5).Width = CentimetersToPoints(1.8)
Next
End Sub
Je vous remercie encore de prendre du temps pour m'aider à 'résoudre mon problème.
Sub Format_colonnes()
'
' Format tbl
For Each colonne In ActiveDocument.Tables_
.Columns(1).Width = CentimetersToPoints(1.7)
.Columns(2).Width = CentimetersToPoints(1.6)
.Columns(3).Width = CentimetersToPoints(1)
.Columns(4).Width = CentimetersToPoints(3)
.Columns(5).Width = CentimetersToPoints(1.8)
Next
End Sub
Bien il ne fonctionne pas, j'ai du me tromper quelque part, sa me met : erreur de compilation, référence incorrecte ou non qualifiée
J'ai beau me cassé la tête je n'arrive pas à comprendre
J'ai beau me cassé la tête je n'arrive pas à comprendre
peux-tu partager ton code, et indiquer à quelle ligne l'erreur se produit? merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Désolé de mon retour tardif, j'avais des urgences à traiter :-S
J'espère que mon utilisation des balises soit correcte.
Pas de ligne indiquée, c'est juste noté erreur de compilation : fonction ou variable attendue
C'est la première fois que je vois ce code erreur, c'est se qui me fait dire que j'ai du me planter dans la syntaxe du code
Merci encore pour ton aide !
J'espère que mon utilisation des balises soit correcte.
Pas de ligne indiquée, c'est juste noté erreur de compilation : fonction ou variable attendue
C'est la première fois que je vois ce code erreur, c'est se qui me fait dire que j'ai du me planter dans la syntaxe du code
Merci encore pour ton aide !
Sub Format_colonnes() ' ' Format tbl For Each colonne In ActiveDocument.Tables_ .Columns(1).Width = CentimetersToPoints(1.7) .Columns(2).Width = CentimetersToPoints(1.6) .Columns(3).Width = CentimetersToPoints(1) .Columns(4).Width = CentimetersToPoints(3) .Columns(5).Width = CentimetersToPoints(1.8) Next End Sub
il devrait y avoir une ligne surlignée au moment où l'erreur se produit.
j'essaierais plutôt:
j'essaierais plutôt:
option explicit Sub Format_colonnes() ' ' Format tbl dim tb as table For Each tb In ActiveDocument.Tables tb.Columns(1).Width = CentimetersToPoints(1.7) tb.Columns(2).Width = CentimetersToPoints(1.6) tb.Columns(3).Width = CentimetersToPoints(1) tb.Columns(4).Width = CentimetersToPoints(3) tb.Columns(5).Width = CentimetersToPoints(1.8) Next tb End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cette fois ci j'ai bien une ligne surlignée... code erreur '5992' sur la ligne suivante :
tb.Columns(1).Width = CentimetersToPoints(1.7)
je n'arrive pas à comprendre....
tb.Columns(1).Width = CentimetersToPoints(1.7)
je n'arrive pas à comprendre....
si si, le message suivant :
Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes.
Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes.