Discussion :

[Belegeorn]

Bonjour

Je cherche actuellement a recopier certaines lignes d'un tableau (un fichier *.csv) vers une feuille de calcul dans fichier *.xls. Ces lignes ne doivent etre recopiées que si la valeur contenue dans une colonne vaut une valeur constante fixée par avance.

Si jamais ca peut vous servir, mon tableau fait plus de 4000 lignes (et une trentaine de colonnes) et j'ai déja eu des dépassements de mémoire lors de mes essais (infructueux)

Je patauge completement...
merci d'avance pour votre aide

Belegeorn

[Belegeorn]

Bon, j'ai exploré d'autres pistes et j'ai décidé d'utiliser un filtre automatique
Et ça marche !

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
 
Sub recopie()
    Windows("zmprof01.csv").Activate
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="100383"
    Dim MaPlage As Range
    Set MaPlage = Sheets("zmprof01").AutoFilter.Range
    Set MaPlage = MaPlage.Offset(1, 0).Resize(MaPlage.Rows.Count - 1, MaPlage.Columns.Count)
    MaPlage.Copy
    Windows("traitement.xls").Activate
    Sheets("recopie").Activate
    Range("A2").Select
    ActiveSheet.Paste
 
End Sub

Je vais essayer de bidouiller pour éviter d'avoir a ouvrir le fichier de départ
A+