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

job75

XLDnaute Barbatruc

• 13 Août 2020

• #2

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+

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 13 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2020

• #4

F22Raptor à dit:

Les boucles c'est tjs un peu lent ! 😉

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 13 Août 2020

• #5

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

 

Vote positif 0 Vote négatif