COMPARATEUR EXCEL EN MASSE, AMÉLIORATIONS

Commentaire de mortalino le 09/05/2008 00:51:12

Salut,

j'ai juste regardé comme ça, pas testé.

Toi qui veux optimiser, voici qques pistes :

1/ Dim i, j, k As Integer
Attention, seul k est de type Integer, i et j sont Variant (donc plus lourd en octets)
Voici la bonne syntaxe :
Dim i As Integer, j As Integer, k As Integer

Ensuite au début, j'ai vu :
2/ Const CouleurCellModifiee = vbRed
vbRed étant déjà une constante VB, cela ne sert à rien de créer ta propre constante, ayant la même valeur qu'une autre. Quand t'en as besoin dans ton dev, utilise tout simplement vbRed au lieu de CouleurCellModifiee.

3/ Les boucles.
Il est plus rapide de faire une boucle sur les collections plutôt que par leurs items

Dim sSheet As Sheet

For Each sSheet in ActiveWorkBook.Sheets
    MsgBox sSheet.Name
Next sSheet

là ce sera plus rapide que

Dim i As Integer

With ActiveWorkBook
    For i = 1 to .Sheets.Count
        Msgbox .Sheets(i).Name
    Next i
End With


Aller pour finir (ça c'est ma spécialité grâce à MZTools) :
* dans Sub CompareTwo(indexS, IndexC)  --> la variable 'j' n'est pas utilisée
* dans Sub FindMaxRangeSource(ind)  --> le paramètre 'ind' n'est pas utilisée
* dans Sub FindMaxRangeSource(ind)  --> le paramètre 'ind' n'est pas utilisée

Voilà, en espérant d'avoir filé une astuce d'optimisation  ;)
++

Commentaire de mortalino le 09/05/2008 15:31:44

Effectivement Renfield,

je ne l'avais pas vu comme ça ;)
C'est vrai que récemment j'ai du faire un Ctrl H d'une chaine de caractères déjà comprise dans une autre.. bonjour les dégâts  :$

Bonne remarque !

Commentaire de GMY le 12/05/2008 01:01:10

Je remercie Mortalino pour ses conseils.

Je suis contient qu'il y a des optimisations possibles.

Je suis parti d'un code brut qui fait le travail (c'est génial de trouver du code comme celui-là et de l'améliorer) et pour mon besoin immédiat, je me suis limité à la performance de la boucle de parcours des cellules.

A propos des différents points :
1-J'ai découvert cela en modifiant ce programme, franchement embêtant, je pratique régulièrement ce genre de raccourci pour rendre plus lisible mon code. J'abandonnerai, à contre c½ur, ce truc dans mes prochains développements.

2-Renfield a très bien défendu mon point de vue, je l'en remercie.

3-Je me doutait que la boucle sur les collections était plus rapide que la boucle sur les items. Mais, j'ai quelques problème avec la manipulation du "for each"

Pour le paramètre "ind" inutilisé, il m'avait même induit en erreurs. J'aurai du le supprimer.

Enfin, s'il y en a qui ont des idées et un peu de temps, ils peuvent apporter leurs améliorations.

Commentaire de MickelVB le 06/06/2008 23:34:24

Super, juste une petite remarque, si le nom du fichier source le même que celui du fichier cible,tu as un message d'erreur lors de l'ouverture du fichier cible. Il faut s'assurer que les noms des fichiers dans les dossiers cibles et sources soient différents.