Discussion :

[eric4459]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Subscript Out of Range

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CRV.Offset(1,j)

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

[Philippe Tulliez]

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 ?

[issoram]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eric4459]

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