Discussion :

[le_touriste]

Bonjour tout le monde,

Bientôt les fêtes! que du plaisir en tout cas bonne fête à tous

Enfin avant de faire la fête j'ai quand même un petit soucis. Voilà mon p'tit problème je suis entrain de rédiger mon travail de fin d'étude sous word 2007. J'ai crée des tableaux sous excel 2007 et je souhaite faire un joli copier-coller dans mon document word.

Le problème c'est que mon tableau est assez large donc nécessite une feuille en mode paysage. Chiant comme je suis, je veux que ma feuille word reste en mode portrait (pour que mes titres, mes numéros de pages, mes notes de bas de pages restent dans le sens portrait) et donc je voudrais faire une rotation de 90° à mon tableau...

J'espère que quelqu'un aura une petite solution pour moi... Un grand merci d'avance pour votre aide

[Heureux-oli]

Salut,

Faire tourner ton tableau tu ne peux.
Mais bien le texte dans chaque cellule.

[le_touriste]

Oui oui j'ai pensé là même chose mais c'est un sacré chipotage! Il va y avoir du sacré copié coller dans l'air! Mais comme je trouve rien d'autre je vais sans doute faire ça!
Merci à toi

[Heureux-oli]

Salut,

Quelle taille fait ton tableau ?

[le_touriste]

7 colonnes et 25 lignes plus ou moins (Il y en aura sans doute d'autres)

[Heureux-oli]

Colle ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub RotationDeTable()
Dim oTbl1 As Table
Dim oTbl2 As Table
 
Dim intI As Integer
Dim intJ As Integer
Dim intX As Integer
Dim inty As Integer
 
 
Set oTbl1 = ActiveDocument.Tables(1)
Set oTbl2 = ActiveDocument.Tables(2)
 
intI = oTbl1.Rows.Count
intJ = oTbl2.Columns.Count
 
For intX = 1 To intI
    For inty = 1 To intJ
        oTbl2.Cell(intX, inty).Range.Text = oTbl1.Cell(inty, intX).Range.Text
    Next inty
Next intX
 
Set oTbl1 = Nothing
Set oTbl2 = Nothing
 
 
End Sub

tu dois savoir l'odre de tes tables, et tu renplaces dans cette ligne le numéro de ta table si c'est la dixième, ça devient

Code :

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

Set oTbl1 = ActiveDocument.Tables(10)

Et tu crées dessous une nouvelle table qui sera

Code :

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

Set oTbl1 = ActiveDocument.Tables(11)

elle doit avoir le nombre de colonnes et de lignes inversé.


Tu lances le code.

Fais un essai à blanc pour voir comment le code fonctionne.