Problème temps exécution

C

Compte Supprimé 979

Guest

• 3 Août 2007

• #2

Re : Problème temps exécution

Salut,

Pourquoi ne pas utiliser la fonction "Find" d'Excel !
Voilà ce que j'utilise dans mes macros :

Code:

Function LigFind(Feuil As String, NumCol As Integer, Quoi)
  On Error Resume Next
  With Sheets(Feuil).Columns(NumCol)
      ' On recherche une valeur
      LigFind = .Find(What:=Quoi, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False).Row
  End With
  On Error GoTo 0
End Function

Cela me retourne le numéro de la ligne trouvée et 0 si rien trouvé

A adapter selon les besoins 😉

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 3 Août 2007

• #3

Re : Problème temps exécution

Bonjour Viscere, bonjour Bruno,

Pourquoi ne pas utiliser les tables en mémoire qui sont très simple à mettre en oeuvre et avec des temps de traitement extremement rapides.

Par exemple:

Code:

Dim Tablo as variant
Tablo = Sheets("Feuil1").Range("a3").CurrentRegion

Ce code crée un tableau à 2 dimensions qui contient toute la plage de données correspondante de "Feuil1".

Après, tu travaille avec Tablo(i,j) dans des boucles et les recherches seront beaucoup plus rapides.

@+

Gael

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 6 Août 2007

• #4

Re : Problème temps exécution

Merci pour ces astuces. Pour le tableau si je veux plus d'une colonne par exemple je voudrais la colonne A et B c'est possible?

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 6 Août 2007

• #5

Re : Problème temps exécution

Bon je gagne pas mal de temps avec la solution du tableau mais c'est pas encore ca!! Je vais tester le find.

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 6 Août 2007

• #6

Re : Problème temps exécution

Bon résultat des courses ca va largement plus vite avec Find. Néanmoins je n'arrive pas à chercher par valeur et non par chaine de caractère.

Je m'explique mon champs de recherche peut etre soit de la forme :

000025458487
soit 25458487

Avant quand je comparais dans ma boucle je pouvais faire

if Val(X) = Val(Quoi) then .....

Mais dans la fonction Find comment puis je faire?

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 6 Août 2007

• #7

Re : Problème temps exécution

C'est bon il fallait juste que je mette le paramètre lookAt à XlPart et non XlWhole.

Donc pour résumer

méthode Find = 12 sec
méthode Tableau 55 sec
boucles (non calculée mais encore plus long)

Merci à tous 🙂

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Août 2007

• #8

Re : Problème temps exécution

Salut Viscere,

La fonction ".Find" est en fait la méthode "Rechercher" d'Excel, donc ultra rapide !

Tous les autres codes font des recherches séquentielles, donc forcément plus long 😉

A+

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 6 Août 2007

• #9

Re : Problème temps exécution

Bonjour à tous,

Je ne pensais pas que la fonction Find était plus rapide, pourtant je l'utilise de temps en temps. du coup j'ai récupéré le code de Bruno qui me paraît plus simple que mon code (merci Bruno!).

Par contre, Viscere, si tu pouvais joindre les codes de tests que tu as réalisé, ce serait sympa.

Merci et @+

Gael

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 6 Août 2007

• #10

Re : Problème temps exécution

Code:

Set Cellule = ListeExhauWorkBook.Sheets("Liste").Range("A2")
Set CelluleTemp = FeuilleTemp.Range("A1")

Dim i As Integer
i = 0

Do While Cellule.Offset(i) <> ""
       
    CelluleTemp.Offset(i, 9) = RenvoieDonneeEta1(Cellule.Offset(i, 7), Eta1Workbook, "B")     i = i + 1
    
Loop

Code:

Function RenvoieDonneeEta1(NumSej As String, Eta1Workbook As Workbook, IdCell As String) As String

    Dim i As Integer
    
    i = 0
    
    i = LigFind("eta1", 1, NumSej)
    
    If (i <> 0) Then
    
        RenvoieDonneeEta1 = Eta1Workbook.Sheets("eta1").Range(IdCell & i)
        Exit Function
    
    End If
    
    RenvoieDonneeEta1 = ""

End Function

j'ai effacé les versions boucles et tableau mais c tout simple. tu parcours ta feuille (ou ton tableau) et tu test si la valeur recherché est présente dans la case voulue.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 6 Août 2007

• #11

Re : Problème temps exécution

Rebonjour à tous,

J'ai fait quelques essais de vitesse de recherche et de mise à jour que tu trouveras dans le fichier joint. Il est limité à 1000 références pour que sa taille soit en dessous de 50k mais tu peux le compléter.

Je l'ai créé de la façon suivante:

1 - Création d'une suite de 1000 références de A1000 à A2000 en Feuil1 colonne A
2 - Copie de ces 1000 références en Feuil2 colonne A
3 - Création de 1000 valeurs aléatoires en feuil1 colonne B
4 - Copier collage valeurs pour supprimer la fonction aléatoire
5 - Tri de la feuil1 par valeurs pour que les références soient dans un ordre quelconque.

Les 2 procédures font la même chose, l'une avec des tables mémoire et l'autre avec l'instruction Find:

Recherche de chaque code de la feuil 2 dans la feuille 1, récupération da la valeur correspondante et mise à jour en feuil 2 colonne B ou C selon la procédure (avec enregistrement des heures début et fin)

Sur 1000 références, les 2 procédures s'exécutent en 1 seconde environ mais sur 20000 enregistrements, l'utilisation de tables est nettement plus rapide qu'avec .find.

Par ailleurs on peut bien sûr optimiser les temps de réponse en triant les tables et en créant des index intermédiaires.

Qu'en penses-tu et cela ressemble-t-il à ton problème?

@+

Gael

 

Pièces jointes

• Rech_Find_V1.zip

  42.2 KB · Affichages: 23

Vote positif 0 Vote négatif

V

viscere

Guest

• 7 Août 2007

• #12

Re : Problème temps exécution

Merci gael pour cet exemple de test complet. J'ai essayé avec un fichier de 14000 lignes de code.

tab 7s
find 8s

Mon find dans mon programme 12s

Vu qu'à chaque itération de ma première boucle je vais récupérer une dizaine de valeur et non une et surtout que ma première boucle je la fais du style

Code:

Do While Cellule.Offset(i) <> ""

, la différence est peut être là.

Je vais tester en mettant mon premier fichier dans un tableau et en bouclant sur des find...

En tout cas merci.

Laurent

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 7 Août 2007

• #13

Re : Problème temps exécution

Bon ben pour mon cas ca marche mieux avec Find je met 12 s contre 27 sec en travaillant avec 2 tableaux.

Merci à tous!

 

Vote positif 0 Vote négatif