XL 2016 VBA coller une plage de cellules dans la colonne d'une variable tableau

[F22Raptor]

Hello
Disons que je crée une variable tableau VarTab avec 10 lignes et 4 colonnes.

Je voudrais coller la plage M1:M10 dans la 3eme colonne de la variable tableau par exemple, quel devrait être le script ?
Quelque chose comme :
VarTab (1 to 10, 3) = range("M1: M10")

Mais ça me semble assez foutraque ...

 

[job75]

Bonjour F22Raptor,

Il faut une boucle :

Dim VarTab(1 To 10, 1 To 4), i
For i = 1 To 10
    VarTab(i, 3) = Range("M" & i)
Next

A+

 

[F22Raptor]

Merci Job !
Je craignais cette réponse ... Les boucles c'est tjs un peu lent !

 

[job75]

Les boucles c'est tjs un peu lent !

Non, pas sur des tableaux VBA (matrices), testez :

Dim VarTab(1 To 100000, 1 To 4), tablo, i
tablo = [M1:M100000] 'matrice, plus rapide
For i = 1 To UBound(tablo)
    VarTab(i, 3) = tablo(i, 1)
Next

 

[F22Raptor]

En effet ! Tant qu'on ne touche pas aux cellules, finalement ça va vite.
Merci !