Optimisation de VBA pour la recherche de valeurs dans une table

Version imprimable

Bonjour à tous,

Voila j'ai mon code VBA qui m'importe des données Excel vers ma BDD Access.
J'ai différents tests de ce code qui se base sur une boucle.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set rs = db.OpenRecordset("Equipment", dbOpenDynaset)
    With rs
        If .RecordCount <> 0 Then
            .MoveFirst
            trouve = False
            TrouveStatut = False
            Do While Not .EOF And Not trouve
'If the fields IDEQUIPMENT = Cells(ID) in Excel File
                If .Fields("IDEQUIPMENT") = Cells(i, ID) Then
                    trouve = True
                    IdEqOld = .Fields("IDEQUIPMENT")
'Use this conditions to see if the equipment statut is achieved or not
                    If .Fields("Statut") = "X" Then
                        TrouveStatut = True
                    Else
                        TrouveStatut = False
                    End If
                End If
                .MoveNext
            Loop
        End If
    End With

Cependant j'aimerai savoir si il y a une autre solution pour parcourir et récupéré ces valeurs.
En effet, avec la taille des fichiers Excel et le nombre d'enregistrements de la table "Equipment", il me faut presque 30min d'éxécution.

Merci d'avance

12/07/2011, 15h47
koluche

Hello! As-tu entendu parler de "recherche dichotomique"?
Voici un lien qui en parle: http://www.developpez.com/recherche/...eloppez.com%2F
12/07/2011, 16h49
Tydher

Oui justement j'étais en train de me poser la question quand j'ai posté ici.
Merci pour les liens, je reposterai demain dans la matinée pour dire ce que j'ai fait !

Merci
13/07/2011, 04h19
Invité

Bonjour

Pourquoi ne pas passer par une requête au lieu de parcourir la table Equipement :koi:

Le critère (Clause Where de la requête) sera la valeur de la cellule (Cells(i, ID)) ainsi que les données du champ Statut.

Ce serait beaucoup plus rapide (à moins que je n'ai pas compris ce que tu souhaites).

Philippe
13/07/2011, 08h40
Tydher

Citation:

Envoyé par Philippe JOCHMANS

Bonjour

Pourquoi ne pas passer par une requête au lieu de parcourir la table Equipement :koi:

Le critère (Clause Where de la requête) sera la valeur de la cellule (Cells(i, ID)) ainsi que les données du champ Statut.

Ce serait beaucoup plus rapide (à moins que je n'ai pas compris ce que tu souhaites).

Philippe

Si tu as bien compris, c'est vrai que je ne sais pas pourquoi je n'ai pas utilisé de requete SQL pour recherché une valeur. Je test cela et je repost un message.

Bon j'ai testé mon code avec la recherche dichotomique du lien envoyé par Koluche (et adapté à ma situation), et l'utilisation de requete SQL proposé par Phillipe.

Cette derniere est un peu plus rapide dans mon cas.
Voila ce que ça me donne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Trouve = False TrouveStatut = False RechercheEq = ("Select Equipment.IDEQUIPMENT, Equipment.Statut From Equipment where Equipment.IDEQUIPMENT = '" & safeString(IdEq) & "'") Set RechercheE = CurrentDb.OpenRecordset(RechercheEq) If Not RechercheE.EOF Then RecEq = RechercheE.Fields("IDEQUIPMENT").Value RecStatut = RechercheE.Fields("Statut").Value If RecEq <> "" Then Trouve = True End If If RecStatut <> "" Then TrouveStatut = True IdEqOld = RecEq End If Else Trouve = False TrouveStatut = False End If
Merci beaucoup pour vos réponses.