Discussion :

[Jambonpurée]

Bonjour,

J’ai réalisé un programme vba qui est beaucoup trop lent ! J’aimerais avoir vos conseils concernant de possibles évolutions !

Les données se présentent de la façon suivante : une colonne, représentant des objets, et une autre, donnant des dates de réalisation d’opérations liées à ces objets.
Il peut y avoir plusieurs opérations et donc plusieurs dates par objet.

Le but du programme est :
- Dans un 1er temps, de trouver pour chaque objet la date la plus ancienne;
- Dans un 2nd temps, de comparer ces dates et de donner la date la plus récente et son objet associé.

Le programme que j’ai réalisé fonctionne mais est très lent (seulement 100 à 200 lignes de données à traiter et plusieurs minutes d’exécution).

Code :

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

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
Sub D_DatesDebutMsn()
 
Application.ScreenUpdating = False
 
Worksheets("Feuil3").Range("A:B").ClearContents
Worksheets("data").Columns("D:G").NumberFormat = "General"
LastRow = Worksheets("data").Range("A60000").End(xlUp).Row
 
For i = 2 To LastRow
    If Worksheets("data").Cells(i, 8).Value = "Oui" Then
        first = Worksheets("data").Cells(i, 6).Value
        vMsn = Worksheets("data").Cells(i, 2).Value
        For j = 2 To LastRow
            If j <> i Then
                If Worksheets("data").Cells(j, 2).Value = Worksheets("data").Cells(i, 2).Value Then
                    If Worksheets("data").Cells(j, 6).Value < Worksheets("data").Cells(i, 6).Value Then
                        If Worksheets("data").Cells(j, 6).Value > 0 Then
                            first = Worksheets("data").Cells(j, 6).Value
                            vMsn = Worksheets("data").Cells(j, 2).Value
                        End If
                    End If
                End If
            End If
            If first <> 0 Then
                Worksheets("Feuil3").Cells(i, 1).Value = vMsn
                Worksheets("Feuil3").Cells(i, 2).Value = first
            End If
        Next j
    End If
Next i
 
 
Worksheets("data").Columns("D:G").NumberFormat = "m/d/yyyy"
Worksheets("Feuil3").Columns("B:B").NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True
 
 
End Sub

Si vous avez des pistes pour l’améliorer ou même une méthode différente (peut être avec des recherchev ?? je ne vois pas trop comment faire..), ce serait génial !
Merci d’avance et bonne soirée !

[issoram]

Bonjour,

Essaie de travailler avec des tableaux plutôt qu'avec des plages ou des cellules.
L'exemple donné à ce sujet en introduction de ce tutoriel: http://silkyroad.developpez.com/vba/tableaux/ est très parlant.

Cordialement.

[Jambonpurée]

Bonjour,

En effet, c'est ce qui m'a aussi été conseillé par ailleurs! Je vais étudier ça.

Merci pour ta réponse et bonne soirée!