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.