transfert de Plage vers Tableau VBA

[Bonero]

Salut tout le monde,
je veux transferer les données d’une plage vers un tableau vba.
Je sais comment utiliser la boucle pour transferer la plage vers un tableau vba ordinaire.
Je sais egalement comment utiliser un tableau Variant.
Mais je precise que je NE VEUX utiliser ces 2 methodes.
Quelqu’un aurait –il l’amabilité de me proposer une autre méthode efficace transférer ma plage vers un tableau VBA ordinaire ???

Merci d’avance les gars.
Voici mes codes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub TransfertPlageVersTableau()
' je veux transferer la plage vers un tableau VBA.
'je ne veux pas utiliser les 2 methodes suivantes:
 
    Worksheets("feuil2").Activate
    Dim Plage As Range
    Set Plage = Range("A1:B5")
 
'1ere METHODE:celle de la boucle.
    Dim TabOrd() As Double  'mon tableau ordinaire.
    Dim NumRow As Integer: Dim NumCol As Integer
    NumRow = Plage.Rows.Count: NumCol = Plage.Columns.Count
    ReDim TabOrd(1 To NumRow, 1 To NumCol)
    Dim i As Integer: Dim j As Integer
    For i = 1 To NumRow
        For j = 1 To NumCol
            TabOrd(i, j) = Plage(i, j).Value
            'Debug.Print TabOrd(i, j)     'juste pour visualiser.
        Next j
    Next i
 
'2è METHODE:celle d'utiliser un tableau Variant.
    Dim TabVariant() As Variant
    TabVariant = Plage
    Dim k As Integer: Dim l As Integer
    For k = 1 To UBound(TabVariant, 1)
        For l = 1 To UBound(TabVariant, 2)
            Debug.Print TabVariant(k, l)  'juste pour visualiser.
        Next l
    Next k

'quelqu'un aurait-il une autre methode à me proposer pour transfere _
les donnees d'une plage vers un tableau VBA?? svp aidez moi.

[Philippe JOCHMANS]

Bonjour

Tu devrais trouver d'autres exemples dans ce tuto : Utiliser les variables tableaux en VBA Excel

Philippe