Discussion :

[hugtohug]

J'aimerai faire la même chose que dans cette discussion mais attribuer ma plage de cellules Excel "Dynamiquement", car la taille de mon tableau VBA va bouger à chaque utilisation de mon programme.

[Theze]

Bonjour,

Un petit exemple :

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
22
 
Sub Test()
 
    Dim Tbl()
    Dim I As Integer
    Dim J As Integer
 
    ReDim Tbl(1 To 10, 1 To 20) '10 lignes par 20 colonnes
 
    'rempli le tableau de valeurs sans importances
    For I = 1 To UBound(Tbl, 1)
 
        For J = 1 To UBound(Tbl, 2)
 
            Tbl(I, J) = I + J
 
    Next J, I
 
    'inscrit le tableau dans la feuille à partir de A1 : Cells(1, 1)
    Range(Cells(1, 1), Cells(UBound(Tbl, 1), UBound(Tbl, 2))) = Tbl
 
End Sub