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

F22Raptor · 13 Août 2020

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 · 13 Août 2020

Bonjour F22Raptor,

Il faut une boucle :

VB:

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

A+

F22Raptor · 13 Août 2020

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

job75 · 13 Août 2020

F22Raptor à dit:
Les boucles c'est tjs un peu lent !

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

VB:

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 · 13 Août 2020

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

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

F22Raptor

XLDnaute Impliqué

job75

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

job75

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

Discussions similaires