Copier un array dans autre array

Version imprimable

14/08/2012, 15h49
FanTasTik

Copier un array dans autre array

Bonjour,

je trie un gros tableau de données que je charge dans un array (on va dire que le tableau c'est la feuille et l'array la variable en mémoire).

En suite j'ai plusieurs tris différents à faire. Au début j'utilisais "ByVal" pour passer les valeurs de l'array en paramètre sans modifier l'original dans les différents traitement indépendants.

Mais j'utilise maintenant certaines fonctions qui m'empêchent d'utiliser ce ByVal donc pour pas modifier mon array je souhaite en faire des copies.

Quelqu'un saurait donc comment copier un array dans un autre ? (autrement qu'avec une double boucle, un truc plus opti quoi ^^)

Merci

Bonjour,

Teste ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub CopieTableau()
 
    Dim TblOriginal(1 To 10)
    Dim TblCopie()
    Dim I As Integer
 
    For I = 1 To 10
        TblOriginal(I) = I
    Next I
 
    'copie du tableau
    TblCopie = TblOriginal
 
    For I = 1 To 10
        Debug.Print TblCopie(I)
    Next I
 
End Sub

Hervé.

16/08/2012, 15h21
FanTasTik

Merci bien cela fonctionne et c'est très rapide.