Discussion :

[neiluj26]

Bonjour le forum,

J'ai un onglet de plusieurs dizaines de milliers de lignes (nommé WsBase dans le code ci-dessous). Quotidiennement, je dois y rapporter des infos que je trouve dans l'onglet WsListeArt, colonnes 2 et 3. Pour effectuer la recherche, j'utilise ce code:

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
 
Application.ScreenUpdating=False 
 
...
 
DerLigBase = WsBase.[A65536].End(xlUp).Row
For i = 2 To DerLigBase
    With WsListeArt.Range("A2:A" & WsListeArt.[A65536].End(xlUp).Row)
        Set C = .Find(WsBase.Cells(i, 26))
            WsBase.Cells(i, 31) = WsListeArt.Cells(C.Row, 2)
            WsBase.Cells(i, 32) = WsListeArt.Cells(C.Row, 3)
    End With
Next i
 
...
 
Application.ScreenUpdating= True

mais j'aurais aimé savoir si on pouvait améliorer ce code afin d'améliorer la vitesse de recherche?

[CodeFacile]

Je n'ai pas fais de test pour avoir une idée du gain ( si il y en a )

il y a une première simplification en n'effectuant qu'une seule fois le with , si on le met avant la boucle for .
Ensuite je suis etonné de la syntaxe du range ( valeur string )

Essayes le code suivant .

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
 
DerLigBase = WsBase.[A65536].End(xlUp).Row
DerListeArt =  WsListeArt.[A65536].End(xlUp).Row
 
With WsListeArt.Range("A2:A" & cstr (DerListeArt))
 
 
For i = 2 To DerLigBase
 
nom_occurence =  WsBase.Cells(i, 26).value
              Set C = .Find(What:=nom_occurence, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
          If Not C Is Nothing Then
 
           WsBase.Cells(i, 31) = WsListeArt.Cells(C.Row, 2)
            WsBase.Cells(i, 32) = WsListeArt.Cells(C.Row, 3)
    End if
Next i
 
end with

Ca m'interesserais de connaitre le % de gain en rapidité.

[Gorfael]

Salut à tous
Find est la méthode la plus rapide que je connaisse
Mais je ferais l'inverse :
- je copierais les 2 cellules (AD et AE) d'un article
- je rechercherais toutes les occurences de l'article dans la liste finale et à chacune je collerais les 2 cellules
Mais je ne suis pas sûr du gain de temps

CodeFacile, "je suis etonné de la syntaxe du range ( valeur string ) "
Range("A" & x) indique que x doit être transformé en string, puisqu'il est concaténé. Pas la peine de le convertir
A+

[neiluj26]

Salut,

J'ai testé vos deux façons de faire, et en chronomètrant avec

Code :

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

Public Declare Function GetTickCount& Lib "kernel32" ()

je ne vois pas de gain de temps. Bon, ce n'est pas très grave. C'était plus une question de curiosité. J'ai déjà gagné tellement de temps en apprenant à me servir (un peu) des variables tableaux, que ce n'est pas très embêtant.

Merci.