attribuer a une variable a un objet range non contigue

bonsoir,

souvent pour acceler mes codes
j utilise un variant pour boucler sur des plages de données

Code:

---

1 2 3

dim vplage vplage = range("a1:b100")

---

cette fois j ai voulu faire la meme chose mais avec une plage de cellules non contigues

Code:

---

1 2 3 4 5 6 7 8 9

Sub essais() Dim var Dim a var = Range("a1:a3,c1:c3") For Each a In var MsgBox a Next End Sub

---

et la surprise !!!
la variable contient uniquement les valeurs de la colonne a (ici pour l exemple)
peut on affecter un variant sur une plage non contigue ??? SANS PASSER PAR 2 VARIABLES

bonjour

essaye ca

Code:

---

1 2 3 4 5 6 7 8

Sub essais() Dim var as range Dim a as range set var = Range("a1:a3,c1:c3") For Each a In var MsgBox a Next End Sub

---

la declaration des variable est importante, meme si elle n'est pas necessaire puisque par defaut le declaration est faite en Variant, la declaration en variant prend plus de place en memoire.

Toute affectation d'un objet dans une variable demande un SET

enfin tu peux aussi ecrire comme cela

Code:

---

1 2 3 4 5 6

Sub essais() Dim a as range For Each a In Range("a1:a3,c1:c3") MsgBox a Next End Sub

---

Bonne soirée

merci pour la reponse wilfried 42

mais entre utiliser un variant et un objet range je ne suis pas sur de gagner en
memoire.

de plus l interet est la facilité de l utilisation du variant (tableau ligne/colonne)
pour les boucles

re:

libre à toi mais sache qu'un type variant en numerique prend 16 octets

un integer (colonnes) : 2 octets (8 fois moins)
un Long (lignes) : 4 Octets (4 fois moins)
une Date avec son Heure : 8 Octets (2 fois moins)

Un objet : prend 4 Octet (4 Fois moins)

En string : Variant prend 22 Octets + les caracteres
un String ne prend que les caracteres

Voir Aide Excel sur Dim (detail des types)

Bonne soirée

en fait j ai 2 solutions alternatives :
1/ selection la plage complete meme si des cellules sont vides au milieu
2/passer par une collection de variant

la 2eme solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Option Base 1 Dim c_var As Collection Sub essais() Dim var1, var2 Dim a, b Dim i As Integer, j As Integer var1 = Range("a1:b3") var2 = Range("e1:f3") Set c_var = New Collection c_var.Add var1 c_var.Add var2 For Each a In c_var i = i + 1 'pour identifier la collection var1 = item1 var2 = item2 etc For j = 1 To UBound(a, 1) MsgBox a(j, 1) Next j Next a End Sub

---

pour voir l utilité des variants

1/ un code qui genere des valeurs aleatoire

Code:

---

1 2 3 4 5 6 7 8

Sub gener_aleatoire() Dim a As Range For Each a In Range("a1:f10000") Randomize a = Int((1000 * Rnd) + 1) Next a End Sub

---

2/ test des tps d execution
1test a = objet range
2test a = variant
3test a = tableau

dans un module

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

Private Declare Function GetTickCount Lib "Kernel32" () As Long Sub tps_execution1() Dim depart, tps_exe depart = GetTickCount() Dim a As Range For Each a In Range("a1:f10000") a = a + 1 Next a tps_exe = GetTickCount() - depart MsgBox tps_exe End Sub Sub tps_execution2() Dim depart, tps_exe Dim cmpt1 As Long, cmpt2 As Long depart = GetTickCount() Dim a as variant a = Range("a1:f10000") For cmpt1 = LBound(a, 1) To UBound(a, 1) For cmpt2 = LBound(a, 2) To UBound(a, 2) a(cmpt1, cmpt2) = a(cmpt1, cmpt2) + 1 Next cmpt2 Next cmpt1 Range("a1:f10000") = a tps_exe = GetTickCount() - depart MsgBox tps_exe End Sub Sub tps_execution3() Dim plage(10000, 6)Dim depart, tps_exe Dim i As Integer, j As Integer depart = GetTickCount() For i = 1 To 6 For j = 1 To 1000 plage(j, i) = Cells(j, i) Next j Next i For i = 1 To 6 For j = 1 To 1000 plage(j, i) = plage(j, i) + 1 Next j Next i For i = 1 To 6 For j = 1 To 1000 Cells(j, i) = plage(j, i) Next j Next i tps_exe = GetTickCount() - depart MsgBox tps_exe End Sub

---