Bonjour
j'ai fais une petite macro qui fonctionne sous excel (car mes fichiers sources sont en Excel)
elle a pour but de trouver dans une colonne un mot
si ce mot est trouvé alors la valeur d'une autre colonne devra être envoyé dans un fichier TXT
 

 
 
le traitement de 680 000 ligne me prends 25 secondes
cela fonctionne, c'est déjà çà !
 
connaissez vous une méthode plus rapide ?
en VBS, avec des fonctions de dictionnaire, tableau, sans ouvrir le fichier xls
 
 

pour expliquer le code ci dessus, voila ce que je dirais
For i = 1 To 1048000 => les tables sont assez grosses en général, sans être pleines
append => j'ai plusieurs feuilles a traiter
on error goto suivant => évite les erreurs quand la cellule en comporte une
le teste sur le dernierplan est la pour éviter les doublons

 
            Bonjour !
 
            Si l'exécution apparaît longue c'est déjà à cause du code !
            Il serait si simple de ne traiter que la plage contenant les données !
            Voir déjà dans l'aide VBA les propriétés  CurrentRegion,  UsedRange,  …
 
            Ensuite Goto est inutile et facteur de ralentissement !
            Et utiliser une boucle est souvent moins rapide que d'utiliser une fonctionnalité interne d'Excel !
 
            Parmi les voies rapides, il y a le filtre avancé d'Excel permettant d'extraire en une seule instruction
            les données souhaitées et sans doublon vers une autre feuille de calculs par exemple …
            Consulter l'aide VBA de la méthode  AdvancedFilter  comme les tutoriels sur la Toile.
 

 
            Autre possibilité via la méthode  Range.Find  comme illustrée dans l'aide VBA interne …
 

 
            Une démonstration avec  CurrentRegion  &  Find  :
 

Sub Demo()
         Const D = "D:\Tests4Noobs\"
           Dim Rg As Range, AD$
        If Dir(D, vbDirectory) = "" Then Beep: Exit Sub
    With [A1].CurrentRegion.Columns(8)
           Set Rg = .Find("PORTE ", , xlValues, xlPart)
        If Not Rg Is Nothing Then
          AD = Rg.Address
          Open D & "Text1.txt" For Append As #1
            Do
                If Len(Rg(1, -4).Value) = 9 Then Print #1, Rg(1, -4).Value
                   Set Rg = .FindNext(Rg)
            Loop Until Rg.Address = AD
                   Set Rg = Nothing
          Close #1
        End If
    End With
End Sub

Bonjour
merci pour le code, mais il semble qu'il y a des problèmes
-il ne tient pas compte des doublons
et surtout, il est encore moins rapide que celui que j'ai donné !
 
ex: 460000 ligne envoyées vers le TXT
45s avec ton code
11s avec celui que j'ai mis en exemple  
 
Finalement le code que j'ai mis au début fera amplement l'affaire

épuré au max,il reste rapide et surtout facilement compréhensible
rien qu'en le lisant, je sais dire ce qu'il va faire, et çà, c'est important pour moi