Discussion :

[Delmak]

Bonjour,
J'aimerais effectuer des test logiques sur les valeurs des cellules d'un fichier Excel, mais je me rends compte que le traitement est en réalité assez long.
Du coup j'ai fait quelques tests mais je ne vois pas comment je pourrais rendre cette exécution plus rapide.
Enfait si je fais par exemple 2500*2500 comparaisons entre deux nombres, Excel est plutôt rapide (moins d'une seconde): voir l'exemple ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TestlogiqueNombre()
For i = 1 To 2500
    For j = 1 To 2500
        If i = j Then
            m = m + 1
        End If
    Next j
Next i
MsgBox (m)
End Sub

En revanche si je fais les mêmes opérations, mais cette fois ci, je n'utilise plus des nombres directement mais les cellules de mon classeur, le traitement est beaucoup plus long ! Jusqu’à une minute...
Je précise pour le code ci-dessous, que mes colonnes A et B contiennent toutes deux des valeurs de 1 à 2500

Code :

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

1
2
3
4
5
6
7
8
9
 Sub TestlogiqueCellule()
For i = 1 To 2500
    For j = 1 To 2500
        If Cells(i, 1).Value = Cells(j, 2).Value Then
            m = m + 1
        End If
    Next j
Next i
MsgBox (m)

Donc en soi les deux fonctions effectuent les mêmes opérations mais l'une va chercher les valeurs dans la feuille Excel, j'imagine donc que c'est cela qui est aussi long.
Pourriez-vous m'indiquer comment faire pour pouvoir comparer deux cellules Excel de manière plus rapide ?

Merci d'avance

[joe.levrai]

Bonjour,

en utilisant une variable tableau, tu vas voir ce que vaut le TGV face à la trotinette

http://silkyroad.developpez.com/vba/tableaux/


en gros, tu transmet le contenu de ta plage à un tableau VBA, et tu fais ton traitement de comparaison dedans

exemple issu de ton cas
(remplir A1:A2500 avec les chiffres au préalable)

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
Sub TestlogiqueCellule()
Dim Tablo()
Dim i As Long
Dim j As Long
 
' on prend la plage de A1 à A2500
' et on la met dans un tableau
Tablo = Application.Transpose(Cells(1, 1).Resize(2500, 1))
 
' boucle sur tous les éléments du tableau
For i = LBound(Tablo) To UBound(Tablo)
    ' autre boucle sur tous les éléments
    For j = LBound(Tablo) To UBound(Tablo)
        If Tablo(i) = Tablo(j) Then
            m = m + 1
        End If
    Next j
Next i
 
MsgBox (m)
 
End Sub

moins d'une seconde de traitement

[Delmak]

Parfait !
C'est exactement ce que je cherchais :p, c'est vrai que c'est plutôt rapide
Merci à toi

[joe.levrai]

Regarde un peu ce sujet

c'est un cas de comparaison sur des très grandes quantités de données (300K)

temps de traitement réduit à peau de chagrin grâce aux tableau

c'est pas du niveau débutant sur ce type de variables, certes, mais la compréhension est possible

http://www.developpez.net/forums/d15...s-specifiques/

[Invité]

Bonjour,
Personnellement j'utiliserais un dictionnaire

Code :

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

1
2
3
For j = LBound(Tablo) To UBound(Tablo)
        dico(Tablo(j))=dico(Tablo(j))+1
       Next j