Discussion :

[n.elamari]

Bonjour,
J'ai réalisé une macro qui récupérée une valeur dans un fichier xls et cherche cette valeur dans un fichier texte, une fois trouver je copie la ligne et la ligne suivante du fichier texte. Par contre il faut que la macro tourne pendant 30min pour traitement 9000 cellules.
Je souhaite savoir s'il y a un moyen pour optimiser la recherche.
Merci d'avance



Cf-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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub recherche()
 
Dim strLigne As String
Dim findval As String
Dim i As Integer
 
For i = 1 To 9000
Open "C:\bluebook2.txt" For Input As #1
findval = Cells(i, 1).Value 'recupperation de l'information à chercher
 
 
Do While Not EOF(1)
 
 
 
Line Input #1, strLigne 'lecture du fichier bluebook2 ligne par ligne
 
If InStr(1, strLigne, findval, 1) > 0 Then 'condition si l'information trouvé
 
Cells(i, 2) = strLigne 'copier la ligne en cours de lecture
Line Input #1, strLigne 'lecture de la ligne suivante
Cells(i, 3) = strLigne 'copier la ligne suivante
 
End If
 
Loop
Close #1
 
Next i
 
MsgBox "traitement terminer"
 
End Sub

[unparia]

Bonjour
Difficile de te proposer une optimisation sans autres précisions, à commencer par la structure même du fichier texte de recherche.
Tu ne précises par ailleurs pas si ce fichier peut ou non contenir plusieurs occurrences de la valeur recherchée.
Il semble que non, puisque tu ne remplis que deux cellules.
Mais si c'est vraiment le cas (une seule occurrence) : quitte donc ta boucle dès que cette occurrence a été trouvée !

J'observe par ailleurs que tu utilises Instr pour déterminer la présence d'une occurrence. Cela me parait risqué puisque rien ne garantit que la seule présence d'une sous-chaîne de caractères fait que la ligne est celle recherchée ! Imagine que la valeur recherchée soit "Jean" et que ton fichier texte contienne une ligne :
"Le frère de Jean est mignon"
et une ligne
"Le père de Jean est agriculteur"
Instr reconnaîtra comme occurrences tant la première que la seconde de ces deux lignes. Et comme tu continues de surcroît jusqu'à la fin de ta boucle, ce sera la seconde qui, in fine, sera écrite dans ta cellule d'accueil !

[Marc-L]

Je souhaite savoir s'il y a un moyen pour optimiser la recherche.

Bonjour,

ne connaissant pas ton niveau de codage en VBA et comme Excel peut directement ouvrir un fichier texte
alors il est tellement logique d'utiliser les fonctionnalités internes d'Excel et ce même en VBA !

Donc ouverture du fichier texte dans une feuille de calculs,
utilisation de la recherche d'Excel pour trouver une occurrence (voir Find dans l'aide VBA)
ou encore directement via une simple formule de calculs …
Sans compter l'activation du Générateur de macros livrant une base de code sur un plateau !

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[n.elamari]

Bonjour,

Merci pour la repense pour Instr je suis obligé de la garder car je doit prendre en compte que je peux avoir le contenu majuscule ou minuscule, pour la deuxième question ou la valeur je la trouve qu'une fois dans le fichier xls.
Moi je voulais juste savoir quand je trouve la cellule dans le fichier txt et je copire la ligne 1 et 2, je passe au traitement de la cellume suivante. Est ce que c'est possible?

Merci d'avance

[Invité]

Bonjour,
si tu peux fournir un exemple de fichier TXT en bidonnant le donné confidentielles!

[joe.levrai]

Bonjour,

pour Instr je suis obligé de la garder car je doit prendre en compte que je peux avoir le contenu majuscule ou minuscule

placer en haut du module contenant ta procédure

Code :

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

Option Compare Text

afin de ne pas tenir compte de la casse

[Invité]

Si j'ai bien compris si la valeur recherchée n'existe pas dans le fichier texte tu la rajoute?

Regarde avec un connexion ADO!

[patricktoulon]

bonjour
une chose étonnante que l'on t'a pas fait remarquer c'est ouverture du fichier en mémoire a chaque tour de boucle

Code :

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

1
2
3
For i = 1 To 9000
Open "C:\bluebook2.txt" For Input As #1
findval = Cells(i, 1).Value 'recupperation de l'information à chercher

heu... pourquoi?

[n.elamari]

ci-joint un exemple sachant que j'ai plus de 100000 ligne de fichier texte et 25100 variables à chercher. pour info la variable que je cherche a partir du fichier xls et unique dans le fichier texte ( pas de doublon"

[Marc-L]

Alors Patrick un dictionnaire - ou une collection - pour la paire clef / n° ligne et tableau en mémoire …

Possible aussi par formules de calculs …

[n.elamari]

bonjour

concernant l'ouverture du ficher à chaque boucle je ne trouve pas d'autres chose, si vous avez des idées je suis preneur. Merci d'avance

[unparia]

concernant l'ouverture du ficher à chaque boucle je ne trouve pas d'autres chose, si vous avez des idées je suis preneur.

Une idée ? Oh que oui ! l'ouvrir avant de boucler, pardi.
Enfin quoi : imagine que tu doives chercher un slip ,et unj tee-shirt dans le tiroir d'une commode. Tu vas, toi, :
- ouvrir le tiroir
- y chercher le slip et l'en extraire
- refermer le tiroir
- rouvrir le tiroir
- y chercher ton tee-shirt et l'en extraire
- refermer le tiroir
???

PS : Je n'ai pas ouvert ton classeur (lire ma signature à ce sujet).