transposition d'un tableau de colonnes en lignes [Résolu]

[Prissou]

Bonjour,

J'ai encore un petit soucis de tableau.

J'aimerais que mes colonnes deviennent des lignes

colonne 1 | colonne 2 | colonne 3| colonne 4
info 1 | info 2 | info 3 | info 4
crit 1 | crit 2 | crit 3 | crit 4 |

colonne 1 | info 1 | crit 1
colonne 2 | info 2 | crit 2
colonne 3 | info 3 | crit 3
colonne 4 | info 4 | crit 4

Si quelqu'un a une idée...

Merci d'avance..

[ouskel'n'or]

Pour transposer ton tableau, tu as deux solutions, passer par Excel, qui a dans Collage spécial un paramètre "Transposé", ou en utilisant une macro qui fait ça en mettant en colonne les données lues par ligne. Par exemple :

Code :

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
28
29
30
31
32
33
34
35
36
Option Explicit
 
Sub TransposerTableauWord()
Dim TabDonnées(), NbCol, NbLig, NoLig, NoCol, i
    With ActiveDocument.Tables(1)
        NbCol = .Columns.Count
        NbLig = .Rows.Count
        ReDim TabDonnées(NbLig * NbCol)
        For NoLig = 1 To NbLig
            For NoCol = 1 To NbCol
                .Cell(NoLig, NoCol).Select
                i = i + 1
                TabDonnées(i) = Left(Selection.Text, _
                Len(Selection.Text) - 2) 'supprime crlf
            Next
        Next
    End With
    'Placement en fin de doc -> on pourrait se positionner sur un signet
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=NbCol, NumColumns:= _
        NbLig, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    i = 0
    With ActiveDocument.Tables(2)
        For NoLig = 1 To NbLig
            For NoCol = 1 To NbCol
                i = i + 1
                .Cell(NoCol, NoLig).Select
                Selection.Text = TabDonnées(i)
                DoEvents
            Next
        Next
    End With
    'ActiveDocument.Tables(1).Delete 'suppression du tableau d'origine
End Sub

Assure-toi du nom de ton tableau
A+

[Prissou]

Je vous remercis.
Mais finallement j'avais trouvé d'une autre façon. Mais je n'ai pas pu vous en faire part.

Merci Priscilla

[Heureux-oli]

Tu peux toujours nous faire part de la solution utilisée, elle pourrait être utile à un autre membre.

[ouskel'n'or]

Hello Heureux Oli,
J'ai vu passer la réponse sur un autre post. Il existerait une fonction qui fait ça... dans Excel

[Heureux-oli]

Lut ouskel'n'or
On peut le faire avec Access aussi, la solution est dans les codes sources.