Discussion :

[Alfred23]

Bonjour,

Je fais des tests pour essayer de comprendre le principe des tableaux en VBA.

Le code ci-dessous devrait me permettre de mettre les données contenues dans la plage "A8: D8" dans vTableau puis de les restituer dans la feuille excel à partir de la cellule "B1"...
En tous cas, c'est ce que j'essaie de faire !!

Or, je ne récupère que les données de la cellule "A8".

Est-ce que vous pourriez m'expliquer pourquoi ?

Merci d'avance.
Alfred

Code :

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

1
2
3
4
5
6
7
8
Sub ExcelVersArray2()
 
    Dim vTableau() As Variant
    vTableau = Range("A8:D8")
 
    Range(Cells(1, 2), Cells(UBound(vTableau, 1), UBound(vTableau, 2))) = vTableau
 
End Sub

[Arkham46]

bjr,

à tester :

Code :

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

    Range(Cells(1, 2), Cells(UBound(vTableau, 1), 1 + UBound(vTableau, 2))) = vTableau

vu que la première cellule est en colonne 2, il faut ajouter 1 à la deuxième cellule de destination