export de tableau vers une feuille excel

[Thdelerme]

Bonjour,
je cherche sur ce forum et ailleurs et je ne trouve pas de solutions satisfaisantes .
Comment copier un tableau à 2 dimensions vers une feuille Excel
je fais basiquement:
For x = LBound(Table, 1) To UBound(Table, 1)
For y = LBound(Table, 2) To UBound(Table, 2)
Cells(x_Table + 1, y_Table + 1) = Table_Element(x, y)
Next y
Next x

Mais y aurait il une solution plus simple sans passer par cette imbricages de boucles ...
merci de vos commentaires

 

[Pierrot93]

Re : export de tableau vers une feuille excel

Bonjour thdelerme,

en supposant un tableau déclaré comme suit :

Dim montableau(1 To 20, 1 To 2) As Variant

le code qui suit devrait fonctionner :

Range("F1:G20") = montableau

bonne journée.
@+

 

[Thdelerme]

Re : export de tableau vers une feuille excel

Merci Pierrot pour ta réponse,
je l'ai modifiée comme suit :
ActiveWorkbook.ActiveSheet.Range( _
Cells(LBound(Table, 1) , LBound(Table, 2) ), _
Cells(UBound(Table, 1) , UBound(Table, 2) )) = Table