Discussion :

[casavba]

Bonjour,

J'ai un tableau que j'ai remplie à l'aide d'une boucle

Comment transposer ce tableau à partir d'une cellule
c un tableau d'une seule colonne



Merci

[Le Pierre]

bonjour

tu copies tes données 'd'une ou plusieures colonnes)
tu cliques dans la cellule de début de tes données à transposer
click droit --> collage spécial... --> Transposé et OK

à plus

[casavba]

C'est un tableau à une dimension du style Tab(i) ----> VBA pas sur une feuille Excel

[Le Pierre]

pardon, je n'avais pas compris
voici un exemple de transposition à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
    Dim Tabl As Variant
    Tabl = Array(1, 2, 3, 4, 5)
    'en ligne
    For Col = 1 To 5
        Cells(5, Col).Value = Tabl(Col - 1)
    Next Col
    'en colonne
    For Lig = 1 To 5
        Cells(Lig + 6, 2).Value = Tabl(Lig - 1)
    Next Lig
End Sub

à plus

[Abed_H]

Bonsoir

Code :

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

Range("D2").Resize(i, 1) = Application.Transpose(Tontablo)

Abed_H

[Le Pierre]

bonjour Abed

j'ai Excel 2002 et "transpose" ne fonctionne pas.

à plus

[Abed_H]

Bonjour le Pierre
désolé je n'ai pas excel 2002 pour la testé mais sur 2003-2007 ca fonctionne,donc (tu te met à jour).
Bonne journée Le Pierre

Abed_H

[casavba]

Merci Abed_H

Ta solution est interessante mais pas suffisemment

En fait j'ai un tableau "MonTab" de dimension 1 et 3 ligne

Je veux transposer Dans la plage D2:F2 ??



Si j'applique Ta solution soit elle me copie le tableau dans D2 à D4
soit après modif 3 ligne et 3 colonne avec dans chaque ligne le m^me chiffre qui se répète


Merci Pour votre aide
je suis bloqué

[Abed_H]

Bonjour

Code :

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

Range("D2:F2") = Tontablo

[casavba]

ct tout bête. J'ai honte
Merci à tous