Discussion :

[ouskel'n'or]

Bonjour tous,
Simple exercice ne mettant pas en cause ma vie professionnelle...
Un test révèle mon problème. Au lieu de placer mes données (sous forme de tableau) sur une même ligne, je souhaite les placer dans une même colonne.

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
Sub test()
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Plage1 As Range, Plage2 As Range
Dim tablo As Variant
 
    Set FL1 = Worksheets("feuil1")
    Set FL2 = Worksheets("feuil2")
    FL1.Cells.ClearContents
    FL2.Cells.ClearContents
 
    '- On crée un tableau à une dimension dont le premier indice est zéro
    tablo = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")
    '- on crée deux instances de plages de cellules
    Set Plage1 = FL1.Range("A1:L1") 'même ligne
    Set Plage2 = FL2.Range("A1:A12") 'même colonne
    '- on affecte le tableau aux deux plages
    Plage1.Value = tablo
    Plage2.Value = tablo
    '... et
    FL2.Activate 'on regarde
End Sub

C'est là que je suis pas content.

Un moyen pour contourner le pb ?

J'exclus naturellement l'utilisation d'une boucle ou de l'option Collage spécial "Transpose".
Trop facile !
Par avance, merci.

[mapeh]

Bonjour,

même si j'utilise Transpose, c'est bon quand même?

Code :

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

    Plage2.Value = Application.Transpose(tablo)

[laetitia]

bonjour ouskel'n'or le forum peut être un truc comme cela!!! a tester

Code :

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

Plage2.Resize = Application.Transpose(tablo)

a la place de..

Code :

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

Plage2.Value = tablo

[ouskel'n'or]

Merci Laeticia, mapeh,
Autant pour moi, votre solution fonctionne, ma réponse précédente était précipitée.
J'ai un peu honte de n'y avoir pas pensé car j'ai déjà indiqué cette solution sur ce forum.
Juste une petite chose, Resize n'est pas nécessaire, value non plus.

Code :

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

    Plage2 = Application.Transpose(tablo)