Utilisation des tableaux en VBA

Bonjour a tous,
Je cherche à réaliser une macro avec des tableaux en VBA afin d’accélérer le traitement.
J'ai déclaré mes deux tableaux, les ai redimensionné et les ai chargé comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Table1() As String Dim Table2() As String ReDim Table1(0 To NbLine1) ReDim Table2(0 To NbCol1)     For i = 0 To (UBound(Table1) - 5) Table1(i) = WKS.Offset(i, 8) Next i   For j = 0 To UBound(Table2) Table2(j) = CRV.Offset(0, j) Next j

---

J'ai ensuite écris ma boucle mais j'ai du oublie quelque-chose car ma boucle tourne assez longtemps.

Code:

---

1 2 3 4 5 6 7

For j = 0 To NbCol1 For i = 0 To NbLine1 - 5 If Month(Table1(i)) = Month(Table2(j)) And Year(Table1(i)) = Year(Table2(j)) Then CRV.Offset(1, j) = WKS.Offset(i, 11) + CRV.Offset(1, j) End If Next i Next j

---

Selon moi cela viens de cette ligne

Code:

---

CRV.Offset(1, j) = WKS.Offset(i, 11) + CRV.Offset(1, j)

---

Y-at-il un moyen d'optimiser?
Peut-on écrire quelque-chose du genre:

Code:

---

Table2(1,j) = table1(i, 11) + Table2(1, j)

---

J'ai essayé mais j'ai une erreur 9

Citation:

---

Subscript Out of Range

---

Comment faire ?
Utiliser un tableau a deux dimensions pour ma ligne

Code:

---

CRV.Offset(1,j)

---

?
Dans ce cas comment faire pour le charger
Merci pour votre aide
Eric

Bonsoir Eric,
Il est possible de charger en une seule fois une plage de cellules dans un tableau.
As-tu lu, le tutoriel de Silkyroad Utiliser les variables tableaux en VBA Excel ?

Bonjour,

Toute référence à des cellules dans une boucle va ralentir ton code.
Aussi bien la phase de remplissage de tes tableaux (Voir à ce sujet ce que te propose Philippe)

Code:

---

1 2 3 4 5 6 7

For i = 0 To (UBound(Table1) - 5) Table1(i) = WKS.Offset(i, 8) Next i   For j = 0 To UBound(Table2) Table2(j) = CRV.Offset(0, j) Next j

---

que la phase de traitement (où effectivement il faut que tu utilises tes tableaux)

Code:

---

CRV.Offset(1, j) = WKS.Offset(i, 11) + CRV.Offset(1, j)

---

Pour la mise à jour des cellules une fois le tableau valorisé, toujours la méthode décrite par Philippe dans le sens inverse : "affecter un tableau de valeurs à une plage de cellules"

Bon courage

Merci à vous deux, je vais étudier un plus le tutoriel de SilkyRoad.
Eric